🚀 go-pugleaf

On 23/09/2006, Clayton Arends wrote:

> How small is the test app?  Is it small enough that you can post the
> code here?  Is it small enough that you can post it to the
> attachments newsgroup?

I've reduced it to a very small app: see below.
> 
> > Any thougths? What's the best way to go about tracking this down?
> 
> Whenever problems like this occur the best thing to do is either
> reduce code until the problem goes away or start from scratch and add
> code until the problem exhibits itself.
> 
> I can confirm that I have seen access violations that happen in
> release mode that do not happen in debug mode; however, it's not been
> specific to ADO.  Does your code have any startup initializers that
> rely on other startup initializers?  Does your project rely on other
> packages or libraries that you have created or other third party
> packages or libraries?  Is your project a standalone EXE?
> 
> Hopefully I have asked enough questions to get this ball rolling.

Yes, thanks for getting this started: I had just about run out of
ideas.

The code follows. It's just a very basic console mode app created by
the BCB6 console wizard. Works fine in debug mode and fails with a
memory overwrite exception in release mode.

//-------------------------------------------------------------------

#include <vcl.h>
#include <ADODB.hpp>
#include <DB.hpp>
#pragma hdrstop
//-------------------------------------------------------------------

#pragma argsused
int main(int argc, char* argv[])
{
  CoInitializeEx(NULL, COINIT_MULTITHREADED);
  AnsiString strDatabaseName =
"E:\\Work\\AntennaAudio\\Datalogger\\dev\\tmdb6X.mdb";

  AnsiString strConnectionString;
  AnsiString strSQL;
  Variant vCatalog;
  Variant vConnection;

  // Connection string. Use 4.0 to make an Access 2000 object
  strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
  strConnectionString += strDatabaseName;

  // Create the database
  vCatalog=Variant::CreateObject("ADOX.Catalog");
  vCatalog.Exec(Function("Create") << strConnectionString);
  vConnection = vCatalog.Exec(PropertyGet("ActiveConnection"));
  vCatalog.Clear();

  // Create the tables
  strSQL = "CREATE TABLE tblTest (MyIndex COUNTER(1,1) NOT NULL
CONSTRAINT PrimKey PRIMARY KEY, MySerial INTEGER, MyShort SHORT,
MyTimen DATETIME, MyText TEXT(255), MyInteger INTEGER, MyByte BYTE)";
  vConnection.Exec(Function("Execute") << strSQL);

  // Close the database
  vConnection.Exec(Function("Close"));
  vConnection.Clear();

  CoUninitialize();
  return 0;
}