Problemas con el TADOQuery
 

Hola amigos:
Ante todo felicidades por el año nuevo. Mi problema es el siguiente:
En una base de datos en SQL SERVER tengo una tabla X que tiene los campos DNI, Nombre, Apellidos, Edad, etc... Y quiero hacer una consulta que cuando el usuario escoja el DNI (valor unico) me salgan los demas datos relacionados con ese DNI. La consulta la realizo con un TADOQuery y seria asi:

Código Delphi [-]
 With Modulo_Busqueda.Consulta_Busqueda do
    begin
      Close;
       SQL.Clear;
       SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa :valor';
      Open;
    end;

Como pueden ver me falta el parametro para decirle que asuma por valor a lo que esta en un Edit. Resulta que la funcion Params o ParamsByName no aparecen. Yo he trabajado anteriormente con base de datos de escritorio y habia hecho las consultas con el Query muy bien. Sera que aqui cambia algo? Uso Delphi7.
Espero me ayuden.
Muchas gracias y suerte.

O

Código Delphi [-]
With Modulo_Busqueda.Consulta_Busqueda do    
begin       
Close;       
 SQL.Clear;        
SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa :valor';
Parameters[0].Value:= Edit1.text;        
Open;     
end;

O

Código Delphi [-]
With Modulo_Busqueda.Consulta_Busqueda do     
begin       
Close;        
SQL.Clear;        
SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa :valor'; 
Parameters.ParamByName('valor').Value:= Edit1.Text;       
Open;     
end;

Hola Neftali:
He hecho lo que me has pedido es esto:

Código Delphi [-]
With Modulo_Busqueda.Consulta_Busqueda do
    begin
      Close;
       SQL.Clear;
       SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa :valor';
       Parameters.ParamByName('valor').Value:=CBox_NoSolapin.text; 
      Open;
    end;

Todo compila de lo mejor. Luego de correr la apli me da el siguiente error:
Line 1 : Incorrect syntax near @P1.
Sabes a que se debe esto?

Hola Alexandro,
¿El campo y el parámetro de que tipo son?
Porque pareciera ser que hablas de numero, y estás pasando un texto.
Una cosa es escribir un número en un TEdit, y otra es que en tu base de datos sea número;).

Creo que el error se debe a eso. Deberías hacer la conversión de forma apropiada y además indicar el DataTpe:

Código Delphi [-]
ADOQuery1.Parameters.ParamByName('Valor').Value := IntToStr(...);
ADOQuery1.Parameters.ParamByName('Valor').DataType := ftInteger;

Saludos,

Hola delphius:
El tipo de dato que guarda el campo No_Chapa es tipo texto, lo hago asi para trabajar mejor con el.
No se que es lo que pasa que no sale.

¿Estableces el valor de DataType en ftString?

Debería funcionar. No veo error en el código, a menos que el error provenga de otro lado.

EDITO:
Prueba llamando al parámetro de éste modo: @Nombre.

Saludos,

hola, creo que te falta un =

Código Delphi [-]
SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa = :valor';

Correcto, es mi culpa por copiar y pegar sin ver:

Código Delphi [-]
With Modulo_Busqueda.Consulta_Busqueda do     
begin       
Close;        
SQL.Clear;        
SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa = :valor'; 
Parameters.ParamByName('valor').Value:= CBox_NoSolapin.text;       
Open;     
end;

Saludos.

No se si esto te pueda servir, al menos yo utilizo este tipo de consultas y no he tenido ningun problema

Código Delphi [-]
With Modulo_Busqueda.Consulta_Busqueda do    
 begin  
     Close;   
     SQL.Clear; 
     SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa ='+quotedstr(edit1.text);
     Open;  
     end;

Con esto no tienes la necesidad de convertir los datos.
Espero que te sirva!!