问有关于ADOConnection的问题,高分酬谢! 我在程序里已经创建好DSN和指定了数据库的路径(用的是MS ACCESS),现在我想用ADOConnection来连接这个DSN,程序里要怎么写呢?是不是用它的ConnectionString属性呢?望指明,谢谢!给分,说到做到! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用ConnectionString,他有个向导,选择odbc driver,按照向导做。你可以将向导产生的字符串在程序中根据dsn动态设置. 对,我就是用的这个ConnectionString,不过我建议你在程序里动态设置,那样对你以后的设计有好处! 你是用odbc来使用access建立dsn吧,ado是不用dsn的,他们不是一种方式你要连接直接使用connectionstring 不用dsn的 可以用一个函数来指定你的Connection,函数是:PromptDataSource(handle,DataConnStr);自己试一下就知道了。 Resourcestring strConn = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;'+ 'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System '+ 'database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database '+ 'Password=123;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking '+ 'Mode=0;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';//===========procedure TMData.DataModuleCreate(Sender: TObject);var strFile: string;begin if dbTemp.Connected then dbTemp.Connected := False; strFile := ExtractFilePath(Application.ExeName) + 'temp.mdb'; dbTemp.ConnectionString := Format(strConn, [strFile]); try dbTemp.Connected := True; except //other code end;end; Delphi 调用C++ 写的一个Dll的问题,急!!!! delphi对access数据操作,like in()出错!! 请问高手一程序打包问题?急急! 求发票金额栏控件 文本编辑器如何实现自动完成的功能? 帮忙推荐一下实现备忘录和日记的控件 我好郁闷呀。。。。。。。^<>^ combobox的级联显示 chart控件中怎样动态的把柱状图变为线性图? 请问csdn上的高手们,用全局钩子能不能拦截计算机用户的删除操作?? =====我要被它折磨死了!===== 怎么样通过CGI接受工作站上发过来的图片呀?(最好能说明原理与源码^_^)
你以后的设计有好处!
你要连接直接使用connectionstring 不用dsn的
自己试一下就知道了。
strConn = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;'+
'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System '+
'database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database '+
'Password=123;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking '+
'Mode=0;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';//===========
procedure TMData.DataModuleCreate(Sender: TObject);
var
strFile: string;
begin
if dbTemp.Connected then dbTemp.Connected := False;
strFile := ExtractFilePath(Application.ExeName) + 'temp.mdb';
dbTemp.ConnectionString := Format(strConn, [strFile]);
try
dbTemp.Connected := True;
except
//other code
end;
end;