ODBC连接数据库问题 ( 积分: 100 )

  • 主题发起人 主题发起人 lizhihong158
  • 开始时间 开始时间
L

lizhihong158

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个小程序,用的是别人的Access数据库,数据库有密码。用ADO不能连接,我用ODBC已经连接上了,但连接的是绝对路径,我希望连接的是相对路径,请各位高手指点,最好是实例说明,拜托了!
 
我看你还是用INI文件读取吧.我给你一个连接方式.:

http://www.delphibbs.com/keylife/iblog_comment.asp?xid=26957


//连接access,我的数据库为csmis.mdb
procedure Tcs_yh_login.FormActivate(Sender: TObject);
var lj:string;
sql:string;
begin
lj:=ExtractFilePath(Application.ExeName);
sql:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+
'Data Source='+lj+'csmis.mdb;Mode=Share Deny None;'+
'Extended Properties="";Persist Security Info=False;'+
'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
// 'Jet OLEDB:Don"'+'t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
cs_data.csconnect.connectionstring:=sql;
cs_data.csconnect.connected:=false;
cs_data.csconnect.connected:=true;
end;
 
这个可以用相对路径.
 
我也来学学
 
问题解决.谢谢!
 
后退
顶部