访问 VBA：无法初始化数据提供程序

Posted 2023-04-19

【中文标题】访问 VBA：无法初始化数据提供程序

【英文标题】：Access VBA : Data provider could not be initialized

【发布时间】：2018-01-03 22:40:24

【问题描述】：

从“查找”表单转到“主表单”时出现此错误。

步骤是

打开主窗体 点击mani表单上的“查找”按钮，打开另一个名为“查找”的表单 点击“查找”表单上的“查找”按钮 在主窗体上加载记录

代码：

Private Sub cmdFind_Click()

    Dim SQLString As String
    Dim TitleString As String
    Dim con         As ADODB.Connection
    Dim cmd         As ADODB.Command

    If production_batch_find.Form.RecordsetClone.RecordCount > 0 Then        

        SQLString = "sku IN (SELECT sku FROM production_batch WHERE [user] = '" & getUsr & "')"    

    Else        

        If IsNull(txtSKU.Value) = False Then            

            If Len(txtSKU.Value) < 9 Then                

                If IsNumeric(txtSKU.Value) Then                    
                    txtSKU.Value = "MN" & String(7 - Len(txtSKU.Value), "0") & txtSKU.Value                    
                Else                    
                    MsgBox "The SKU you entered isn't a valid product number.", vbCritical, "Invalid SKU"                    
                    Exit Sub                
                End If            

            End If

            SQLString = "sku = '" & txtSKU.Value & "'"

        Else

            If IsNull(txtTitle.Value) = False Then                

                TitleString = txtTitle.Value                

                Do
                    If InStr(TitleString, "  ") > 0 Then
                        TitleString = Replace(TitleString, "  ", " ")
                    Else
                        Exit Do
                    End If
                Loop

                If Left(TitleString, 6) = "like '" Or Left(TitleString, 6) = "like " & Chr(34) Then                    

                TitleString = Mid(TitleString, 7)                    

                    If Right(TitleString, 1) = Chr(34) Or Right(TitleString, 1) = Chr(39) Then
                        TitleString = Left(TitleString, Len(TitleString) - 1)
                    End If

                    SQLString = "title LIKE '" & InsertChr39(TitleString) & "' OR ID IN (SELECT ID FROM Variants WHERE Variant LIKE '" & InsertChr39(TitleString) & "')"

                Else

                    SQLString = "title = '" & InsertChr39(TitleString) & "' OR ID IN (SELECT ID FROM TitleVariants WHERE VariantTitle = '" & InsertChr39(TitleString) & "')"

                End If

            Else

                If IsNull(txtSongID.Value) = False Then
                    SQLString = "(ID = " & txtSongID.Value & ")"
                End If

            End If

            If IsNull(cmbName.Value) = False Then
                SQLString = SQLString & IIf(SQLString > "", " AND ", "") & "(songid IN (SELECT ID FROM Names WHERE Nameno  = " & cmbName.Value & "))"
            Else
                If IsNull(cmbPrimary.Value) = False Then
                    SQLString = SQLString & IIf(SQLString > "", " AND ", "") & "Primary = " & cmbPrimary.Value
                End If
            End If

            If IsNull(cmbStatusID.Value) = False Then
                SQLString = SQLString & IIf(SQLString > "", " AND ", "") & "StatusID = " & cmbStatusID.Value
            End If

            If IsNull(cmbPublisher.Value) = False Then
                SQLString = SQLString & IIf(SQLString > "", " AND ", "") & "PublisherID = " & cmbPublisher.Value
            End If

        End If

    End If

    If SQLString = "" Then        
        MsgBox "You haven't entered any search criteria", vbInformation, "No Search"
        Exit Sub    
    End If

    SQLString = "SELECT * FROM Production WHERE " & SQLString

    Forms("Production").RecordSource = SQLString

    DoCmd.Close acForm, "ProductionFind"

End Sub

在主窗体上加载记录后，用户可以从组合框“自动搜索”中选择一个选项，然后该选项将执行驻留在 sql server 上的存储过程，并将其输出用作其形式为 RecordSource。

