sorgu sonucunu değişkene aktarma

MS SQL Server veritabanı ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
harezmi
Üye
Mesajlar: 11
Kayıt: 20 Oca 2018 07:03

sorgu sonucunu değişkene aktarma

Mesaj gönderen harezmi » 23 Mar 2019 03:41

merhaba arkadaşlar
basit bir sql sorgusundan dönen sonucu bir değişkene aktarmak istiyorum. adoquery kullnarak yapılabilir mi?
şöyle bir kod yazdım ama sonuç alamadım yardımlarınız için şimdiden tşk

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select a=personel_sicil_no from personel_tbl where personel_ad=:i');
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.ExecSQL;
edit2.Text:=inttostr(a);
end;

Kullanıcı avatarı
m_ekici
Kıdemli Üye
Mesajlar: 556
Kayıt: 11 Haz 2003 05:49
Konum: Adana
İletişim:

Re: sorgu sonucunu değişkene aktarma

Mesaj gönderen m_ekici » 26 Nis 2019 10:11

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select personel_sicil_no as a from personel_tbl where personel_ad=:i');
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Open;
edit2.Text:=inttostr(adoquery1.FieldValues['a']);
end;

olarak denermisin

Cevapla