Una duda con TADODataSet

[LordSarevok]

Ahh oki, no llevo un buen dia no...

Pues dentro del while esta el acceso a cada elemento de la consulta y el next para que avance, si quito el next es bucle infinito y si quito la otra sentencia no puedo sacar los datos de la consulta xD.

[[Lepe]]

El código debería ser este:

this->ADODataSet1->Connection=this->ADOConnection1;
this->ADODataSet1->ConnectionString=this->ADOConnection1->ConnectionString;
this->ADOConnection1->Connected=true;  
this->ADODataSet1->CommandText="Select * from tabla";
this->ADODataSet1->Open;
this-> ADODataSet1->First;
      while (!this->ADODataSet1->Eof)
  {
      this->ADODataSet1->FieldByName("nombre")->AsString); // ¿que hace esto?
      this->ADODataSet1->Next();
  }
this->ADODataSet1->Close(); //Aqui da el error

No entiendo el error que da, no tiene sentido. En principio he modificado el orden de las líneas... más que otra cosa por lógica. Es mejor primero asignar la conexión y después abrirla.

Por otra parte, y dado el error extraño que muestra, me aseguro de ir al primer registro de la consulta con First.

Lo que desde luego me extraña es la "forma de sacar los datos de ese ADODATASET", porque la primera línea del bucle no hace nada. AsString es una función que devuelve el texto, pero el valor devuelto no lo recoges en una asignación, ni un ShowMessage ni nada por el estilo, podría incluso suponerse que el optimizador del compilador elimina esa línea de código tras compilar.

Algo deberás hacer con ese campo "nombre".

Saludos

[LordSarevok]

Ya hombre, lo dije antes, que ese es un ejemplo reducido. En realidad es una funcion que devuelve el TADODataSet para procesarlo y despues lo cierro, solo que asi se veria mas claro que soltando un tochon de codigo.

Lo del first lo quite porque no era necesario, parece que el objeto ya te asigna directamente al primer elemento. Mayormente sera para volver al primero cuando lo necesites dentro de la consulta.

Googleando encontre una solucion, estaba en frances, pero mirabas el codigo y hacia la chapucilla del count antes de la consulta xD.

[vtdeleon]

Googleando encontre una solucion, estaba en frances, pero mirabas el codigo y hacia la chapucilla del count antes de la consulta xD.

No seas tacaño y compartela.

Saludos

[LordSarevok]

Pensaba compartirla cuando estuviese bien, para que no quede un codigo que no funciona del todo bien, es que no necesito dos consultas para hacer una, si no tres, el count para saber si hay resultados, la consulta en si y esta la tengo que repetir para que ese maldito eof no este a true, pero bueno, ahi va xD.

TADODataSet * __fastcall Taux::consulta(AnsiString consulta,AnsiString consulta2)
//Consulta 1 es la consulta a realizar y consulta2 el count.
   {
     this->ADOConnection1->Connected=true;
     this->ADODataSet1->Connection=this->ADOConnection1;
     this->ADODataSet1->ConnectionString=this->ADOConnection1->ConnectionString;
     this->ADODataSet1->CommandText=consulta2;
     this->ADODataSet1->Active=true;
     this->ADODataSet1->First();
     if (this->ADODataSet1->FieldByName(this->ADODataSet1->FieldDefs->Items[0]->Name)->AsInteger>0)    
//si el count es >0
        {
           this->ADODataSet1->Active=false;
           this->ADODataSet1->CommandText=consulta;
           this->ADODataSet1->Active=true;
           //Hacemos la consulta y retornamos el DataSet para procesarlo
           return (ADODataSet1);
        }
     else //Si no, devolvemos un null y cerramos esta consulta.
        { 
           this->ADODataSet1->Close();
           return(NULL);
        }
   }
//---------------------------------------------------------------------
void __fastcall Taux::desconectar(TADODataSet *c)
   {
            WideString asd=c->CommandText; //Es necesario reasignar la consulta para que la repita.
            c->CommandText=asd;
            c->Active=true;
            c->Open(); //Esta es la 3º consulta a la que me refiero.
            c->Close();
   }
//------------------ Un ejemplo de Procesar la Consulta -----------
     TADODataSet *asd=aux->consulta("select * from...","select count(*) ....");
    if (asd!=NULL)
         {
            while (asd->Eof!=true)
              {
                 j++;
                 Tabla->Cells[0][j]=m->FieldByName("autonumerico")->AsInteger;
                 Tabla->Cells[1][j]=m->FieldByName("proveedor.nombre")->AsString;
                 ....
                 asd->Next();
              }
            aux->desconectar(asd);

[LordSarevok]

No se os ha ocurrido nada verdad? :/

Otra "pega" es que al ejecutar alguna insercion/update/delete no tengo mas remedio que meterle un sleep de un segundo porque si no al hacer un select nada mas escribir algo, no aparece en la consulta.