Cuantos Querys?

[Nomad]

???????????????

[marcoszorrilla]

Naturalmente las Consultas que precisan de campos persistentes yo las armo en objetos distintos y las dejo formateadas y listas para usar, me refiero a consultas como estos ejemplos:

Código Delphi [-]
        DmXX.QrActLinalba.Close;
        DmXX.QrActLinalba.Sql.Clear;
        DmXX.QrActLinalba.Sql.Add('Delete from Linalbar');
        DmXX.QrActLinalba.Sql.Add('Where nAlbaran = '+QuotedStr(DmXX.AlbaNalbaran.Value ));

        DmXX.QrActLinalba.ExecSql;
        DmXX.QrActLinalba.Close;




Procedure Crear_Tabla_Temporal();
var
cNomTemp:String;
begin
cNomTemp:='C:\Wpan\TempFact.Db';

  if FileExists(cNomTemp) then
  DeleteFile(cNomTemp);

  if Not FileExists(cNomTemp) then
  begin
    Try
    DmXX.QrTemporales.Close;
    DmXX.QrTemporales.Sql.Clear;
    DmXX.QrTemporales.Sql.Add('Create Table '+QuotedStr(cNomTemp));
    DmXX.QrTemporales.Sql.Add('(');
    DmXX.QrTemporales.Sql.Add('Codigo     Char(07),');
    DmXX.QrTemporales.Sql.Add('Nombre     Char(40),');
    DmXX.QrTemporales.Sql.Add('Poblacion  Char(25),');
    DmXX.QrTemporales.Sql.Add('Contado     Boolean,');
    DmXX.QrTemporales.Sql.Add('Recargo     Boolean,');
    DmXX.QrTemporales.Sql.Add('Facturames  Boolean,');
    DmXX.QrTemporales.Sql.Add('Ruta       Char(01),');
    DmXX.QrTemporales.Sql.Add('Primary Key(Codigo)');
    DmXX.QrTemporales.Sql.Add(')');
    DmXX.QrTemporales.ExecSQL;
    Except
    ShowMessage('Error al crear la tabla temporal de facturas.');
    end;
   end;
end;



Function Comprobar_hay_Lineas_que_Facturar():Boolean;
Var
lTiene:Boolean;
begin
lTiene:=True;
DmXX.Qrhaylineas.Close;
DmXX.Qrhaylineas.Sql.Clear;
DmXX.Qrhaylineas.Sql.Add('Select Count(nCliente) from LinAlbar');
DmXX.Qrhaylineas.Sql.Add('Where nCliente = '+QuotedStr(DmXX.Tempo.Fields[0].AsString));
DmXX.QrHayLineas.Open;

 if DmXX.QrHayLineas.Fields[0].AsInteger > 0 then
 Result:=True
 else
 Result:=False;
end;

Un Saludo.

[jachguate]

ah... pero claro.

Para esos casos, de hecho, normalmente tengo una función a la que le paso la sentencia SQL y un arreglo de parámetros... y se encarga de hacer y deshacer..

Hasta luego.

[marcoszorrilla]

Me gusta la idea de una función y pasarle arreglos, igual te la tomo prestada.

Un Saludo.

[[Lepe]]

Yo prefiero:

Código Delphi [-]
var q:Tquery;
begin
   q := CreateQry('select * from tabla');

   ... 
   FreeAndNil(q);
end;

La función crea en ejecución el query, asigna el database y asigna el sql. Después ya puedo usar q.Execsql o q.Open según necesite.

Saludos

[Nomad]

Empezado por Lepe

Yo prefiero:
Código Delphi [-]var q:Tquery;
begin q := CreateQry('select * from tabla');

...
FreeAndNil(q);
end;

La función crea en ejecución el query, asigna el database y asigna el sql. Después ya puedo usar q.Execsql o q.Open según necesite.

Saludos

Creo que esta solución si esta elegante!

Voy a usarla!

[jachguate]

Empezado por marcoszorrilla

Me gusta la idea de una función y pasarle arreglos, igual te la tomo prestada.

Un Saludo.

Hombre, no falta pedir permiso. Ya ves que estoy en contra de las patentes de software..

A mi me ha funcionado muy bien... y un tremendo ahorro de tiempo.