Requête Tables (tables de requête) dans Excel 2010 avec VBA de VBA de la création de nombreuses connexions

Vous pourriez vous demander pourquoi vous êtes en train de créer une table de requête à chaque fois dans votre code. Il y a des raisons de le faire, mais elle n'est généralement pas nécessaire.

QueryTables sont plus généralement au moment de la conception des objets. Qui est, vous créez votre table de requête une fois (à l'aide de code ou de l'INTERFACE utilisateur) et la réactualisation de la table de requête pour obtenir des données à jour.

Si vous avez besoin de modifier l'instruction SQL sous-jacente, vous avez quelques options. Vous pouvez configurer les Paramètres d'invite pour une valeur ou l'obtenir à partir d'une cellule. Une autre option pour changer le SQL est en train de changer dans le code pour que la table de requête.

Sheet1.QueryTables(1).CommandText = "Select * FROM ...."
Sheet1.QueryTables(1).Refresh

Vous pouvez sélectionner les différentes colonnes, ou encore les différentes tables en changeant CommandText. Si c'est une autre base de données, vous aurez besoin d'une nouvelle connexion, mais c'est assez rare.

Je sais que de ne pas répondre directement à votre question, mais je pense que déterminer si vous avez vraiment besoin d'ajouter de la table de requête à chaque fois est la première étape.

Pour en savoir plus sur les Paramètres, consultez la http://dailydoseofexcel.com/archives/2004/12/13/parameters-in-excel-external-data-queries/ C'est pour 2003, donc il y a quelques incohérences avec les versions ultérieures. Les bases sont les mêmes, vous avez juste besoin d'apprendre à propos de l'objet ListObject si vous êtes à l'aide de 2007 ou plus tard.

OriginalL'auteur Dick Kusleika

Vous devez déclarer la connexion comme un objet distinct, alors vous pouvez le fermer une fois la requête de base de données est complète.

Je n'ai pas le VBA IDE en face de moi, donc excusez-moi si il y a des inexactitudes, mais il faut vous diriger dans la bonne direction.

E. g.

Dim SQL As String
Dim con As connection

Set con = New connection
con.ConnectionString = "ODBC;DSN=DB01;UID=;PWD=;Database=MyDatabase"

Worksheets("Received").QueryTables.Add(Connection:=con, Destination:=Worksheets("Received").Range("A5"), SQL:=SQL).Refresh

con.close
set con = nothing

OriginalL'auteur st0000

Au lieu d'ajouter une autre table de requête avec la add méthode, vous pouvez simplement mettre à jour la Propriété CommandText de la connexion. Cependant, vous devez être conscient qu'il y a un bug lors de la mise à jour de la CommandText propriété d'une connexion ODBC. Si vous passer temporairement à une connexion OLEDB, mise à jour de votre CommandText de la propriété, puis revenez à ODBC, il ne crée pas de la nouvelle connexion. Ne me demandez pas pourquoi... cela fonctionne pour moi.

Créer un nouveau module et insérez le code suivant:

Option Explicit

Sub UpdateWorkbookConnection(WorkbookConnectionObject As WorkbookConnection, Optional ByVal CommandText As String = "", Optional ByVal ConnectionString As String = "")

With WorkbookConnectionObject
    If .Type = xlConnectionTypeODBC Then
        If CommandText = "" Then CommandText = .ODBCConnection.CommandText
        If ConnectionString = "" Then ConnectionString = .ODBCConnection.Connection
        .ODBCConnection.Connection = Replace(.ODBCConnection.Connection, "ODBC;", "OLEDB;", 1, 1, vbTextCompare)
    ElseIf .Type = xlConnectionTypeOLEDB Then
        If CommandText = "" Then CommandText = .OLEDBConnection.CommandText
        If ConnectionString = "" Then ConnectionString = .OLEDBConnection.Connection
    Else
        MsgBox "Invalid connection object sent to UpdateWorkbookConnection function!", vbCritical, "Update Error"
        Exit Sub
    End If
    If StrComp(.OLEDBConnection.CommandText, CommandText, vbTextCompare) <> 0 Then
        .OLEDBConnection.CommandText = CommandText
    End If
    If StrComp(.OLEDBConnection.Connection, ConnectionString, vbTextCompare) <> 0 Then
        .OLEDBConnection.Connection = ConnectionString
    End If
    .Refresh
End With

End Sub

Ce UpdateWorkbookConnection sous-programme ne fonctionne que sur la mise à jour OLEDB ou ODBC connexions. La connexion ne doit pas nécessairement être liée à un tableau croisé dynamique. Il résout également un autre problème et permet de mettre à jour la connexion, même si il y a plusieurs tableaux croisés dynamiques basés sur la même connexion.

Pour lancer la mise à jour il suffit d'appeler la fonction avec l'objet de connexion et de commande les paramètres de texte comme ceci:

UpdateWorkbookConnection ActiveWorkbook.Connections("Connection"), "exec sp_MyAwesomeProcedure"

Vous pouvez éventuellement mettre à jour la chaîne de connexion.

OriginalL'auteur Brian Pressler

Essayer le réglage de la table de requête.MaintainConnection valeur False à la propriété...

"Set MaintainConnection True si la connexion à la source de données spécifiée doit être maintenue après l'actualisation et jusqu'à la fermeture du classeur. La valeur par défaut est True! Et il ne semble pas être une INTERFACE utilisateur case à cocher pour ce (Lecture/écriture Boolean)"

OriginalL'auteur Leighton