Cuantos Querys?

[Nomad]

En realidad lo que me pasa es que talvez tengo un dbgrid cargado con informacion. Ese DB grid esta pegado a un Query. si uso el mismo para hacer otra consulta, me vuela lo del grid.

Por lo general en una aplicacion muy grande uso dos Query... pero igual lo que no quiero es hacer una aplicacion, ineficiente en cuanto al aprovechamiento de recursos!

[jachguate]

El DBGrid es solamente una ventana a los datos que están en el DataSet.

Obviamente, si cerras este dataset para hacer una nueva consulta, el grid reflejará el resultado de esta última, y no el de la primera, pues el control, como tal, no almacena los datos.

Por otro lado, desperdiciar tiempo programando innecesariamente, finalmente, también es un desperdicio de recursos. Creo que es mas fiable fijarse en la relación costo/beneficio.

Hasta luego.

[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

[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.