procedure TDm.DataModuleCreate(Sender: TObject);
var
  Database,Databaseserver,user,Password,FileName:String;
begin  FileName:=ExtractFilePath(application.ExeName)+'DataLink.ini';
  DataLink:=TIniFile.Create(FileName);
  DataBaseServer:=DataLink.ReadString('connectionstring','DataBaseServer',
    'TS');
  DataBase:=DataLink.ReadString('connectionstring','DataBase',
    'TS');
  User:=DataLink.ReadString('connectionstring','user',
    'TS');
  Password:=DataLink.ReadString('connectionstring','Password',
    'TS');
  Adoc.ConnectionString:='Provider=SQLOLEDB.1;Password='+password+
  ';Persist Security Info=True;User ID='+user+';Initial Catalog='+database+';Data Source='+DataBaseServer;end;
编辑时最后一句有问题,请各位帮我分析一下是哪里的问题?TKS!

解决方案 »

  1.   

    Adoc.ConnectionString:='Provider=SQLOLEDB.1;Password='+password+
      ';Persist Security Info=True;User ID='+user+';Initial Catalog='+database+';Data Source='+DataBaseServer;这种格式应该没有问题的
    你的格式不太理解没有用过Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Boss001
      

  2.   

    我重新调整了一下,发现是我换行出现的编辑错误,但运行后仍然联不上数据库,经查以上DataBaseServer、database、Password、user的值都是对的,运行时提示连接不成功若这种方法不行,怎样做才对,请各位再帮帮手。TKS!
      

  3.   

    是不是服务器的sql server就连不上,在sql server连一下目标试
      

  4.   

    不是啊,我用手工的方法在adoconnection中的connectionstring中设置是没问题的。再帮我想想吧,或者有没有其它方法在数据模块里联接数据库,方法是怎样的。TKS!