hola nemesio, ya pude resolver el problema este es el codigo:
Código Delphi
[-]procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
qryCliente.Close;
qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
qryCliente.SQL.Add('WHERE telefono1_cliente = :telefono');
qryCliente.Parameters.ParamByName('telefono').Value:=MaskEdit1.Text;
qryCliente.Open;
if not qryCliente.IsEmpty then begin
DBText1.Caption:=qryClientenombre_cliente.Value+''+qryClienteapellidos_cliente.Value;
Edit2.SetFocus;
end
else
ShowMessage('Cliente no existe')
end; end;
pero ahora sucede que ocurre otro error, cuando digito un telefono me sale el nombre en el dbtext, perfecto hasta ahi todo bien, pero supongamos que ese no era el telefono que no queria, limpio la casilla para digitar otro telefono, y me sale este error:
Cita:
|
EOleException with message 'OLE error 800A0E7C'
|
y ahora que sera??
gracias...