1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| AnsiString Chemin1,Chemin2;
AnsiString cheminBD1="C:\\Options.mdb";
if(FileExists(cheminBD1))
{
DataModule1->ADOConnection1->Close();
Chemin1 ="Provider=Microsoft.Jet.OLEDB.4.0;"
"Data Source= "+ cheminBD1+";"+
"User Id=admin;Password=;";
DataModule1->ADOConnection1->LoginPrompt=false;
DataModule1->ADOConnection1->ConnectionString =Chemin1;
DataModule1->ADOConnection1->Open();
DataModule1->Param->Open();
DataModule1->Param->First();
AnsiString cheminBD2 =
IncludeTrailingPathDelimiter(DataModule1->Param->FieldByName("Libellé")->AsString)
+ DataModule1->Param->FieldByName("Libellé1")->AsString;
if(FileExists(cheminBD2))
{
DataModule1->ADOConnection2->Close();
Chemin2 ="Provider=Microsoft.Jet.OLEDB.4.0;"
"Data Source= "+ cheminBD2+";"+
"User Id=admin;Password=;";
DataModule1->ADOConnection2->LoginPrompt=false;
DataModule1->ADOConnection2->ConnectionString = Chemin2 ;
DataModule1->ADOConnection2->Open();
DataModule1->Query1->Open();
...
}
else
MessageBox(Handle, "Base de données introuvable", "logiciel", MB_ICONSTOP);
}
else
MessageBox(Handle, "Options introuvables", "logiciel", MB_ICONSTOP); |