Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Completar sentencias SQL (https://www.clubdelphi.com/foros/showthread.php?t=45781)

eldiegofg 13-07-2007 18:37:44

Completar sentencias SQL
 
Hola a todos, soy nuevo en esto y queria saber si habia alguna funcion REPLACE o alguna forma de modificar en tiempo de ejecucion la propiedad SQL de un TQuery. Yo tengo una sentencia SQL inicial del tipo SELECT * FROM TABLA y en tiempo de ejecucion quiero agregarle a esa sentencia un WHERE campo=x, por ejemplo, dependiendo de alguna condicion seleccionada en el programa.
Espero haber dado a entender bien mi consulta y agradecere mucho alguna ayuda. Saludos y gracias

gluglu 13-07-2007 18:53:42

Código Delphi [-]
Query1.SelectSQL.Text := Query1.SelectSQL.Text + 'where campo=x':
Query1.Open;

gabrielkc 13-07-2007 20:48:06

Tambien podría ser:

Query.SQL.Add(' where campo=x');

eldiegofg 16-07-2007 23:13:48

Muchas gracias por su ayuda gente. Saludos

PabloTech 27-07-2007 19:01:17

Por añadidura
 
A la misma consulta también puedes trabajarla así:
Código SQL [-]
var Condicion: String;
...
 
with Query do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM Tabla');
  SQL.Add('WHERE Campo = :x');
  // 3 es un ejemplo y podría ser tomado de un componente TEdit
  ParamByName('x').AsInteger = 3;
  // Si tienes condiciones opcionales, también podrías preguntar
  if Condicion = 'Cumple' then
  begin
    SQL.Add('AND CampoY = :y');
    // 1974 también podría ser tomado de otro componente
    ParamByName('y').AsInteger = 1974;
  end;
  Open;
end;

Saludos :)


La franja horaria es GMT +2. Ahora son las 00:52:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi