llenar array con consulta

[Neftali [Germán.Estévez]]

Empezado por JULIOCTORRESG

otra de mis manias heredadas de fox pro es tratar en lo posible de no mantener tablas abiertas en la aplicacion , en otras palabras si mi aplicacion tiene por ejemplo 10 tablas y/o consultas tratare de abrir solo aquellas que uso y si puedo aquellas que cumplen ciertas condiciones(pequeñas con pocos registros y que no varian constantemente ) busco alternativas tales como los array de registros para guardar esos datos para luego liberar los recursos y solo mantengo en memoria los arrreglos ....

Me parece un buen consejo. Abrir y cerrar las tablas cuando las necesites.
En el caso de guardar en memoria tablas pequeñas y de pocos (o nulos) cambios, es también una solución que utilizo a veces. En nuestro caso hablamos de "tablas en caché" o "tablas en memoria"; Lo que sí me parece ineficiente es volcar eso a arreglos, como ya te he comentado cuando tienes componentes que te hacen ese trabajo.
Si el TClientDataSet no te convence, otra opción es lo que se conocen como "MemoryTables"; El nombre creo que lo dice todo. Y la idea fundamentamente es la misma que la tuya y que la de TClentDataSet.

Empezado por JULIOCTORRESG

y una Function para buscar datos dentro de ella (por cierto para buscar datos dentro del arreglo lo hago de forma secuencial 1 a 1 hasta encontrarlo claro son arreglos pequeños de no mas de 50 registros pero si se les ocurre una idea mejor bienvenida sea)

El tema de búsquedas es algo que también tienes solventado (y seguramente de forma más eficiente) en los métodos anteriores. Otra opción si decides seguir haciendolo tú es utilizar por ejemplo TStringList. Si utilizas el campo clave para la lista y luego tus Registros/objetos colgando de la propiedad Objects, puedes buscar por la clave utilizando búsqueda dicotómica/binaria (que es la que implementa TStringList si lo usas ordenado).[/quote]

[JULIOCTORRESG]

Me rindo a tu experiencia y no voy yo a salir a decir que los arreglos son la mejor solucion ....

explorare tus alternativas pero perdona la duda , que es eso de MemoryTables es una propiedad un componente a usar que es y donde esta ...por otro lado con lo del clientdataset ya lo vi y lo estoy probando pero perdona sabes de un hilo por alli para aprender a usarlo, ya se que se manipula igual que un data set normal pero lo que quiero es en tiempo de ejecucion cargarlo con un query y luego eliminar dicho query para usarlo en otra cosa, se que me entiendes pero por sia un ejemplo

coloco en la aplicacion un objeto query y 2(o mas) clientdataset

entonces en el on activate del form principal digo ....

query.close;
query.sql.clear;
query.sql.add('SELECT campo1,campo2,campo3 from tabla1');
query.open;

// aca cargo este resultado al clientdataset
//pero seria algo asi como

clientdataset1.datasourse:=query; //esto que escribo seguro es una barbaridad.....


//y eso es lo que no se hacer.......

//luego de cargado
query.close;

//para despues ..................

query.close;
query.sql.clear;
query.sql.add('SELECT elemento1,elemento2,elemento3 from OtraTabla');
query.open;

clientdataset2.datasourse:=query; // segunda vez que escribo la barbaridad esta.....

//y al fin tataaaaaaaaaaaaaa.....
query.close;

//y me queda libre para usarlo despues como de hecho ya lo usa mi aplicacion para borrar conjuntos de datos ......

la linea de asignacion para enganchar, colgar, asociar el clientdataset al query es lo que no se


ya me esta dando pena tanta preguntadera, pero citando al chavo del Ocho .....pos que hago si yo no sabo........

[Neftali [Germán.Estévez]]

Empezado por JULIOCTORRESG

Me rindo a tu experiencia y no voy yo a salir a decir que los arreglos son la mejor solucion...

Tampoco vayas a tomar mis opiniones como "la verdad"; Ni mucho menos. Simplemente es que creo que este tema te puede ser útil. Pruébalo y evalua tú mismo. Al final tal vez llegues a la conclusión de que es mejor seguir con arreglos.
Yo soy el primero que te digo que no hay una solución "mejor" para todos los casos; A veces para un caso particular lo mejor es una solución "diferente".
Pero si puedes probarlo, así ya tendrás 2 opciones para decidir.

En cuanto a las MemoryTables, es un conepto similar al que estamos hablando. Son componentes que trabajan con tablas en memoria. Normalmente lo que hacen es cargar los datos de una consulta o una tabla a un DataSet en local y luego desconectarse de la Base de Datos.
Aquí puedes encontrar algunos; Las RxLib (no se si trabajas con ellas) también tienen uno y las Quantum (estan son de pago) tambien uno muy bueno.

Creo que engo algun ejemplo por aquí de TClientDataset de alguna vez que hemos estado hablando del tema, déjame que lo busque y lo subo.

[[Lepe]]

Según tu último mensaje, quizás una función de este estilo te sirva:

Código Delphi [-]
function CreateQuery(sql:string):TQuery;
begin
  Result := TQuery.Create(nil);
  Result.DatabaseName := bla bla...
  Result.sql.text := sql;
end;

hecho esto, ahora tienes 2 formas de usarla:

Código Delphi [-]

var q :TQuery;
 q := CreateQuery('select * from tabla');
 q.Open;
 q.Free;

 q := CreateQuery('update tabla1 set campo1 = 32');
 q.ExecSql;
 q.Free;

En definitiva, puedes crear tantos querys como quieras, pero sin tener los componentes en tu ventana dando la lata.

Edito otra vez más:

Si una query va a estar ligada a un Grid, por ejemplo, para mostrar datos al usuario, no reutilices esa query para nada, déjala para ese menester nada más.

Si quieres tener una query, que solo se usa en determinadas ocasiones, y sabes que nunca va a solaparse su ejecución con otras que usen esa misma query, podrías usar una variante de esa función:

Código Delphi [-]
function ChangeQuery(qry:TQuery; sql:string):TQuery;
begin
  if qry = nil then 
    Result := TQuery.Create(nil)
  else
  begin
    if qry.Active then 
      Qry.Close;
      Result := qry;
  end;
  
  Result.DatabaseName := bla bla...
  Result.sql.text := sql;
end;

Saludos

[Neftali [Germán.Estévez]]

Bueno, al final encontré el ejemplillo y modificándolo un poco ha quedado así.
Son varios (3) TClienDataSet que se cargan a partir de un único ADOQuery;
Además un par de ejempillos sencillos de cómo filtrar y ordenar.

El ejemplo completo lo tienes en el FTP público. Con el nombre:
[Ejemplo] Varios_ClientDataSet.zip

Espero que te sea últil.

NOTA: Si vas ejecutando los botones en orden de arriba hacia abajo, irás viendo los resultados.

[JULIOCTORRESG]

Agradecido estoy y veo cosas que antes no usaba ....pero una vez mas la idea era no usar componentes para almacenar datos ....(un error mio segun veo) pero insisto y ahora tengo que usar ademas del clientdataset el objeto DataSetprovider ........caramba.....me persiguen los componentes, se que ya esta fuerte pero no puedo conectarme al query sin el DataSetprovider en tiempo de diseño se puede con boton secundario assing local data y pregunto acaso no se puede en ejecucion ....

si no es asi que caray a por cierto no quiero insertar muchos componentes ajenos porque mi intencion es migrar mi aplicacion a Delphi 2006 sin mayores problemas ...de hecho ya tengo uno para acceso a datos no uso BDE ni ADO uso uno de la gente de corelab .....SDAC ....