Ders-38 'SQL' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 18:01 Çevrimdışı

SQL

Delphide SQL komutlarini kullanarak bir çok islem yaptirabiliriz. Örnegin animals.dbf dosyasinin içinde arama yapritarim

bu örnekte name bölmüne göre arama yaptiracagiz ve memo1 nesnesinede yazilmis olan komut satirlarini gösterecek sayed siz SQL komutlarini biliyorsaniz dahada gelistirebilirsiniz

KODU:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear; // kendinden önçeki satirlari temizler
//Query1.SQL:=memo1.Lines; // memo nesnesine yazilan bilgileri SQL atar
Query1.SQL.Add('select * from "Animals.dbf" Where NAME='+''''+edit1.Text+'''');
//name göre arama
Memo1.Lines:=Query1.SQL; //sql komutlarini memoya ata
Query1.Open; // tabloda göstermek için REFLESH ler.
end;

07-12-07, 18:01 Çevrimdışı	#1
ares Genel Mesajlar: 6.685 Teşekkür etti: 771 Teşekkür edildi: 2.159 RepForum Gücü: 500 Forum Puanı:48968	Ders-38 'SQL' SQL Delphide SQL komutlarini kullanarak bir çok islem yaptirabiliriz. Örnegin animals.dbf dosyasinin içinde arama yapritarim bu örnekte name bölmüne göre arama yaptiracagiz ve memo1 nesnesinede yazilmis olan komut satirlarini gösterecek sayed siz SQL komutlarini biliyorsaniz dahada gelistirebilirsiniz KODU: Code: procedure TForm1.Button1Click(Sender: TObject); begin Query1.SQL.Clear; // kendinden önçeki satirlari temizler //Query1.SQL:=memo1.Lines; // memo nesnesine yazilan bilgileri SQL atar Query1.SQL.Add('select * from "Animals.dbf" Where NAME='+''''+edit1.Text+''''); //name göre arama Memo1.Lines:=Query1.SQL; //sql komutlarini memoya ata Query1.Open; // tabloda göstermek için REFLESH ler. end;

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder