🚀 go-pugleaf

SOS ! ( . . .  _ _ _ . . .)

Help !!!


VARIANT1
~~~~~~~~~

Working code:
===========

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//
//  ����������
//
     try
     {
       if(DM->ADOConnection->Connected == true)
       {
        DM->ADOConnection->Close();
       }

        DM->ADOConnection->ConnectionTimeout = 15;
        DM->ADOConnection->LoginPrompt = false;
//
      ConnectionString =

    "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data
Source=C:\\WORK\\C_Project\\BCB5\\testADO\\Data\\cat22.mdb";

//
        DM->ADOConnection->ConnectionString = ConnectionString;

//
        DM->ADOConnection->Open("Admin", "");
//
        DM->CATADOTable->Connection = DM->ADOConnection;
        DM->CATADOTable->Open();
        DM->RISADOTable->Connection = DM->ADOConnection;
        DM->RISADOTable->Open();
        DM->DETADOTable->Connection = DM->ADOConnection;
        DM->DETADOTable->Open();
        DM->SEDADOTable->Connection = DM->ADOConnection;
        DM->SEDADOTable->Open();
        DM->UZLADOTable->Connection = DM->ADOConnection;
        DM->UZLADOTable->Open();
    }
     catch(EOleException &E)
     {
      Application->MessageBox(
      "��������� �������������� �������� ��� ���������� � ����� ������ !",
      "����������� ������",
      MB_OK + MB_ICONSTOP + MB_SYSTEMMODAL);
     }
}



VARIANT2:
~~~~~~~~~

NOT WORKING CODE (ERROR -> "C:\WORK\C_Project\BCB5\testADO\Data\cat22.mdb'
is not valid path)
============================================================================
====
note: path exist !!!


void __fastcall TForm1::Button1Click(TObject *Sender)
{
//
//  ����������
//
     try
     {
       if(DM->ADOConnection->Connected == true)
       {
        DM->ADOConnection->Close();
       }

        DM->ADOConnection->ConnectionTimeout = 15;
        DM->ADOConnection->LoginPrompt = false;
//
// Get current Dir
//
        GetCurrentDirectory(MAX_PATH, CurPath);

        PathToDatabase = ExtractFilePath(CurPath) + "\Data";
        FileNameOfDatabase = "cat22.mdb";
        PathToDatabase += "\\" + FileNameOfDatabase;

        CurPath[0] = '\0';
        strcpy(CurPath, PathToDatabase.c_str());

        TempPath[0] = '\0';

        int j = 0;
//
// add '\' + '\'
//
        for(int i = 0; i <= strlen(CurPath) - 1; i++)
        {
         TempPath[j] = CurPath[i];

         if(TempPath[j] == '\\')
         {
          j++;
          strcat(TempPath, "\\");
         }
         j++;
        }

        TempPath[j] = '\0';
//
// TempPath[] = >>>> "C:\\WORK\\C_Project\\BCB5\\testADO\\Data\\cat22.mdb";
//
      ConnectionString=  "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
Info=False;Data Source=";
      ConnectionString += AnsiString(TempPath);
//
        DM->ADOConnection->ConnectionString = ConnectionString;
//
        if(GetFileAttributes(TempPath) == 0xFFFFFFFF)
        {
          Application->MessageBox(
        "File not exist !",
        TempPath,
        MB_OK+MB_SYSTEMMODAL);
        }
         else
         {
                Application->MessageBox(
        "OK - try to connect...",
        TempPath,
        MB_OK+MB_SYSTEMMODAL);

//
// try to connect  (file exist !!!)
//
        DM->ADOConnection->Open("Admin", "");
//
        DM->CATADOTable->Connection = DM->ADOConnection;
        DM->CATADOTable->Open();
        DM->RISADOTable->Connection = DM->ADOConnection;
        DM->RISADOTable->Open();
        DM->DETADOTable->Connection = DM->ADOConnection;
        DM->DETADOTable->Open();
        DM->SEDADOTable->Connection = DM->ADOConnection;
        DM->SEDADOTable->Open();
        DM->UZLADOTable->Connection = DM->ADOConnection;
        DM->UZLADOTable->Open();
    }
     catch(EOleException &E)
     {
      Application->MessageBox(
      "��������� �������������� �������� ��� ���������� � ����� ������ !",
      "����������� ������",
      MB_OK + MB_ICONSTOP + MB_SYSTEMMODAL);
     }
}

What`s wrong in VARIANT 2?

Slava