Discussion :

[ricoree78]

bonjour
je souhaiterai construire une requête pour sql server dans une macro vba
je n'arrive pas a la construire je ne connais pas du tout la syntaxe a appliquer
pouvez vous me filer un coup de main ?
merci

je voudrais dans cette ligne .CommandText = Array("""DB35"".""dbo"".""TOTO""")
faire un select ..... from DB35..TOTO a,DB35..TATA b
where a.toto=b.toto



voici le script généré via l'assistant VBA pour recuperer de la donnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=eeeeee;Password=eeeee;Data Source=eeeeeee;Use Procedure for Prepare=1;Auto Translate=" _
        , _
        "True;Packet Size=4096;Workstation ID=eeeeeeeee;Use Encryption for Data=False;Tag with column collation when possible=False;In" _
        , "itial Catalog=DB35"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("""DB35"".""dbo"".""TOTO""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

[Invité]

Bonsoir,
Je comprends pas ce que tu veux faire!
Un requêtes persistante dans Excel ou importer des données de Sql serveur vers Excel?

[ricoree78]

salut

je veux faire une requête persistante dans excel (dans le codde vba) qui importera d'une base sql server les datas que je souhaite

après il y a peut être d'autres solutions pour requêter une base sql server via VBA

merci

[Invité]

Bonjour,
Une requête persistante permet de définir une connexion ODBC dans un classeur Excel et d'affecter le résultat d'une requête a une plage de cellules. C'est que de l'affiche assujetti a un connexion ODBC. Si tu fournis le classeur par mail par exemple le données ne seront jamais mis a jour et tous traitement sur cet onglet seront incohérent!
En d'autres termes si tu utilises la requête pour calculer l'âge du capitaine, le résultats deviendra caduc dès l'instant ou une valeur changera dans la base de données car ta requête réévaluera ses valeurs de temps en temps!

Je serai fortement désappointé si je voyais sur mon blog a 10H30 une image de 10H30 avec le commentaire posté a 10h00! A savoir une région dévasté par un tsunami et un commentaire qui dit c'est cool!


Ce n'est pas importation mais une visualisation!

Un import consiste a ce connecter a une base de données requêter dessus coller le résultat dans Excel et clôturer la connexion.

Ma question n'était pas fortuite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
With CreateObject("AdoDb.Connection")
       .Open "Provider=SQLNCLI;Server=" & Server & ";Database=" & BASE & ";UID=" & User & ";PWD=" & Password & ";"
Activecell.copyfromrecordset .Execute("select ..... from DB35..TOTO a,DB35..TATA b where a.toto=b.toto")
.Close
End with

[ricoree78]

merci
cela répond parfaitement a mon besoin

une dernière petite chose
je voudrai afficher les champs de ma requête
j'ai passé la commande dans le bloc with avant le .close

.FieldNames = True

mais cela bug

saurais tu comment afficher les champs de mon select dans ma feuille excel ?

encore merci

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With CreateObject("AdoDb.Connection")
       .Open "Provider=SQLNCLI;Server=" & Server & ";Database=" & BASE & ";UID=" & User & ";PWD=" & Password & ";"
 
   Set rs = .Execute("select ..... from DB35..TOTO a,DB35..TATA b where a.toto=b.toto")
    For i = 0 To rs.Fields.Count - 1
        Range("A1").Offset(0, i) = rs(i).Name
       Next
 Range("A2").CopyFromRecordset rs
.Close
End With

[ricoree78]

impec !
merci