相对路径的设置

[wangxuanyi]

ADO数据控件连接ACCESS数据库,怎样设置相对路径?
如果用ADO对象连接ACCESS数据库,怎样设置相对路径?
请大家帮忙.

[wangxuanyi]

你的答复是用ADO对象的相对路径设置编码吗?
用ADODC连接ACCESS,能设相对路径吗?
另外,请问,VB程序打包的时候,有必要把数据库也打进去吗?

[possible_Y]

当然要把数据库一起打包

[agui]

//数据库名字为calendar.mdb
var
con: TADOConnection;

con.Connected := False;
con.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(ParamStr(0)) + 'calendar.mdb;Persist Security Info=True';
con.Connected := True;

[Cooly]

dim yourpath as string
if right(app.path,1)="\" then
yourpath=app.path & "youraccess.mdb"
else
yourpath=app.path & "\youraccess.mdb"
end if

[Cooly]

dim yourpath as string
if right(app.path,1)="\" then
yourpath=app.path & "youraccess.mdb"
else
yourpath=app.path & "\youraccess.mdb"
end if

conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & yourpath &";Persist Security Info=True"

[wangxuanyi]

是不是每个ADO控件在连接SQL查询语句之前都要添加这些代码呢？
如果将来ACCESS导入SQL数据库，对SQL数据库的相对路径设置，只要改变Adodc.Connectionstring的赋值吗？
数据库文件的存放位置有必要和VB程序放在一个文件夹里吗？
如果是SQL数据库，打包的时候也要打进去吗？

[jingxiaoping]

第一问，对，第二部，有必要，第三问，是的。