VBA et SQL server

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:

---

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

---

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?

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

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:

---

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

---

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

Bonjour,

Code:

---

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

---

impec !
merci