EXCEL 连接到SQL查询数据的问题，谢谢.

chrish

各位大侠，

    我想通过excel连接SQL来查询数据，excel做客户机，服务器192.168.1.90上安装了SQL2005，创建的数据库和相应的表如下图
图片

我在excel写的代码是：

Public Sub TEST()
    Dim cnn As New ADODB.Connection
    Dim cnnStr As String
    Dim Rst As New ADODB.Recordset

    cnnStr = "Provider=SQLOLEDB;" _
        & "User ID=sa;" _
        & "Password =Csq811202;" _
        & "Data Source=\\192.168.1.90\C00124145B\SQL2005;" _
        & "Initial Catalog=TEST"
    cnn.ConnectionString = cnnStr

    cnn.Open

   strSQL = "select * from [00AllGCellKPIs] WHERE (CI=101)"
     Rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

     Cells(1, 1).CopyFromRecordset Rst
End Sub

在运行上面代码的时候，说数据库找不到。

但是我到服务器上运行下面代码的时候，是可以查询数据的。
Public Sub TEST()
    Dim cnn As New ADODB.Connection
    Dim cnnStr As String
    Dim Rst As New ADODB.Recordset

    cnnStr = "Provider=SQLOLEDB;" _
        & "User ID=sa;" _
        & "Password =Csq811202;" _
        & "Data Source=C00124145B\SQL2005;" _
        & "Initial Catalog=TEST"
    cnn.ConnectionString = cnnStr

    cnn.Open

   strSQL = "select * from [00AllGCellKPIs] WHERE (CI=101)"
     Rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

     Cells(1, 1).CopyFromRecordset Rst
End Sub

请各位帮忙指教，谢谢.

Renco

cnnStr = "DRIVER=SQL Server;" _
        & "UID=sa;" _
        & "PWD=Csq811202;" _
        & "SERVER=192.168.1.90;" _
        & "DATABASE=TEST"
试试。。

chrish

Renco 发表于 2011-11-18 22:49
cnnStr = "DRIVER=SQL Server;" _
        & "UID=sa;" _
        & "PWD=Csq811202;" _

非常感谢Renco。解决了~

心驰神往

哇色 高手！以前我也遇到过类似的问题呐

hfmei2000

正在学习中………………