🚀 go-pugleaf

>What is wrong? I'm closing the connection.

You do but ADO does not - this is named connection pooling. If you will open
connection again, ADO will provide you existing (cached) one. Sometimes
adding "OLE DB Services=-2" to connection string (to ADOConnection, not to
ADOX catalog) could help, sometimes not.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Martin Moeller" <martin.moeller@moema.it> �������/�������� � ��������
���������: news:408eb23f$1@newsgroups.borland.com...
>
> Hi Vassiliev,
>
> > If you have MS Office, look
> > C:\Program Files\Common Files\Microsoft
Shared\OFFICEXX\XXXX\JETSQL40.CHM
> > (XX are numbers, may differ for different office and language)
> >
> > for details on Jet SQL. In MSDN search for "Jet SQL" and check "Search
in
> > titles only". You will find 3 articles -
> "Intermediate/Fundamental/Advanced
> > Microsoft Jet SQL for Access 2000".
> >
>
> The MS-Office help path is a deadlock (installation of italian version is
> completelly different & the help opened within office has all statements
> translated as used in application wizards and thereby not good to form sql
> statements).
>
> The JetSQL search fails, but searching directly "Microsoft Jet SQL for
> Access 2000" leads to those 3 articles & the *are* a very usefull
> documentation.
> Working through them.
>
> I have a file open problem. My code deletes & creates a new database file.
> It works fine only once per debugg session; the second time it fails as
the
> file is already open. What is wrong? I'm closing the connection.
>
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
>
>   AnsiString FileName="..\\MsAccessTestFile.mdb";
>   if(FileExists(FileName)==true)
>     DeleteFile(FileName);
>
>   // create new file
>   WideString ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;"
>                       "Data Source=" + FileName;
>   Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
>   cat->Create(ConnStr.c_bstr());
>   cat.Release();
>
>
>   // Pass to TAdoConnection component
>
>   ADOConnection->ConnectionString=ConnStr.c_bstr();
>   ADOConnection->LoginPrompt=false;
>   ADOConnection->Mode=cmShareDenyNone;
>   ADOConnection->Provider="Microsoft.Jet.OLEDB.4.0";
>   ADOConnection->Open();
>
>
>   // creates Table Micro
>   WideString ExecuteString="";
>   ExecuteString=  "CREATE TABLE Micro"
>                   "([PRKEY]   AutoIncrement NOT NULL, \
>                     [MicID]   Text(16) NOT NULL, \
>                     [Active]  DATETIME NULL, \
>                     [Line]    Numeric NULL, \
>                     [NetID]   Numeric NULL, \
>                     [ErrSt]   Numeric NULL, \
>                     [EepFile] NCHAR (20) NULL, \
>                     [Notes]   Memo, \
>                     PRIMARY KEY (PRKEY) \
>                     )";
>   ADOConnection->Execute(ExecuteString.c_bstr());
>
>   ExecuteString=  "CREATE TABLE  Lines" \
>                   ( [VerDate]   DATETIME  NOT NULL, \
>                     [Line]      Numeric NOT NULL, \
>                     [ComPort]   NCHAR (5) NULL, \
>                     [BaudRate]  Numeric NULL, \
>                     [Type]      NCHAR (6) NULL, \
>                     [Notes]     Memo, \
>                     PRIMARY KEY (VerDate,Line) \
>                     )";
>
>   ADOConnection->Execute(ExecuteString.c_bstr());
>
>
>   ExecuteString=  "CREATE INDEX idxMicId"
>                   "ON Micro (MicID DESC)" ;
>
>   ADOConnection->Execute(ExecuteString.c_bstr());
>
>   ADOConnection->Close();
>
> }
>
>
> Tks, Martin
>
>