VBA - Créer ADODB.Jeu d'enregistrements à partir du contenu d'une feuille de calcul

Je suis en train de travailler sur une application Excel qui interroge une base de données SQL. Les requêtes peuvent prendre du temps à s'exécuter (de 20 à 40 min). Si j'ai manquer codé quelque chose, il peut prendre un certain temps à l'erreur ou à atteindre un point de rupture. Je peux enregistrer les résultats dans une feuille fine, c'est quand je suis en train de travailler avec l'enregistrement définit que les choses peuvent exploser.

Est-il un moyen de charger les données dans un ADODB.Jeu d'enregistrements lorsque je suis de débogage pour ignorer l'interrogation de la base de données (la première fois)?

Aurais-je utiliser quelque chose comme cela?

Requête feuille de calcul Excel dans MS-Access VBA (à l'aide de ADODB jeu d'enregistrements)

Qui semble bien pour moi, attention à la chaîne de connexion si vous utilisez une version de plus qu'en 2003.
Merci pour le commentaire. Espérais un brin de code ou un lien vers un plus explicite exemple. Sans doute, ma question ne demande essentiellement une réponse oui/non. De ma faute. 🙂

OriginalL'auteur robault | 2010-03-20

  1. 6

    J'ai dû installer MDAC pour obtenir le msado15.dll et une fois que je l'ai eu, j'ai ajouté une référence à partir de (sur Win7 64 bits):

    C:\Program Files (x86)\Common Files\System\ado\msado15.dll

    Puis j'ai créé une fonction pour retourner un ADODB.Objet Recordset en passant dans un nom de la feuille qui existe dans le classeur actif. Voici le code pour tout les autres si ils en ont besoin, y compris un Test() Sub pour voir si ça fonctionne:

    Public Function RecordSetFromSheet(sheetName As String)

Dim rst As New ADODB.Recordset
Dim cnx As New ADODB.Connection
Dim cmd As New ADODB.Command

    'setup the connection
    '[HDR=Yes] means the Field names are in the first row
    With cnx
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source='" & ThisWorkbook.FullName & "'; " & "Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
        .Open
    End With

    'setup the command
    Set cmd.ActiveConnection = cnx
    cmd.CommandType = adCmdText
    cmd.CommandText = "SELECT * FROM [" & sheetName & "$]"
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic

    'open the connection
    rst.Open cmd

    'disconnect the recordset
    Set rst.ActiveConnection = Nothing

    'cleanup
    If CBool(cmd.State And adStateOpen) = True Then
        Set cmd = Nothing
    End If

    If CBool(cnx.State And adStateOpen) = True Then cnx.Close
    Set cnx = Nothing

    '"return" the recordset object
    Set RecordSetFromSheet = rst

End Function

Public Sub Test()

Dim rstData As ADODB.Recordset
Set rstData = RecordSetFromSheet("Sheet1")

Sheets("Sheet2").Range("A1").CopyFromRecordset rstData

End Sub

    La feuille Sheet1 de données:
    Champ1 Champ2 Champ3
    Rouge 1
    Bleu B 2
    C Vert 3

    Ce qui doit être copiée dans la feuille Sheet2:
    Rouge 1
    Bleu B 2
    C Vert 3

    C'est me sauver une ÉNORME quantité de temps à partir de l'interrogation par rapport à SQL à chaque fois que je veux faire un changement et de la tester...

    --Robert

    Les données de la feuille ne sont pas alignés comme je le voulais, on dirait que les retours chariot sont éliminés de commentaires. Espérons que cela a du sens de toute façon.
    cmd.State n'est pas un masque de bits, il suffit d'utiliser cmd.State = adStateOpen
    Merci! (pour le pointage)

    OriginalL'auteur robault

  2. 2

    Plus simple serait d'utiliser rs.Save "filename" et rs.Open "filename" pour sérialiser côté client jeux d'enregistrements de fichiers.

    Bon point, qui pourrait fonctionner, mais je n'ai pas essayé. J'ai été en mesure d'utiliser la solution dans la Fonction VBA ci-dessus. Merci pour l'astuce. Cela pourrait avoir fait le tour.

    OriginalL'auteur wqw