Código Delphi [-] procedure Tconombreyapellidos.Button1Click(Sender: TObject); begin With ADOQUERY1 DO BEGIN CLOSE; SQL.Text:= 'SELECT * FROM CLIENTES WHERE nom_cliente = :nom_cliente ORDER BY NOME'; PARAMETERS[0].VALUE:= EDIT1.TEXT; OPEN; END; end;
procedure Tconombreyapellidos.Button1Click(Sender: TObject); begin With ADOQUERY1 DO BEGIN CLOSE; SQL.Text:= 'SELECT * FROM CLIENTES WHERE nom_cliente = :nom_cliente ORDER BY NOME'; PARAMETERS[0].VALUE:= EDIT1.TEXT; OPEN; END; end;