客户端如何联接sql2000服务器?

Question

客户端如何联接sql2000服务器?
我现在是通过设置数据源联接的，不过如果是老点的机器通过这种方法联，速度慢
有没有其它的方法实现与SQL数据源联接的？
给个详细的代码，我的想法是输入主机IP，数据库名，数据库用户名和密码点确定就可以联上了，

Answer 1

我来顶一下，
cn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=127.0.0.1;Persist Security Info=False;User ID=sa;Password=密码;Initial Catalog=数据库名"
仅供参考

Answer 2

是局域网,就用二楼的语句做个程序联接就可以了吗？
我的客户端软件已编好，我用设定数据源的方法在客户端机器能联上sql2000了，但是这种联接方式速度有点慢，我要的是弄个小程序我在窗口输入主机IP，数据库名，数据库用户名和密码点确定就可以联上了

Answer 3

那就试试二楼的代码
当然需要引用ADO
并且声明连接如果能用ADODC连上的话可以拷贝里面的连接串

Answer 4

Option Explicit
Dim LoadSql As String
Dim ConnSql As String
Dim LoadRs As New ADODB.Recordset
Dim SqlConn As New ADODB.ConnectionPrivate Sub cmdLoadData_Click()
On Error GoTo eNext:
    If SqlConn.State = 1 Then SqlConn.Close
    ConnSql = "Provider=sqloledb;Data Source=192.168.7.8;Initial Catalog=YourDataBaseName;User Id=YourUserName;Password=YourPassword;"    SqlConn.ConnectionString = ConnSql
    SqlConn.Open
    
    LoadSql = "SELECT *  FROM ARINVT WHERE CLASS='FG'"
    If LoadRs.State = 1 Then LoadRs.Close
    LoadRs.Open LoadSql, SqlConn, adOpenKeyset, adLockOptimistic
    
    If Not LoadRs.EOF Then
        Set MSHFlexGrid1.DataSource = LoadRs
    Else
        'Your function code
    End If
    Exit Sub
eNext:
    MsgBox Err.Description, vbCritical, Err.Number
End Sub

Answer 5

一般用ADO较方便。'添加ADO，在工程->引用中选择“Mircrosoft ActiveX Objects Data 2.8 Library”。
'添加ADO，在工程->部件中选择“Mircrosoft ADO Data Control6.0 (SP6)(OLEDB)”。
'添加数据列表控件，在工程->部件中选择“Mircrosoft DataList Control6.0 (OLEDB)”。
'添加数据网格控件，在工程->部件中选择“Mircrosoft DataGrid Control6.0 (OLEDB)”。
Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
  Dim cont As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strConnection As String
  Dim strArray() As String
  Set cont = New ADODB.Connection    '创建连接
  Set rs = New ADODB.Recordset
  On Error GoTo transactsql_error
      strConnection = "Provider = Microsoft.jet.oledb.4.0; data source=" & App.Path & "\label.mdb;"
      strConnection = strConnection & "Persist Security Info=False;Jet OLEDB:Database Password='txm'"
      strArray = Split(sql)         'Split() 返回一个下标从零开始的一维数组
      cont.Open strConnection        '打开连接
      If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
          rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
          Set TransactSQL = rs
          iflag = 1
      Else
          cont.Execute sql
          iflag = 1
      End If
transactsql_exit:
      Set rs = Nothing
      Set cont = Nothing
      Exit Function
transactsql_error:
      MsgBox "查询错误：" & Err.Description
      iflag = 2
      Resume transactsql_exit
End Function服务器单独安装数据库，XP专业版下，一般安装SQL标准版、个人版、开发者版本都可，唯企业版需要windows服务器版本。而且保持运行。客户端除程序外，还需要SQL的客户端连接组件，如MDAC 2.8
安装MDAC 2.8
文件名：MDAC_TYP.EXE
　　最新版本：2.80
　　发布日期：2003/8/24
　　语言：简体中文
　　下载大小：5.3 MB
　　MDAC（Microsoft Data Access Components）是微软数据库访问组件，Netpise和许多利用数据库的软件都需要操作系统安装MDAC。很多用户的操作系统中已经存在了MDAC，有些是操作系统内置的、有些是其它应用程序安装的。
下载链接
http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=zh-cn

Answer 6

上面几位的方法都用了，可还是不行啊,
打开客户端还是出现“[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序”

Answer 7

我的数据库名baifulin，用户名sa ,密码sa ，服务器IP192.168.1.8，给个详细一点的代码

Answer 8

ConnSql = "Provider=sqloledb;Data Source=192.168.1.8;Initial Catalog=baifulin;User Id=sa;Password=sa;"

Answer 9

http://dev.csdn.net/htmls/44/44440.html

Answer 10

10楼是按5楼改的，我一般这么用
    cn.ConnectionString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=192.168.1.8;uid=sa;pwd=sa;database=baifulin;"

Answer 11

要么ADO直接连，，要么写个服务端。C/S连接