代码：

Private Sub cmbAutoSearch_Click()

    Dim ADOCon As ADODB.Connection
    Dim ADOQD As ADODB.Command
    Dim ADORS As ADODB.Recordset
    Dim SearchSQL As String

    SearchSQL = ""

    Set ADOCon = New ADODB.Connection
    With ADOCon
        .ConnectionString = GetConnectionString("MNCatalog")
        .Open
    End With

    If cmbAutoSearch.Value = 101 Then    

        Set ADOQD = New ADODB.Command
        With ADOQD
            .ActiveConnection = ADOCon
            .ActiveConnection.CursorLocation = adUseClient
            .CommandType = adCmdStoredProc
            .CommandText = "[dbo].[mn_Production_Derived_Products_Hierarchy]"
            .Parameters.Append .CreateParameter("@sku", adVarChar, adParamInput, 10, SKU.Value)
        End With

        Set ADORS = New ADODB.Recordset
        With ADORS
            .CursorType = adOpenKeyset
            .CursorLocation = adUseClient
            Set ADORS = ADOQD.Execute()
            Set Me.Recordset = ADORS.Clone
        End With    

    End If

    Set ADOQD = Nothing
    Set ADORS = Nothing    
    ADOCon.Close: Set ADOCon = Nothing

    Exit Sub

End Sub

存储过程的输出被分配到这一行：

Set Me.Recordset = ADORS.Clone

记录已加载，到目前为止一切似乎都运行良好，如果有多个记录，用户可以在该结果集上来回导航。

当用户在使用组合框选项/功能后尝试使用“查找”表单时会出现此问题。

步骤：

点击mani表单上的“查找”按钮，打开另一个名为“查找”的表单 点击“查找”表单上的“查找”按钮

然后出现运行时错误“31”。

“无法初始化数据提供者。”

当我运行调试器时，我看到错误发生在“查找”表单代码的这一行中：

Forms("Production").RecordSource = SQLString

我可以看到之前对存储过程的调用仍然是记录源值。

所以我尝试了这个：

Forms("Production").RecordSource = ""
Forms("Production").RecordSource = SQLString

即使这“清除”了 call stored procedure ? 的值（类似的东西），仍然返回相同的错误。

我很迷茫，我不知道如何纠正这个错误。任何建议都会很棒。也许是我想太多了，这是用简单的东西来解决的。

提前谢谢你。

【参考方案1】：

尝试将您的数据从 ADO 连接导入本地临时表，然后将 recordsource 属性设置为该数据。如本文所述older blog post

这样的事情可能会有所帮助：

dim t as tabledef, i as integer
for each t in currentdb.tabledefs
select case t.name
    case "myTempTable"
        currentdb.tabledefs.delete "mytemptable"
end select
next t

currentdb.execute "CREATE TABLE ..."

ADORS.MoveFirst
for i = 0 to ADORS.RecordCount -1
    currentdb.execute "INSERT INTO myTempTable " & _
        ADORS(i).Fields("FieldName1").Value & " as [FieldName1], " & _
        etc.
next i
...

【讨论】：

嗨，克里斯。让我试一试。很快就会报告。

我尝试了更改并导致了同样的错误。现在，我第一次粘贴的子程序版本是一个较小的版本。我不想包含整个代码，但我发现这也可能会干扰我需要的帮助。我已经粘贴了 Find 函数的原始 vba 代码。

您是否尝试过使用 DAO 连接？在这里看到这篇文章：blogs.msdn.microsoft.com/cristib/2014/08/28/…

我最终用我在 sql server 的存储过程中使用的查询创建了一个视图，然后通过访问我创建了一个指向 sql 视图的链接。这样我就不必创建与 sql server 的额外连接并丢失本地访问状态。这是一个简单的工作......现在。感谢您在此问题上提供的帮助。

我将您的帖子标记为解决方案，因为我阅读了您包含的文章，并且似乎这也是一个有效的解决方案，只是涉及更多一点。谢谢。