ADOQuery de veri atamak

[ozcank]

Arkadaşlar; TBLSUBELER deki UNVAN alanını Label1 aktarmak istiyorum bu cümleyi yazdım ama aktaramadım bakabilir misiniz?

Kod: Tümünü seç

 
procedure TForm10.FormActivate(Sender: TObject);
begin
SIRKET_UNVAN.Close;
SIRKET_UNVAN.sql.clear;
SIRKET_UNVAN.SQL.add('select UNVAN From TBLSUBELER WHERE sube_kodu=0 AND ISLETME_KODU=1 AND UNVAN='+#39+''+Label1.Caption+''+#39+'');
SIRKET_UNVAN.Open;
end;

[ozcank]

Arkadaşlar bu şekilde çözdüm.

Kod: Tümünü seç

procedure TForm10.FormActivate(Sender: TObject);
begin
SIRKET_UNVAN.Close;
SIRKET_UNVAN.sql.clear;
SIRKET_UNVAN.SQL.add('select UNVAN From TBLSUBELER WHERE SUBE_KODU=0 AND ISLETME_KODU=1');
SIRKET_UNVAN.Open;
Label1.Caption:=form10.SIRKET_UNVAN.Fields[0].asstring;
end;