Ayuda Con Consulta

[[enecumene]]

hola A TODOS, sucede lo siguiente, este es mi 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, apellido_cliente FROM tbClientes ');
qryCliente.SQL.Add('WHERE telefono1_cliente = :telefono');
qryCliente.Parameters.ParamByName('telefono').Value:=strtoInt(MaskEdit1.Text);
qryCliente.Open;
if not qryCliente.IsEmpty then
   DBText1.Caption:=qryClientenombre_cliente.Value+' '+qryClienteapellidos_cliente.Value;
  end;
end;

el campo telefono1_cliente es un campo de texto tipo 809-555-5555, pues cuando corro la aplicacion y digito el telefono para llamar al cliente 809-555-5555 me sale el siguiente error: "809-555-5555 is not a valid integer value" esta claro que no es un valor numerico esto esta en :

Código Delphi [-]
qryCliente.Parameters.ParamByName('telefono').Value:=strtoInt(MaskEdit1.Text);

cual es el valor que debo poner en vez de StrtoInt he intentado con varios y no doy con el. para que tengas una idea de todo lo que tengo en mi form:

1 - adoquery (deberia tenerlo? o no es necesario?, debe estar en false?)
1 - datasource
1 - maskedit (clientes)
1 - edit (peliculas)
1 - base de datos MS ACCESS
3 - tablas (tbClientes, tbPeliculas, tbPeliculasAlquilada)
1 - dbgrid
2 - speedbuttons (para hacer busquedas de clientes y peliculas tipo ... )
3 - dbedit (donde se mostraran los totales del alquiler, subtotal, iva y total)
2 - dbtext (donde se mostraran el nombre de la pelicula y el cliente)
2 - checkbox (donde se indicara si el cliente paga en efectivo o credito)
4 - buttons (cobrar, anular, cancelar y cerrar)

gracias

[[kuan-yiu]]

¿Si telefono1_cliente es un campo de texto por qué le envías un integer? Deberías enviarle un string.

Código Delphi [-]
qryCliente.Parameters.ParamByName('telefono').AsString:=MaskEdit1.Text;

[roman]

Empezado por kuan-yiu

Código Delphi [-]
qryCliente.Parameters.ParamByName('telefono').AsString:=MaskEdit1.Text;

Creo que tratándose de un AdoQuery, no hay AsString.

// Saludos

[[enecumene]]

roman tiene razon tratandose de componentes ado no hay asString, y roman sin ponerle nada

Código Delphi [-]
qryCliente.Parameters.ParamByName('telefono').Value:=MaskEdit1.Text;

me sale un error que dice "ole error 800A0d5d" cuando intento probarlo.

gracias...

[[kuan-yiu]]

jejeje... No me fijé en que era un AdoQuery
Bueno, yo normalmente no los uso, así que no estoy segura de que esto valga... Pero por probar...

Código Delphi [-]
qryCliente.Close;
qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellido_cliente FROM tbClientes ');
qryCliente.SQL.Add('WHERE telefono1_cliente = ' + '''' + MaskEdit1.Text + '''');
qryCliente.Open;

[[enecumene]]

gracias kuan-yiu por responder, pero me salio un error de sintaxis en la consulta telefono1_cliente= ?, no habra otra forma de hacerlo?

gracias...

[roman]

¿Y si no pones nada?

Código Delphi [-]
qryCliente.Parameters.ParamByName('telefono').Value:=MaskEdit1.Text;

// Saludos