一个奇怪的问题

Question

偶的机器装的是XP PRO，VB6打SP6补丁，在用 adodc连接MDB数据库没问题，但连接SQL SERVER，就会提示：ADODC1   未找到提供程序。该程序可以未正确安装。
偶已经用WIN2000 SERVER，VB6打SP5，从来没出现过这样的情况，各为帮个忙呀。

Answer 1

我也遇到过这个问题，在xp就是不好使，你可以在xp下用ado，不用adodc就可以了
在98、2000都没有这样的问题出现

Answer 2

不会那么凄凉吧，用ADO如何连接，朋友

Answer 3

下面的代码是动态连接数据库的函数及数据查询函数
Dim msgtext As String
Dim mrc As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    'Dim SQL As String
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(sql)
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
       cnn.Execute sql
       MsgString = sTokens(0) & "query successful"
    Else
       Set rst = New ADODB.Recordset
       rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
      
       
       Set ExecuteSQL = rst
        
       MsgString = "查询到" & rst.RecordCount & "条纪录"
    End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Exit Function
    Set cnn = Nothing
ExecuteSQL_Error:
    MsgString = "查询错误:" & Err.Description
    Resume ExecuteSQL_Exit
End FunctionPublic Function ConnectString() As String
    ConnectString = "Provider=sqloledb;Data Source=13.1.1.55;Initial Catalog=aaa;User Id=cl;Password=;"
End Function

Answer 4

为什么连接mdb就没问题，连接sql server 就会提示那个错误？？