Ver Mensaje Individual
  #6  
Antiguo 06-01-2006
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 30
jhonny Va camino a la famajhonny Va camino a la fama
Hay que cambiarle un par de cositas y poner ese codigo asi:

Código Delphi [-]
procedure TForm1.printreport1Click(Sender: TObject);
begin
   with CONSULTABAUTISMO do
   begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM db.bautismos WHERE DCI= :cedula');
      // Envías como parámetro el texto contenido en el TEdit
      ParamByName('cedula').Asinteger:=strtoint(buscar.Text);
      Open;
      PRINTREPORTBAUTISMOS.Execute;
   end;
end;
end.

Si, te fijas hice dos cosas, el parametro cedula en la consulta debe estar pegado a los dos puntos ":" a menos que quieras que el nombre del parametro tenga un espacio (Bueno ademas lo cambie porque si no me mostraba la carita feliz), y luega use StrToInt para pasar de String a Integer.

Por otro lado veo que sos de Colombia y por eso te contare un secreto, si tu haz visto noticias te puedes dar cuenta que los numeros de cedulas van a cambiar y los numeros seran mas largos y creeme que ya hice la prueba con campos enteros y muchas cedulas nuevas no caben en dicho tipo de dato, asi que deberas cambiar a string. (Yo siempre que no voy a hacer operaciones matematicas con numeros los declaro String).

Bueno eso es todo espero te sirva compatriota .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/

Última edición por jhonny fecha: 06-01-2006 a las 16:31:18.
Responder Con Cita