Language: NoFormat
ADOQuery
1: 2: procedure TForm1.SearchButtonClick(Sender: TObject); 3: var HurricaneName: string; 4: begin 5: HurricaneName := HurricaneSearchBox.text; 6: with ADOQuery1 do begin 7: Close; 8: SQL.Text := 'SELECT * FROM Huracanes WHERE Huracanes.Nombre =' + tblname; 9: Open; 10: end; 11: end;
Tags:
Report Abuse
Subscribe
Discuss
What's new
What is it
New Snippet
Recent Snippets
My Snippets
Web Code
Search

