在一个局域网内,其中一台机子上装有SQL Server 2000数据库,其它机子不要求装SQL Server 2000客户端,用ADO连接SQL Server 2000数据库时,连接字符串怎么写。还有没有其它的方法来连接谢谢!
解决方案 »
- FastReport 如何显示二维码
- 高分寻找一些文件流和视频流的资料和例子?
- 各位大哥帮个忙,谁有关于图形比较的差影法的代码,发上来或是发到我的邮箱里,谢谢!
- delphi指针程序运行出错
- 怎样将自定义的Frame在设计时放置到Form上
- 还是FastReport 3.0的问题
- 120分 求禁止DBLookupComboboxEh1的自动填充功能的方法
- 关于打包问题,在线
- 欢迎加入程序员大本营QQ群1836561
- “我是高手,我怕这题吗?”高手说,“对!我来!”众高手强答。
- 关于取PDF,文本等文件
- Delphi有没有对应的C函数atof, _wtof, atoi, _wtoi, _atoi64, _wtoi64, atol, _wtol
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1'
';Persist Security Info=True;User ID=%s'+
';Initial Catalog=%s'+
';Data Source=%s'+
';Use Procedure for Prepare=1;Auto Translate=True;'+
'Packet Size=4096;Use Encryption for Data=False;'+
'Tag with column collation when possible=False';procedure TBillApplicationServer.InitConnection;
var
ini: TIniFile;
sPath,sType: string;
begin
sPath:=ExtractFilePath(getLibDir);
ini := TIniFile.Create(sPath+'jfSvr.ini');
try
try
if MainConnection.Connected then MainConnection.Close;
sType:=ini.ReadString('Database','Type','');
MainConnection.ConnectionString:=Format(AdOLinkSQLServerStr,
[ini.ReadString('Database','SPassWord',''),ini.ReadString('Database','SUserID',''),
ini.ReadString('Database','SCatalog',''),ini.ReadString('Database','SAddress','')])
MainConnection.Open;
sDebugFileName:=ini.ReadString('Debug','DebugFileName','');
bDebug:=sDebugFileName<>'';
except
on E: Exception do WriteDebugLog(E.Message);
end;
finally
ini.Free;
end;end;