ayuda trabajar con datos del dataset

[jans.albornoz]

Empezado por kapcomx

Actualmente estoy trabajando con XE2 y nos va muy bien con interbase, aun que te soy sincero casi nunca o no recuerdo haber utilizado Acces con Delphi pero creo que en XE2 viene una paleta de componentes dbgo que tienen los componentes ADO, que son los que pueden conectarte con ACCESS.

Saludos..

si lo encontré y me conecto a la base de datos y pude llenar una grilla con datos, pero lo que necesito es hacer una consulta a una tabla y otra consulta a otra tabla con factores, después hacer unas operaciones con las matrices de los dos "dataset". El problema que tengo es que como me sale todo automático, no encuentro la forma de recorrer el dataset con los valores y hacer los cálculos que necesito para después poder mostrarlos en la grilla.
Quiero poder hacer esto por código:
- conectarme a la base de datos
- hacer una consulta sql
- recorrer el dataset con los resultados que me arrojo la consulta
- mostrar en la grilla o de alguna otra forma los datos ya trabajados

[kapcomx]

Empezado por jans.albornoz

- recorrer el dataset con los resultados que me arrojo la consulta

ok, si lo que quieres es hacer un recorrido puedes usar un ciclo while

Código Delphi [-]
dataset1.first;
while not (dataset1.eof) do 
begin
variable:= variable + dataset1campox.value; //

dataset1.next; 
end;

y para visualizar los campos puedes usar un stringgrid

Espero te sirva...

[jans.albornoz]

Empezado por kapcomx

ok, si lo que quieres es hacer un recorrido puedes usar un ciclo while

Código Delphi [-]
dataset1.first;
while not (dataset1.eof) do 
begin
variable:= variable + dataset1campox.value; //

dataset1.next; 
end;

y para visualizar los campos puedes usar un stringgrid

Espero te sirva...

ok, gracias, lo voy a probar y te cuento si me resulta

[MartinS]

Hola:
Yo hace casi un año que uso Firebird y realmente va muy bien (es excelente y free)
Tenes este tutorial del compañero Caral que te va a servir en cuanto a componentes para la conexion, su configuracion y el acceso a los datos.-

Saludos.-

[jans.albornoz]

Empezado por MartinS

Hola:
Yo hace casi un año que uso Firebird y realmente va muy bien (es excelente y free)
Tenes este tutorial del compañero Caral que te va a servir en cuanto a componentes para la conexion, su configuracion y el acceso a los datos.-

Saludos.-

Gracias por el dato, lo tendré en cuenta, el año pasado estuve haciendo unas pruebas con firebird y se nota un buen motor de base de datos

[jans.albornoz]

Empezado por kapcomx

ok, si lo que quieres es hacer un recorrido puedes usar un ciclo while

Código Delphi [-]
dataset1.first;
while not (dataset1.eof) do 
begin
variable:= variable + dataset1campox.value; //

dataset1.next; 
end;

y para visualizar los campos puedes usar un stringgrid

Espero te sirva...

no me resulta el orden para poder enlazar mi consulta con la conexión y el DataSet.
Como debe ser el orden y la vinculación de estos elementos ya que aca veo que se hace en las propiedades y me pierdo un poco, yo estaba acostumbrado a hacerlo en asp.net donde tenia la conexion, ejecutaba una consulta sql a esa conexion y de eso obtenia un dataset, trato de hacer este orden pero no me resulta.

[ecfisa]

Empezado por jans.albornoz

no me resulta el orden para poder enlazar mi consulta con la conexión y el DataSet.
Como debe ser el orden y la vinculación de estos elementos ya que aca veo que se hace en las propiedades y me pierdo un poco, yo estaba acostumbrado a hacerlo en asp.net donde tenia la conexion, ejecutaba una consulta sql a esa conexion y de eso obtenia un dataset, trato de hacer este orden pero no me resulta.

Hola jans.albornoz.

Revisa este hilo: [ ¿cómo conectar base de datos access con un ado en delphi pasos? ]

Saludos.

[jans.albornoz]

gracias me sirvió bastante, ya tengo conexión =)

[jans.albornoz]

ya encontré solución a mi problema, gracias a todos los que me aportaron con algo. dejo el código por a alguien mas tiene la misma duda

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
suma, cantidad , largo, diametro, numeroTrozos, ritmo, sumaRitmo, sumanumeroTrozos, result : real ;
T, factorRitmo, codigoTrozoAbas, codigoTrozoFac: string;
begin
abastecimiento.Active:=true;
dbgrid1.Visible:=true;
adoquery1.Active:=true;
sumaRitmo := 0;
sumanumeroTrozos := 0;
with abastecimiento do
    begin
       first;
       while not eof do
         begin
         codigoTrozoAbas:= FieldByName('codigoTrozo').AsString;
             cantidad:= FieldByName('cantidad').AsInteger;
             largo:= FieldByName('largo').AsInteger;
             diametro:= FieldByName('diametro').AsInteger ;
             numeroTrozos:= (cantidad * 10000) / (largo * diametro * diametro );
              sumanumeroTrozos:=  sumanumeroTrozos +   numeroTrozos;
             with ADOQuery1 do
                begin
                   first;
                   while not eof do
                      begin
                      codigoTrozoFac := FieldByName('codigoTrozo').AsString;
                        if codigoTrozoAbas = codigoTrozoFac then
                        begin
                        ritmo:= FieldByName('factorRitmo').AsFloat;
                        sumaRitmo:=  sumaRitmo + (ritmo * numeroTrozos);
                       end;

                         next;
                      end;
                end;
             next;
         end;
    end;
    result :=   sumaRitmo /   sumanumeroTrozos;
    factorRitmo:= floattostr(result);
     ListBox1.Items.Add(factorRitmo);
end;