在一个局域网内,其中一台机子上装有SQL Server 2000数据库,其它机子不要求装SQL Server 2000客户端,用ADO连接SQL Server 2000数据库时,连接字符串怎么写。还有没有其它的方法来连接谢谢!

解决方案 »

  1.   


    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=127.0.0.1'
      

  2.   

    用ADO连接直接设置它的连接属性,选择你的SQL数据库就可以了,其他的可以用BDE,不过需要配置BDE。用ADO更方便。
      

  3.   

    一个动态配置ADO连接的例子:  AdOLinkSQLServerStr = 'Provider=SQLOLEDB.1;Password=%s'+
                   ';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;
      

  4.   

    支持上面的!其实你只要在Delphi环境下手动用ADO连接一下SQL服务器,测试成功后将连接字符串复制下来,加在你程序里就行了,不过UserName、PassWord和Data Source最好从文件读取。如果必要,可以将相关的属性在Open之前设置好。