Mega Code Archive

 

Categories / Delphi / ADO Database

 

Databasede arama yöntemleri

// Database'de Arama Yöntemleri... // Query'de SQL kullanarak arama yapmak. procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('Select * From Database Where Adi like "'+Edit1.text+'%"'); Query1.Open; End; //Table'da istenilen alana göre arama yapmak. procedure TForm1.Button1Click(Sender: TObject); begin Table1.Locate('AlanAdi',Edit1.Text,[]); end; //Table'da Aranan bilgiye en yakın kaydı bulma... procedure TForm1.Edit1Change(Sender: TObject); begin Table1.FindNearest([Edit1.Text]); end; //Table'da indexli alana göre arama yapmak... procedure TForm1.Button1Click(Sender: TObject); begin Table1.FindKey([Edit1.text]); end;