数据库动态连接问题
我用ini文件保存数据库连接信息,以便动态更改数据库连接。
代码如下:
var ini:Tinifile;
Password,UserID, DataSource:string;
begin
ADOConnection1.Connected := false;
ini:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'DBAccess2.ini');
Password := ini.ReadString('DataBase', 'Password', '') ;
UserID := ini.ReadString('DataBase', 'UserID', '') ;
DataSource := ini.ReadString('DataBase', 'DataSource', '') ;
ini.Free;
//Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xywy;Data Source=JT703;
//Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=JT703;
//Use Encryption for Data=False;Tag with column collation when possible=False
try
//Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=baiyin;Data Source=stock
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='+Password
+';User ID='+UserID+';Data Source='+DataSource+';Persist Security Info=False';
//ADOConnection1.ConnectionString :=
//'Provider=MSDASQL.1;Persist Security Info=False;Data Source=prx;Initial Catalog=C:\Program Files\Common Files\Borland Shared\Data';
ADOConnection1.Connected := true;
except
showmessage('连接数据库失败!');
application.Terminate;
end;
showmessage('连接数据库成功!');
//adoquery1.Active:=true;
end;
程序运行后显示数据库成功,但是所连的表名无效,我用adoquery控件进行数据库操作。如何在进行设置!!请高手解决!在线等!!!
问题点数:0、回复次数:5Top
1 楼wenjianyao(建)回复于 2004-12-03 12:49:36 得分 0
upTop
2 楼qgj99(qgj99)回复于 2004-12-03 12:55:33 得分 0
强烈关注!Top
3 楼windy_224(边Cheng浪子)回复于 2004-12-03 13:41:21 得分 0
这么深奥的问题啊,学习Top
4 楼Samland(samland)回复于 2004-12-03 13:45:20 得分 0
记得adoquery1.Connection:= ADOConnection1 哦Top
5 楼taotaobujue()回复于 2004-12-03 13:48:17 得分 0
我已经解决啦,谢谢大家!Top




