如何保存AdoConnection控件的connectionstring 属性? connectionstring是一个字符串,保存为文件,但最好加密存放,因为数据库密码也在其中。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在不同的机器上时第一次连接时还是要设置的,把adoconnectionString整个string字串保存到注册表或ini文件里以后每次调用时都先到注册表或ini文件里找出原先的连接设置赋到adoconnection组件里 在软件启动时设置AdoConnection控件的connectionstring :procedure TMainForm.FormCreate(Sender: TObject);varS:String;beginwith ADOConnection doBeginConnected:=false;S:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="'+ExtractFilePath(Application.ExeName);//这是路径S:=S+'Student.mdb";Mode=Share Deny None;Extended Properties="";';S:=S+'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;';S:=S+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';S:=S+'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';ConnectionString:=S;Connected:=true;End;ADODataSet.Active:=true;end; 本地文件夹共享,急急急!!!-----------------------ing 请高手帮忙,问一个比较难的涵数? 发了两贴仍然没有解决,各位再帮看看! treeview中如何更新子树 如何在一个线程中创建子线程 sql查询问题 多線程問題(在線等待) 高分悬赏,奇怪的'Invalid Class TypeCast' 如何释放一个动态数组? 好奇怪!请各位帮忙看看这个dll注册的问题 怎样在运行其间移动一个TImage控件~~~~~~~~~~~~~~~~~ DELPHY编的数据库应用程序打包,如何设置KEY的STRING值,我用的是ODBC数据源。
把adoconnectionString整个string字串保存到注册表或ini文件里
以后每次调用时都先到注册表或ini文件里找出原先的连接设置赋到adoconnection组件里
var
S:String;
begin
with ADOConnection do
Begin
Connected:=false;
S:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="'+ExtractFilePath(Application.ExeName);//这是路径
S:=S+'Student.mdb";Mode=Share Deny None;Extended Properties="";';
S:=S+'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;';
S:=S+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
S:=S+'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';
ConnectionString:=S;Connected:=true;
End;
ADODataSet.Active:=true;
end;