fonction SQL dans macro excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : fonction SQL dans macro excel

p'titmath

bonsoir,

pte question qui risque de sembler simple pour bcp mais mes connaissances en VB sont proches du Zero.

objectif :
dans un fichier excel, je dois lancer X requetes SQL afin de mettre à jour des cellules sachant que je vais avoir X requetes par onglet et j ai autant d'onglet que de machines

La macro semble tourner correctement (conencte bien à la base, change bien d'onglet) mais elle ne m'insere rien dans mes cellules excel.
en lancant juste la requete d'insertion cela fonctionne mais vu la volumétrie cela n'est pas jouable

si une ame charitable pouvait me dire comment faire SVP

Code :

Sub Run()
Dim name
'--------------------------------
'GS11SLWI001
'--------------------------------
Sheets("GS11SLWI001" ).Select
name = "GS11SLWI001"
Call requete
'--------------------------------
'GS11SLWI025
'--------------------------------
Sheets("GS11SLWI025" ).Select
name = "GS11SLWI025"
Call requete
End Sub
Sub requete()
Conn = "ODBC;"
Conn = Conn & "DSN=glpi;"
Conn = Conn & "SERVER=10.10.10.10;"
Conn = Conn & "UID=admin;"
'type OS
With ActiveSheet.QueryTables.Add(Connection:=Conn, Destination:=Range("B4" ))
.CommandText = Array("SELECT glpi_dropdown_os.name FROM glpi_dropdown_os RIGHT OUTER JOIN glpi_computers ON glpi_computers.os = glpi_dropdown_os.id WHERE glpi_computers.name = '" & name & "' " )
.name = "Lancer la requête à partir de glpi"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
'OS Version
With ActiveSheet.QueryTables.Add(Connection:=Conn, Destination:=Range("B5" ))
.CommandText = Array("SELECT glpi_dropdown_os_version.name FROM glpi_dropdown_os_version RIGHT OUTER JOIN glpi_computers ON glpi_computers.os_version = glpi_dropdown_os_version.id WHERE glpi_computers.name = '" & name & "' " )
.name = "Lancer la requête à partir de glpi"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

Message édité par p'titmath le 21-06-2007 à 19:05:04

Publicité

p'titmath

help no one?

jpcheck

Pioupiou

n'utilisant pas ce type de bdd, je tente qd même une réponse.
tu veux le résultat de ta requête, mais est-ce qu'il est possible d'avoir, via ta destination, plusieurs solutions ?
j'entends par là, si le recordset de ta requete contient plusieurs résultats, iront-ils en b5, puis b6 b7 etc. ?
et test tout bete a faire, est-ce que la requete que tu fais hors d'excel te donne un résultat ou pas ?

p'titmath

en fait qd je n'appelle pas de fonction mais que je tape les requetes à la mano les unes à la suites des autres , cela fonctionne bien sans souci. (mes cellules sont biens remplis).

ce qui est bizarre, c'est qu'excel lance bien la connection ODBC, se connecte à la base mais je n'ai aucun retrour dans les cellules.

il doit me manquer un truc tout bete mais quoi ;<

p'titmath

des news !

en fait en passant la commande

name = "gs11slwi025" directement dans la fonction requete il me sort bien des valeurs.

donc en fait il faut arriver à faire passer la variable name dans la fonction requete.

est ce que qqn sait?

jpcheck

Pioupiou

ben ...
sans le call tu fais direct

Code :

requete(name)

et dans la définition de la fonction tu mets

Code :

sub requete (name as string)

tegu

On devrait interdire les débutants

Tu dois déclarer un paramètre à ta fonction requete() comme ça :
Sub requete(name As String)

et appeler cette procédure avec la syntaxe suivante
Call requete(name)

Vérifie bien quand même que tu n'as pas, en plus, un problème de majuscules/minuscules (gs11slwi025 ou GS11SLWI025)

edit: grillé, voilà ce que c'est de faire plusieurs trucs en même temps

Message édité par tegu le 22-06-2007 à 10:47:35

p'titmath

lol
oui je sais, j'avoue que le dev et moi ca fait 40, mais j apprend =)
comme on dit c'est en forgeant qu'on devient forgeron

merci en tt cas ca marche

FORUM HardWare.fr

Programmation

VB/VBA/VBS

fonction SQL dans macro excel

Sujets relatifs
[SQL] Fonctionnement des sous-requêtes	[SQL] aide avec la fonction MAX()
[VBA Excel]Passage d'une variable d'un Userform à un autre	[RESOLU] librairie C pour le buzzer pc ? fonction frequence ?
connection ODBC Persistante sous Excel	Requêtes SQL sur AS400 via lien ODBC ? (PHP)
Problème d'insert into en masse MySql / Sql	copier coller cellule excel dans word à partir d'excel
Faire un ping sous excel
Plus de sujets relatifs à : fonction SQL dans macro excel

Page générée en 0.052 secondes