Me estoy volviendo loco; vale que es la primera vez que me enfrento a esta base de datos y seguro que estoy haciendo muchas cosas mal, pero así y todo me está volviendo loco.
Estoy usando con Builder 5 TDatabase, TSession y TQuery normales, de la paleta Data Access. Tengo este query:
Código:
Query->Close();
Query->SQL->Clear();
Query->SQL->Text = "SELECT num_socio, AES_DECRYPT(apellidos, 'Ju86Lfgsje340qW') apellidos, AES_DECRYPT(nombre, 'Ju86Lfgsje340qW') nombre, login_socio, activado FROM inscripciones WHERE activado IN ('A', 'P') ORDER BY apellidos, nombre, num_socio";
Query->Prepare();
Query->Open();
Se ejecuta sin dar ningún error pero al recorrerlo con este bucle para cargar un TListView:
Código:
for (; !Query->Eof; Query->Next())
{
pItem = Lista->Items->Add();
pItem->Caption = Query->FieldByName("apellidos")->AsString + ", " + Query->FieldByName("nombre")->AsString;
pItem->SubItems->Add(Query->FieldByName("login_socio")->AsString);
pItem->SubItems->Add(Query->FieldByName("num_socio")->AsInteger);
pItem->SubItems->Add(Query->FieldByName("activado")->AsString);
}
sólo me reconoce el primer registro y en cuanto trato de leer el segundo me da un
Acces violation error. He probado a cambiar la forma de recorrer la salida del query, pero lo ponga como lo ponga siempre da el mismo error y el query tiene 511 registros comprobados ejecutándolo en el shell de mysql.
Si en lugar de usar los componentes de Data Access uso los de la paleta ADO el bucle se recorre bien, pero al leer los datos de un registro cualquiera o cambiar las condiciones del query, poniendo por ejemplo
WHERE activado = 'S' me sale el mensaje de
El valor de BOF o EOF es True,o el actual registro se eliminó.
De verdad, ya no sé que hacer para que se ejecute bien el query. Cualquier ayuda es bien recibida.