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
| 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 =DataModule1->Param->FieldByName("Libellé")->AsString+DataModule1->Param->FieldByName("Libellé1")->AsString;
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();
// Edit2->Text=Chemin;
}
else
{
int rep=MessageBox(Handle,"Base de données introuvable","logiciel",MB_ICONSTOP ) ;
} |
Partager