🚀 go-pugleaf

I'm building a small test app that queries an Access database using ADO; I
manually instantiate the Connection and DataSet objects, instead of having
them placed in a form.

The problem I'm having is that a weird exception is thrown when I'm deleting
the DataSet object.

The exception is: "Either BOF or EOF is True, or the current record has been
deleted. Requested operation requires a current record."

The minimal code I could come-up that shows this behaviour is next. If you
want to try it, please make sure you have an actual MDB file and change
file, table and column names to match those of your MDB.

Thanks in advance for any help!

Claudio A. Heckler

Note: code follows; the exception is triggered when the "delete oDataSet;"
line is executed;

Note2: this is a simple EXE app, with default compile switches;


// ======================= code starts here =======================

// Connection string:
AnsiString sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
                      ExtractFilePath(Application->ExeName) + "Contas.mdb";

// create the connection object
TADOConnection *oConnection = new TADOConnection(NULL);
oConnection->LoginPrompt = false;
oConnection->Mode = cmReadWrite;
oConnection->ConnectionString = sConnStr;
oConnection->Connected = true;

// the SQL select statement:
AnsiString sSQL = "Select * From tbUsuario";

// create the DataSet object
TADODataSet *oDataSet = new TADODataSet(NULL);
oDataSet->Connection = oConnection;
oDataSet->CommandText = sSQL;
oDataSet->Open();

// do something ...
AnsiString sBuffer = "";
while (!oDataSet->Eof)
{
   sBuffer = sBuffer + oDataSet->FieldByName("fdNome")->Value + "\r\n" ;
   oDataSet->Next();
}
MessageDlg("Records read: \r\n" + sBuffer,
        mtInformation, TMsgDlgButtons() << mbOK, 0);

// delete the dataset
delete oDataSet;         // !!! this is where I get the error !!!
oDataSet = NULL;

// delete the connection:
oConnection->Connected = false;
delete oConnection;
oConnection = NULL;

// ======================= code ends here =======================