Creando Consulta de alquiler

[nemesio]

Es válida cualquiera de las 2 opcíones. Puedes colocarlo en el evento OnKeyPress del Edit, algo asi como:

Código Delphi [-]
procedure TForm1.EditCodClienteKeyPress(Sender: TObject; var Key: Char);
begin  
  if Key=#13 then
  begin
   AdoQueryCliente.Close;     AdoQueryCliente.SQL.Add(' SELECT codcliente, Nombre, Apellido FROM CLIENTES ');   AdoQueryCliente.SQL.Add('WHERE CodCliente: Codigo');   AdoQueryCliente.ParamByname('Codigo').Value:=EditCodCliente.Text;   AdoQueryCliente.Open;     if not AdoqueryCliente.IsEmpty then      LabelCliente.Caption:=AdoQueryClienteNombre.Value+' '+AdoQueryClienteApellido.Value;  end;
end;

o Colocarlo en un en el evento OnClick de un Botón. Todo va a depender de como quieras hacerlo y de lo que requiera tu aplicación.

[nemesio]

Esta si va con la etiqueta bien...

Es válida cualquiera de las 2 opcíones. Puedes colocarlo en el evento OnKeyPress del Edit, algo asi como:

Código Delphi [-]
procedure TForm1.EditCodClienteKeyPress(Sender: TObject; var Key: Char);
begin 
if Key=#13 then
begin
AdoQueryCliente.Close; AdoQueryCliente.SQL.Add(' SELECT codcliente, Nombre, Apellido FROM CLIENTES '); AdoQueryCliente.SQL.Add('WHERE CodCliente: Codigo'); AdoQueryCliente.ParamByname('Codigo').Value:=EditCodCliente.Text; AdoQueryCliente.Open; if not AdoqueryCliente.IsEmpty then LabelCliente.Caption:=AdoQueryClienteNombre.Value+' '+AdoQueryClienteApellido.Value; end;
end;

o Colocarlo en un en el evento OnClick de un Botón. Todo va a depender de como quieras hacerlo y de lo que requiera tu aplicación.

[nemesio]

No se que pasó que en la Previsualización se veía bien el código con la Etiqueta delphi. pero no se que pasó. Bueno ahi tienes la idea, cualquier duda vuelve a preguntar.

[nemesio]

Ok lo que pasa es que en Ado la sintaxis es asi:

Código Delphi [-]
  AdoQueryCliente.Parameters.ParamByName('codigo').Value;

Suerte

[[enecumene]]

Código Delphi [-]
 procedure TForm1.EditCodClienteKeyPress(Sender: TObject; var Key: Char);
begin 
if Key=#13 then
begin
AdoQueryCliente.Close; AdoQueryCliente.SQL.Add(' SELECT codcliente, Nombre, Apellido FROM CLIENTES '); AdoQueryCliente.SQL.Add('WHERE CodCliente: Codigo'); AdoQueryCliente.ParamByname('Codigo').Value:=EditCodCliente.Text; AdoQueryCliente.Open; if not AdoqueryCliente.IsEmpty then LabelCliente.Caption:=AdoQueryClienteNombre.Value+' '+AdoQueryClienteApellido.Value; end;
end;

gracias nemesio con enter es mejor, pero estoy teniendo problemas que al compilar el ParamByname es Undeclared identifier que es lo que falta?

[[enecumene]]

gracias nemesio ahora si! pero me surge otro problema, cuando corro la aplicacion y pruebo el codigo me sale el siguiente error: 'qryCliente: parameter 'Codigo' not found', y disculpa las molestias....

[[enecumene]]

gracias nemesio ahora si! pero me surge otro problema, cuando corro la aplicacion y pruebo el codigo me sale el siguiente error: 'qryCliente: parameter 'Codigo' not found', y disculpa las molestias....

este es el codigo adaptado:

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, apellido_cliente FROM tbClientes ');
qryCliente.SQL.Add('WHERE telefono1_cliente: Codigo');
qryCliente.Parameters.ParamByName('Codigo').Value:=MaskEdit1.Text;
qryCliente.Open;
if not qryCliente.IsEmpty then
   DBText1.Caption:=qryClientenombre_cliente.Value+' '+qryClienteapellidos_cliente.Value;
  end;
end;

[nemesio]

prueba pegando los dos puntos de la palabra codigo, asi:

Código Delphi [-]
qryCliente.SQL.Add('WHERE telefono1_cliente= :Codigo');

también coloca el "=" que por lo que veo no lo colocaste. Los dos indican en el SQL que lo que sigue es un parámetro.

[nemesio]

Quise decir los dos puntos.

[[enecumene]]

aqui estoy de nuevo nemesio, pero aun me dice que el parametro codigo no se encuentra, lo intente de estas maneras:

Código Delphi [-]
qryCliente.SQL.Add('WHERE telefono1_cliente =: Codigo');
qryCliente.SQL.Add('WHERE telefono1_cliente= :Codigo');

sera que me estara faltando algo? y que viene siendo 'Codigo'? algun campo de la tabla?

gracias, (diras que estas tratando con un bruto, jajajaja)