🚀 go-pugleaf

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