Проблемы с кодировкой?

[[Smarik]]

Составил запрос:

begin
case typename.ItemIndex of
0:nametype:='Плащ';
1:nametype:='Шлем';
2:nametype:='Амулет';
3:nametype:='Меч';
4:nametype:='Посох';
5:nametype:='Лук';
6:nametype:='Доспехи';
7:nametype:='Щит';
8:nametype:='Пояс';
9:nametype:='Перчатки';
10:nametype:='Кольцо';
11:nametype:='Ботинки';
end;
for i:=1 to generalsource.maxid do
begin
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('select name from items where type='+nametype+';');
  ZQuery1.Active:=true;
  dblb.Items.Add(ZQuery1.FieldByName('name').AsString);
end;
end;

программа выдает ошибку "SQL Error: Unknown column "тут иероглифы" in 'where clause'"
я так понимаю он не может найти запись в бд с таким названием? Как побороть это? Судя по всему кодировка виновата....

[mihali4]

Для начала:
ZQuery1.SQL.Add('select name from items where type='+''''+nametype+'''');
или
ZQuery1.SQL.Add('select name from items where type='+'Quoted(nametype));
Тогда не будет восприниматься как имя поля.

З.Ы. Никак не пойму, почему не используют для однострочных запросов ZQuery1.SQL.Text:= ?

[[Smarik]]

Спасибо, первый вариант работает, второй не пробовал.
Есть проблемка он проходит цикл например 40 раз, записей удовлетворяющих условию where например 1, так вот он 40 раз её добавит, понятия не имею как sql-ом проверить что записи разные, добавлять переменную вносить в немм считанную запись и проверять с уже загруженными желания нет, ибо придется помучиться и программа будет довольно медленно работать, она и при простом считавании не ахти в скорости, что посоветуете?
насчет .text не использовал ибо sql и все компоненты для работы с ним для меня новое, делаю так как написано в статья/форумах/книгах =).

[Dark_Spirit]

а если вот так попробовать:
begin
case typename.ItemIndex of
0:nametype:='Плащ';
1:nametype:='Шлем';
2:nametype:='Амулет';
3:nametype:='Меч';
4:nametype:='Посох';
5:nametype:='Лук';
6:nametype:='Доспехи';
7:nametype:='Щит';
8:nametype:='Пояс';
9:nametype:='Перчатки';
10:nametype:='Кольцо';
11:nametype:='Ботинки';
end;

ZQuery1.Close;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select name from items where type='+nametype+';');
ZQuery1.Active:=true;
while not ZQuery1.eof do
begin
dblb.Items.Add(ZQuery1.FieldByName( 'name').AsString);
ZQery1.next;
end;

end;

[[Smarik]]

А что это изменит? Добавляет все записи из бд, потом опять и опять, вроде все попорядку, но куча одинакового.

======================

Внимательнее посмотрел на условие, по идеи должно работать, но цикл не останавливается...

[Dark_Spirit]

смотри:
select name from items where type='+nametype+';'
этот запрос выберет из таблицы все имена тип которых будет nametype

select distinct name from items where type='+nametype+';'
выберёт все уникальные имена тип которых будет nametype

дальше
немного изменим:

ZQuery1.First; - перемещаемся на первую запись твоего набора ZQuery1
while not (ZQuery1.eof) do
begin
dblb.Items.Add(ZQuery1.FieldByName( 'name').AsStrin g);
ZQuery1.next;
end;

походу должно работать, если нет можно поробовать немного не так:

if ZQuery1.RecordCount<>0
then
for i:=0 to ZQuery.RecordCount-1 do
begin
dblb.Items.Add(ZQuery1.FieldByName( 'name').AsStrin g);
ZQuery1.next;
end;

[Dark_Spirit]

если можно сформулируй точно что ты хочешь получить, в каком виде, и из чего

[[Smarik]]

как то не очень работает =)
что хочу получить:
в бд хранятся записи, пользователь выбирает тип меч, броня и.т.п
после выбора формируется запрос, например он выбрал меч, идет запрос добавить в листбокс имена всех записей тип который = меч, вот вобщем то и все.

[Dark_Spirit]

м-м-м-м, а что именно не работает: запрос или не добавляет в листбокс?
и ещё, ты как-то можешь проверить что возвращает твой запрос, не через твоё приложение, а каким-то другим способом (например каким-то SQL-manager-ом)?

[начинающий кодер]

А цикл то зачем?Вытащи записи в запрос. Потом добавляй их.