Ver Mensaje Individual
  #23  
Antiguo 14-07-2006
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Reputación: 24
enecumene Va por buen camino
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; //if cliente is not empty
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...
Responder Con Cita