Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.sql.Text:='Select * From Employee Where firstname ='+ QuotedStr(label1.caption); Query1.Open; end;
procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.sql.Text:='Select * From Employee Where firstname ='+ QuotedStr(label1.caption); Query1.Open; end;