Vba Excel ADODB 在现金数据集中预加载以更快地查询大型 Access 数据集 500000 行

Question

下午好，我遇到了一个问题：Excel 2010 Access 2000 从 Access 外部数据库中检索数据的速度（47 秒--> 我想达到 3 秒）

我打开的开幕活动中的代码我运行这个宏：

'I define connection and dataset as public
Public conn As ADODB.Connection
Public mrs As ADODB.Recordset
Public cmd As ADODB.Command

Public DBPath As String
Public strConn As String
Public strSQL As String

Public Sub preloadDataset()

Set conn = New ADODB.Connection
Set mrs = New ADODB.Recordset

DBPath = ThisWorkbook.Path & Application.PathSeparator & "Exported.mdb"

    With conn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data source=" & DBPath
        .Open
    End With


Set cmd = New ADODB.Command
strSQL = "SELECT * FROM [Database_5000Rows] WHERE "PrNameHelp" = ? AND "ScCompHelp" LIKE ""%?%""

    Set cmd.ActiveConnection = conn
    cmd.CommandText = strSQL
    cmd.CommandType = adCmdText
    cmd.Prepared = True

        'MANUAL creation of parameters
        cmd.Parameters.Append cmd.CreateParameter("PrNameHelp", adLongVarChar, adParamInput)
cmd.Parameters.Append cmd.CreateParameter("ScCompHelp", adLongVarChar, adParamInput)

End sub

主要宏：

Public Sub ADO_retrieve_Ext_file()

cmd("PrNameHelp") = str01
cmd("ScCompHelp") = str02

cmd.Execute

Application.Calculation = xlCalculationManual
    Sheet1.Range("A1").CopyFromRecordset mrs
Application.Calculation = xlCalculationAutomatic

End sub

在闭幕式上：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'**********************
    ''Close Recordset
    mrs.Close
    ''Close Connection
    conn.Close
    Set mrs = Nothing
    Set Conn = Nothing
'**********************

End sub

如何定义参数来处理 Access 的 SQL 正确字符串？ 这是使用参数的正确方法还是将整个数据库上传到 RAM 中更好？

谢谢恩里科

Answer 1

将数据复制到工作表时，请尽量避免在完成之前对其进行更新。 用：

Application.ScreenUpdating = False 

和

Application.ScreenUpdating = true

Answer 2

已解决：以编程方式索引 Access 中表的第一列