Por favor, Ayuda en Query y paradox

CarlosHernandez · #1 25-07-2005

hola de nuevo

estoy tratando de migrar a Firebird en mi aplicacion ya que la hice en Paradox con puros Table's; pero antes de eso necesito ordenar registros por manera alphabeticamente y buscarlos bajo ciertos parametros, lo de ordenar ya lo hice, lo que no se es como crear los parametros en un Query1(BD) que cree momentaniamente, la verdad nunca he trabajado con los query y aqui en el foro me dijeron que se conecta igual que un table1, osea entendi que en la propiedad Databasename:='C:\Mi Carpeta' osea coloque la direccion de la carpeta que contiene mis tablas, y que lo unico que se modificaba era SQL... donde se colocaba la sentencia sql.

ok pero necesito buscar mediante sql mis datos bajos mi criterios es decir por ejem. busque por cedula y fecha los registros(rango de fechas >=,<=) se que se trabaja con la clausula where, y un parametro definido por uno, pero cuando presiono Params... de la propiedad del query tiene desabilitado la opcion Add y no me deja crearlos, no se si me falta conectar el query a otra cosa o no le he activado algo solo trabajo con ttable y ahorita que coloque el query como comente anteriormente.

ademas si no es mucho pedir, de ser posible como creo dichos parametros mediante codigos en un boton, osea todo la sentencia sql y la definicion de parametros y colocarle el valor es decir (ParCedula) parametro cedula sea igual a lo que tengo en mi edit1.text y me haga la busqueda mediante eso....

saludos..

[maeyanes] · #2 25-07-2005

Para crear una consulta con parámetros:

Código SQL [-]select field1, field2, ..., fieldn from table
where field1 = :field1 and field2 = :field2 and ... and fieldn = :fieldn

Para pasar parámetros a una consulta en un TIBQuery (o TQuery) en Delphi:

Código Delphi [-]begin
  Query1.SQL.Add(Sentencia SQL);
  Query1.Prepare; // Preparamos la consulta
  Query1.ParamByName('Field1').Value := 1; // Pasamos el valor del parámetro 1
  Query1.ParamByName('Field2').Value := 2;
  // ...
  Query1.ParamByName('Fieldn').Value := n;
  Query1.Open { Ejecutamos la consulta, si el SQL es un Insert o un Update
                se usa el método ExecQuery. }
end;

Espero que con estos pequeños ejemplos soluciones tu problema. Además te recomiendo que leas cualquier manual sobre SQL que encuentres y también que le eches una hojeada a los manuales de Firebird.

Saludos...