大白鲨请教--ADO发行问题?

[shak]

大白鲨请教--ADO发行问题?

用ADO开发本地数据库,采用cbc自带的bcdemos.mdb,在D:\Program Files\Borland5\Borland Shared\Data目录下
采用组件ADOConnection1+ADOTable1+DataSource1+DBGrid1能成功运行
如何使数据库与路径无关,经摸索一番只得到iddao32.dll是必须的
可以在其他的贴子给分

[shak]

好久没人看了
分不回很少

[shak]

好久没人看了
分不回很少

[shak]

up

[yuyulily]

将数据库与EXE文件放到同一目录下，ADOConnection1的ConnectionString属性的数据库路径动态设置为EXE的路径

[sjz9521]

DataSource->Text =GetCurrentDir()+"\\MastDbs.mdb"; //取得MDB的存放路径
const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s"; //连接串的参数形式
try
{
if (!ADODate->ADOCon->Connected)
{
ADODate->ADOCon->ConnectionString = Format (ConnStr, ARRAYOFCONST(((String)Provider->Text,
(String)DataProvider->Text, (String)DataSource->Text)));//连接串
ADODate->ADOCon->Connected =true; //连接数据库
}
}
catch (Exception &exception)
{
ShowMessage("数据库连接错误,确定退出程序!");
FrmMain->Close();
}

这个是连接ACCESS的MDB的方法

[sjz9521]

用BCB5子带的INSTALL SHELL做安装程序 会自动找到需要的文件不必你自己去找

[dycdyc123]

try {
Table1->Open();
}
catch (...)
{
Table1->DatabaseName=ExtractFilePath(Application->ExeName)+"\data" ;
// Qy_NextID->DatabaseName = ExtractFilePath(Application->ExeName)+"\data" ;


You can try!!!!

[shak]

sjz9521(笨笨)　你的方法是不是测试过???
如果你做过 这方面软件请寄给我原代码 [e-mail]
请到http://www.csdn.net/expert/TopicView asp?id=224471
我再给分你

[daozhao]

ADOConnection1有个ConnectionString是设置ado的连接的。
你在程序写这个属性。不要在IDE界面编写这个属性。

[sjz9521]

是测试过的，不过代码很大怎么给啊

[shak]

DataSource->Text =GetCurrentDir()+"\\MastDbs.mdb"; //取得MDB的存放路径
const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s"; //连接串的参数形式
try
{
if (!ADODate->ADOCon->Connected)
{
ADODate->ADOCon->ConnectionString = Format (ConnStr, ARRAYOFCONST(((String)Provider->Text,
(String)DataProvider->Text, (String)DataSource->Text)));//连接串
ADODate->ADOCon->Connected =true; //连接数据库
}
}
catch (Exception &exception)
{
ShowMessage("数据库连接错误,确定退出程序!");
FrmMain->Close();
}

这个是连接ACCESS的MDB的方法

定义?内容?
DataSource->Text
DataProvider->Text
Provider->Text
是什么组件?
ADODate->ADOCon->