Una duda con TADODataSet

[LordSarevok]

el !this->ADODataSet1->Eof es igual que el this->ADODataSet1->Eof!=true, es como el i++ o el i=i+1; aunque se escriban de forma diferente, funcionan igual, no es mas que una comodidad para el programador (vamos eso creo). Yo uso el !=true porque me gusta mas.

El mensage yo lo entiendo como si intentase cerrar con el objeto estando nulo o algo parecido, pero eso me parece imposible, joer que es una consulta y pueden existir algunas con 0 tuplas.

Es que aunque no acceda al eof, este va a estar a true si la consulta no devuelve nada, no me valdria ni siquiera saber cuantas filas me devolvio el select.

De momento por no pararme en esto y seguir avanzando lo que hago es un count de la consulta y si es 0 no la ejecuto, asi si funciona, pero es muy bestia tener que hacer dos consultas en vez de una.

[[maeyanes]]

Que es lo que haces dentro del while... creo que ahí puede estar el meollo del asunto...


Saludos...

[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);