可以动态建立BDE呀,ODBC没有BDE好用
以下为动态建立一类型为MSACCESS的BDE别名,并连接到各数据库组件。
可在MyList的字符串列表中加入所指定数据库类型的BDE类型。
详情请在帮助文件中找TSession关键字,看一下TSession的Method就知道了。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString tPath;
TStringList* MyList = new TStringList();
tPath= ExtractFileDir(Application->ExeName);
try
{
MyList->Add("c://db1.mdb");
Session->AddAlias ("selfBDE","MSACCESS",MyList);
Session->Open();
Session->Active =true;
Database1->AliasName ="selfBDE";
Database1->DatabaseName ="sb";
Database1->LoginPrompt =false;
Database1->Connected =true;
Table1->DatabaseName="sb";
Table1->TableName ="table1";
Table1->Active =true;
Query1->DatabaseName ="sb";
Query1->DataSource =DataSource1;
}
catch(...)
{
Application->MessageBoxA ("数据库连接失败","error",MB_OK);
}
}