🚀 go-pugleaf

���� ��������.

 AnsiString Path = ExtractFilePath(Application->ExeName) + "Data\\";
//��� AnsiString Path = GetCurrentDir() + "\\Data\\";

ADOConnection1->Connected = false;

 ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"
  "Data Source=" + Path + "test.mdb";

 ADOConnection1->LoginPrompt = false;
 ADOConnection1->Connected = true;


������, ��� �� �����?
� C, ��� ���������� �������� ������ \\ ���������������� ��� \, �.�.

AnsiString Str = "a\\b\\c";

����� ����� Str ����� a\b\c

� ���������,
�������� �.�.
http://www.oledbdirect.com

"Slava Sh." <slava@space.com> �������/�������� � �������� ���������:
news:3c99c030_1@dnews...
> 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
>
>