sql.text e atanan değeri var a atama

[yasir26]

var
a:char;
begin
adoquery1.sql.clear;
ADOquery1.SQL.Text:='select ad from kisiler where ad ='+#39+ad.Text+#39;
adoquery1.Open;

ad := BURAYA NE YAZMALIYIM??

end;

Buraya ne yazayım ki veri tabanından seçilen ad'ı oluşturduğum değişkene atayım?

[xxxjedixxx]

Kod: Tümünü seç

ad := ADOQuery1.FieldByName('ad').Value;

İpucu;

Kod: Tümünü seç

// string içinde tek tırnak karakterini yazmak için, metin içindeki her tek tırnak için ikişer tane tek tırnak koyulur.
  ADOquery1.SQL.Text:='select ad from kisiler where ad = '''+ ad.Text + ''''; // bu şekilde de yazabilirsin.