一个简单的问题，看书也不少，例子也试了，就是不是不对。在线等呀。

Question

是一个关于VB联连SQL2000的代码。我试过以下几个方法。
1。
'实时错错误 '-2147467259(80004005)'
'[DBNETLIB][connectionopen  (connect()).] 未找到指定的SQL server
'以下是代码
'========================================================
  Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    'Access 2000的連接
  '  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"
    'SQL Server2000的連接
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=sa;Data Source=ksd"
    pubConn.Open strConn
    
    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTable
'==========================================================================2
'实时错错误 '-2147467259(80004005)'
'[DBNETLIB][connectionopen  (connect()).] 未找到指定的SQL server
'以下是代码
Private Sub Form_Load()
  Dim Cn As New ADODB.Connection
  Dim Rs As New ADODB.Recordset
If Cn.State = 0 Then Cn.Open "Provider=SQLOLEDB;data Source=newsql;Initial Catalog=ksd;User Id=sa;Password=sa"
End Sub
'============================================================================
3
'实时错误 '-2147467259(80004005)'
'[DBNETLIB][connectionopen  (connect()).] SQL Server 不存在或拒绝访问。
'以下是代码
Private Sub Form_Load()
  Dim Cn As New ADODB.Connection
  Dim Rs As New ADODB.Recordset
If Cn.State = 0 Then Cn.Open "Provider=SQLOLEDB;data Source=127.0.0.1;Initial Catalog=ksd;User Id=sa;Password=sa"
End Sub
'================================================================
我的SQL实例叫NewSql  数据库名叫ksd 用户sa 密码sa
数据表:ksb
现在Newsql的服务管理器正在运行。帮帮忙呀。2

Answer 1

晕！你的服务器名在哪里？
    'SQL Server2000的連接
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=sa;Data Source=ksd"

Answer 2

cn.open "driver={sql server};server=newsql;uid=sa;pwd=sa;database=ksb"

Answer 3

感谢 xiaoxiaoP(小小)，也不行
提示'实时错错误 '-2147467259(80004005)'
'[DBNETLIB][connectionopen  (connect()).] 未找到指定的SQL server

Answer 4

data source=服务器名或IP地址;initial catalog=数据库名;user id=登录用户;password=密码;persist security info=True;packet size=4096我一直用这样的连接字符串，也没太注意过后面两个的具体含义，反正一直正常运行。

Answer 5

dim adocon1 as ADODB.Connection
        Set adocon1 = New ADODB.Connection 
        sql = "Provider=SQLOLEDB.1;User ID=用户名;password=密码;Initial Catalog=数据库名;Data Source=服务器名或IP
        adocon1.ConnectionTimeout = 10
        adocon1.Open sql

Answer 6

还有：
    Set DataGrid1.DataSource = rsTable
    DataGrid1.refresh

Answer 7

这样应该可以: dim adocon1 as ADODB.Connection
        Set adocon1 = New ADODB.Connection 
        sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ksd;Data Source=localhost pwd=sa"
        adocon1.ConnectionTimeout = 10
        adocon1.Open sql