Comment corriger « Erreur d'exécution 3704 : l'opération n'est pas autorisée lorsque l'objet est fermé » dans Excel VBA lors de l'accès aux bases de données SQL ?

Accès à la base de données SQL dans Excel-VBA : résolution de l'erreur 3704

En réponse à la requête concernant « Erreur d'exécution 3704 : opération n'est pas autorisé lorsque l'objet est fermé" rencontré lors de la copie de données d'une base de données SQL vers une feuille Excel à l'aide de VBA, la réponse fournie suggère ce qui suit modifications :

Extrait de code modifié :

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

Modifications apportées :

• Catalogue initial Ajouté : La chaîne de connexion est désormais initialisée avec le paramètre "Catalogue initial", spécifiant la base de données à accès.
• Commande SQL simplifiée : Au lieu d'utiliser ADODB.Command, une simple instruction SQL (strSQL) est créée et utilisée directement pour ouvrir le jeu d'enregistrements.
• Affectations de champs simplifiées : Le format "Fields["FieldName].Value" utilisé pour attribuer des valeurs de champ est supprimé.

En implémentant ces modifications, le problème de fermeture du jeu d'enregistrements est résolu, ce qui permet une récupération et une copie réussies des données dans la feuille Excel.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!