Bagaimana untuk Betulkan 'Run-time error 3704: Operasi tidak dibenarkan apabila objek ditutup' dalam Excel VBA Apabila Mengakses Pangkalan Data SQL?

Mengakses Pangkalan Data SQL dalam Excel-VBA: Menyelesaikan Ralat 3704

Sebagai tindak balas kepada pertanyaan berkenaan "Run-time error 3704: Operation tidak dibenarkan apabila objek ditutup" ditemui semasa menyalin data daripada pangkalan data SQL ke helaian Excel menggunakan VBA, jawapan yang diberikan mencadangkan pengubahsuaian berikut:

Coretan Kod Diubah Suai:

Sub GetDataFromADO()
    'Declare variables'
        Set objMyConn = New ADODB.Connection
        Set objMyRecordset = New ADODB.Recordset
        Dim strSQL As String

    'Open Connection'
        objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=MyDatabase;User ID=abc;Password=abc;"
        objMyConn.Open

    'Set and Execute SQL Command'
        strSQL = "select * from myTable"

    'Open Recordset'
        Set objMyRecordset.ActiveConnection = objMyConn
        objMyRecordset.Open strSQL

    'Copy Data to Excel'
        ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)

End Sub

Perubahan Dibuat:

• Awal Katalog Ditambah: Rentetan sambungan kini dimulakan dengan "Initial Katalog", menyatakan pangkalan data untuk diakses.
• Perintah SQL Mudah: Daripada menggunakan ADODB.Command, penyataan SQL mudah (strSQL) dicipta dan digunakan terus untuk membuka set rekod.
• Tugasan Lapangan Dipermudahkan: Format "Field["FieldName].Value" yang digunakan untuk menetapkan nilai medan dialih keluar.

Dengan melaksanakan pengubahsuaian ini, isu dengan set rekod ditutup diselesaikan, membolehkan pengambilan data yang berjaya dan penyalinan ke helaian Excel.

Atas ialah kandungan terperinci Bagaimana untuk Betulkan 'Run-time error 3704: Operasi tidak dibenarkan apabila objek ditutup' dalam Excel VBA Apabila Mengakses Pangkalan Data SQL?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!