如何在程序中使用语句动态连接数据库,以及如何使用语句使adotable连接数据库中的一个表(20分)

  • 主题发起人 主题发起人 zfjzly
  • 开始时间 开始时间
Z

zfjzly

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠,小弟是位新手,这是第一次提出问题,大家不要笑话,现在我正在做一个ado控件联系一个数据库的工作,只知道在属性中设置adoconnection中 connectionstring的值和 adotable中的 tablename值来连接,但不知如何在程序中动态连接,请各位大侠多多指教!
 
adoconnection1.connectstr:='......';
adoconnection1.connected:=true;
 
adoconnection1.connectstring:='......';
adoconnection1.connected:=true;
 
adotable1.connection:=ADOConnection1;
adotable1.tablename:='...';
adotable1.active:=true;
 
procedure Tload_f.FormCreate(Sender: TObject);
begin
if dm.adoconnection1.Connected=false then
dm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'/hosp.mdb;Persist Security Info=False';
end;
 
连的是access
 
1)ACCESS
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;
Data Source='+ExtractFilePath(Application.ExeName)+'Data/BookManage.mdb;
Jet OLEDB:Database Password='+MyPassW+';Persist Security Info=False';
2)SQL Server 2000
connString:='Driver={SQL server};server='+Trim(CmbServerName.Text)+';database='+Trim(CmbDatabaseName.Text)+
';uid='+Trim(EdtUserName.Text)+';pwd='+Trim(EdtPassword.Text);
 
gaobangsheng的方法可行。
 
不好意思,各位大侠,小弟这两天有些事,没来,我用slf0205和gaobangsheng两们仁兄的方法试一下
 
接受答案了
 
后退
顶部