Querytables.add sur SQL server, problème de variables SQL

Version imprimable

Bonjour,

je rencontre actuellement un gros problème de communication vba/SQL server.

J'utilise querytables.add pour soumettre mes requêtes, ce qui ne pose jamais de soucis, SAUF dans le cas où la requête fait intervenir des variables SQL. Dans ce cas, une erreur est rejetée par vba, alors que la même requête exécutée directement en SQL ne pose pas de soucis.

Exemple tout bête :
DECLARE @liste varchar(3);set @liste='500';select @liste;

Pas de problème SQL (bon, peut-être pas la syntaxe la plus professionnelle, ça je ne sais pas), mais impossible à exécuter en vba avec le bloc suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 requete_SQL="DECLARE @liste varchar(3);set @liste='500';select @liste;" With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DRIVER=SQL Server;SERVER=XXX;UID=XXX;PWD=XXX;APP=Microsoft Office 2003;WSID=ITEM-60109" _ , Destination:=Range(rang)) .CommandText = requete_SQL .Name = "Lancer la requête à partir de XXX" .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=True End With
bloc qui ne m'a jamais causé de problème sur de simples Select.

L'utilisation de SQL server via vba autorise-t-elle la création de variables SQL?
Si oui, où est mon erreur? :massacre:

Merci !

ps : si le sujet a plus sa place dans le forum SQL server, merci de le déplacer !

09/01/2013, 14h28
supierre

peut-u décrire le message d'erreur en question? et sur quelle ligne le vba s'arrête?
09/01/2013, 14h35
sms5962

si je laisse l'option

Code:

.Refresh BackgroundQuery:=True

pas d'erreur, mais la réponse affichée dans Excel est

Citation:

Lancer la requête à partir de XXX

et pas le

Citation:

500

auquel je m'attend

avec

Code:

.Refresh BackgroundQuery:=False

le code s'arrête à cette ligne, avec une erreur d'exécution '1004', erreur définie par l'application ou par l'objet
10/01/2013, 10h42
issoram

Bonjour,

Citation:

L'utilisation de SQL server via vba autorise-t-elle la création de variables SQL?

A mon avis tu ne peux faire que du Select dans le

Code:

.CommandText

As tu vraiment besoin de créer ces variables via VBA?

Cordialement.
10/01/2013, 11h38
sms5962

Ma requête fait intervenir une concaténation des différents résultats, que je trouve bien plus pratique à faire directement en SQL qu'en vba.
D'autant plus que je ne me suis pas intéressé à d'autres méthodes de requêtage que le querytable.

Je ne vois pas de système de concaténation SQL sans passer par une variable.
Soit je continue avec le querytable et je concatène différentes cases Excel en une, soit je passe en objet vba, que je ne maitrise absolument pas...
10/01/2013, 12h15
issoram

Qu'appelles tu

Citation:

concaténation SQL

Tu as un exemple sous la main?

le but est de concaténer dans une chaine tous les résultats de la requête (donc les lignes, et non pas les différents champs d'un résultat=colonne)
Code:

1 2 3 4 5 6 DECLARE @liste varchar(8000); SET @liste = ''; select @liste= @liste + cast(champ1 AS VARCHAR)+ ',' FROM data1, data2 WHERE ... select @liste;

Si j'ai bien compris tu veux transformer

Code:

1
2
3
data1
data2
data3

Code:

data1,data2,data3

Perso je ferais comme ça (en supposant que la concaténation ne peut pas se faire directement dans la requête SQL):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim plageData as Range
Dim i as Long
Dim strRes as String
Dim Data as variant
 
With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER=SQL Server;SERVER=XXX;UID=XXX;PWD=XXX;APP=Microsoft Office 2003;WSID=ITEM-60109" _
        , Destination:=Range(rang))
        .CommandText = requete_SQL
        .Name = "Lancer la requête à partir de XXX"
        ......
        .plageData = .ResultRange    'plage contenant le résultat de la requête
End With
 
strRes = ""
 
If Not plageData Is Nothing Then
 
        Data = plageData.Value   ' Tes données sous forme d'un tableau
        For i = LBound(Data, 1) To UBound(Data, 1)   'pour toutes les lignes de la plage ie tous les enregistrements de la requête
            strRes = IIf(i = LBound(Data, 1), Data(i, 1), strRes & "," & Data(i, 1))
        Next i
End If

10/01/2013, 15h04
sms5962

exact.

c'est ce que j'ai choisi de faire, mais assez déçu finalement du lien SQL VBA. Je ne suis pas expert en sql, mais j'espère qu'il y a des moyens de créer des variables sql dans des sessions virtuelles, sans utiliser l'outil propre à sql.
10/01/2013, 15h10
issoram

Oui, il y' en a mais il faut "travailler" un petit peu plus... Jette un coup d’œil là dessus si tu as le temps.

Cordialement.

PS: Pense à mettre en "Résolu" si le sujet est clos pour toi.
10/01/2013, 15h21
sms5962

Merci pour le lien !