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!
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!
';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