回 帖 发 新 帖 刷新版面

主题:数据库动态连接的问题

getdir(0,str1);
  str4:=';Persist Security Info=False';
  str2:=str1+'/data/mansion.mdb';
  str3:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
  adoconnection1.Connected:=false;
  adoconnection1.ConnectionString:=str3+str2+str4;
  adoconnection1.Connected:=true;
做了个数据库程序,是ADO动态连接的,可是写完后拷到别人的机子上不能用,adoconnection的连接是在form 的create里面写的,代码如上,大家帮我看看是什么问题呢

回复列表 (共5个回复)

沙发

是不是没有找到数据库,是不是地址有问题
你用这个str1;= ExtractFilePath(Application.ExeName)代替getdir(0,str1);看看,或者它是不是没有Microsoft.Jet.OLEDB.4.0驱动再或者没有装office?

板凳

我看过了路径,没有什么问题,以前我也这样做,成功过,可是有时候就是不能用,用静态连接一点问题都没有,office机子上装着的,我会用楼上的先试试看的

3 楼

我大学做的,ado控件,动态连接
severname:=edit1.Text;
databasename:=edit2.Text;
sapassword:=edit3.Text;
     datamodule17.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'
     +'Persist Security Info=False;User ID=sa;Initial Catalog='+databasename+';Data Source='+severname;
     datamodule17.ADOConnection1.Connected:=true;

4 楼

控件的connection属性先设为fasle,连接属性也=它空着

5 楼

如果是sql server当然是没有问题的拉,可是我连的是access。
试了一下,原来不能用的现在又能用了,不知道怎么回事

我来回复

您尚未登录,请登录后再回复。点此登录或注册