из БД Access в ComboBox

[Itachi]

Здравствуйте. Мне требуется вывести столбец из бд в комбобокс, покопался в интернете нашел несколько статей, но реализовать их не вышло, решил поэксперементировать и написал так:

if ComboBox1.text='Памятники' then begin
datamodule2.ADOQuery1.Active := false;
datamodule2.ADOQuery1.SQL.Clear;
datamodule2.ADOQuery1.SQL.Add('SELECT kname FROM kos WHERE Kat=Памятники;');
datamodule2.ADOQuery1.Active := true;
ComboBox2.Items.Add(DataModule2.ADOQuery1.fieldbyname ('Kname').asstring);
 end

но не работает и можно ли так вообще писать?
З.Ы. что значит ошибка:
[Ошибка] Unit1.pas(297): Missing operator or semicolon
Заранее спасибо

[MoBLer]

if ComboBox1.text='Памятники' then begin
datamodule2.ADOQuery1.Active := false;
datamodule2.ADOQuery1.SQL.Clear;
datamodule2.ADOQuery1.SQL.Add('SELECT kname FROM kos WHERE Kat='+char(39)+'Памятники'+char(39));
datamodule2.ADOQuery1.Active := true;
 while not datamodule2.ADOQuery1.Eof do begin
        ComboBox2.Items.Add(datamodule2.ADOQuery1.FieldByName('Kname').AsString) ;
          datamodule2.ADOQuery1.Next ;
      end ;
 end;

попробуй так .

[Ошибка] Unit1.pas(297): Missing operator or semicolon

возможно ; где то пропустил

[Itachi]

MoBLer спасибо, все прекрасно работает)

[Itachi]

насчет ошибки:

begin
//добавление
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Insert into kos(kat,kname,name,adres,opisanie)');
DataModule2.ADOQuery1.SQL.Add('values('+ComboBox3.text+','+Edit1.text+','+edit2.text+','+edit3.text+','+memo4.lines');');
//в предыдущей строке после последнего "'" выдает:
//Missing operator or semicolon, хотя ";" вроди где надо и сколько надо стоят?
DataModule2.ADOQuery1.ExecSQL;
end;

[MoBLer]

begin
//добавление
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Insert into kos(kat,kname,name,adres,opisanie)');
DataModule2.ADOQuery1.SQL.Add('values('+char(39)+ComboBox3.text+char(39)+','+char(39)+Edit1.text+char(39)+','+char(39)+edit2.text+char(39)+','+char(39)+edit3.text+char(39)+','+char(39)+memo4.lines+char(39)+')');
DataModule2.ADOQuery1.ExecSQL;
end;

char(39)- это программный '
текстовые переменные нужно брать в скобки '
проверь, возможны незначительные опичатки

[OlegVE]

Здравствуйте
Вместо

...char(39)+ComboBox3.text+char(39)...

...QuotedStr(ComboBox3.text)...

и т.д. где есть текст
До свидания

[Itachi]

никак не выходит использовать memo:

 '+QuotedStr(memo4.lines)+'

'+char(39)+memo4.lines+'

'+char(39)+memo4.lines+char(39)+'

, не работают, вылетают ошибки:

Incompatible types: 'String' and 'TStrings'

или

Missing operator or semicolon

если не использовать memo все хорошо работает, но без него никак (требуется ввод большого текста)

[MoBLer]

пиши

memo.text

[Itachi]

MoBLer так работает, еще раз спасибо