connection ODBC Persistante sous Excel

connection ODBC Persistante sous Excel - VB/VBA/VBS - Programmation

Marsh Posté le 20-06-2007 à 15:31:19    

Bonjour,
 
J'essaye de créer une petite macro sous excel qui me permette d 'actualiser un certains nombres de cellules dans excel depuis une base de donnée Mysql.
par contre je cherche à ouvrir une seule fois la connexion ODBC et non une fois à chaque fois que je lance une requete.
 
voici mon code actuelle qui me prend trop de temps :
 

Code :
  1. Conn = "ODBC;"
  2. Conn = Conn & "DSN=glpi;"
  3. Conn = Conn & "SERVER=10.10.10.10;"
  4. Conn = Conn & "UID=admin;"
  6. Sheets("recap" ).Select
  7. Sheets("test" ).Select
  9. With ActiveSheet.QueryTables.Add(Connection:=Conn, Destination:=Range("D4" ))
  10.         .CommandText = Array("select serial from glpi_computers where glpi_computers.name='test'" )
  11.         .Name = "Lancer la requête à partir de glpi"
  12.         .FieldNames = False
  13.         .RowNumbers = False
  14.         .FillAdjacentFormulas = False
  15.         .PreserveFormatting = True
  16.         .RefreshOnFileOpen = False
  17.         .BackgroundQuery = True
  18.         .RefreshStyle = xlInsertDeleteCells
  19.         .SavePassword = False
  20.         .SaveData = True
  21.         .AdjustColumnWidth = False
  22.         .RefreshPeriod = 0
  23.         .PreserveColumnInfo = True
  24.         .Refresh BackgroundQuery:=False
  25.     End With
  27.     With ActiveSheet.QueryTables.Add(Connection:=Conn, Destination:=Range("A15" ))
  28.         .CommandText = Array( _
  29.         "select glpi_computers.name, glpi_software.name from glpi_computers" & Chr(13) & "" & Chr(10) & "left outer join glpi_inst_software on glpi_inst_software.cid=glpi_computers.id" & Chr(13) & "" & Chr(10) & "left outer join glpi_licenses on glpi_inst_software." _
  30.         , _
  31.         "license=glpi_licenses.id" & Chr(13) & "" & Chr(10) & "left outer join glpi_software on glpi_licenses.sid=glpi_software.id" & Chr(13) & "" & Chr(10) & "where glpi_computers.name='GS11SLWI025'" & Chr(13) & "" & Chr(10) & "order by glpi_software.name asc" _
  32.         )
  33.         .Name = "Lancer la requête à partir de glpi"
  34.         .FieldNames = False
  35.         .RowNumbers = False
  36.         .FillAdjacentFormulas = False
  37.         .PreserveFormatting = True
  38.         .RefreshOnFileOpen = False
  39.         .BackgroundQuery = True
  40.         .RefreshStyle = xlInsertDeleteCells
  41.         .SavePassword = False
  42.         .SaveData = True
  43.         .AdjustColumnWidth = True
  44.         .RefreshPeriod = 0
  45.         .PreserveColumnInfo = True
  46.         .Refresh BackgroundQuery:=False
  47.     End With
  49. Sheets("temp" ).Select
  50. End Sub


 
qqn pourrait me dire comment faire pour ouvrir une fois pour toute la connexion dans la macro?
 
merci


Message édité par p'titmath le 20-06-2007 à 15:32:33
Reply

Marsh Posté le 20-06-2007 à 15:31:19   

Reply

Marsh Posté le 20-06-2007 à 16:21:36    

Help, no one? :<

Reply

Marsh Posté le 20-06-2007 à 16:28:36    

Une connexion ça s'ouvre et ça se ferme (sinon on a des problèmes)
Il te faut donc fabriquer une fonction pour l'ouvrir, une pour la fermer et enlever les instructions de connexion de ton actuelle macro de lancement de requete.

 

La question importante à se poser est quand veux-tu ouvrir la connexion et quand dois-tu la fermer ?
Les évènements d'ouverture et de fermeture de ton classeur sont des pistes à suivre pour cela mais, évidemment, cela dépend de tes besoins.

 

Entre l'ouverture et la fermetrue tu pourras lancer autant de requetes qeu tu veux en utilisant l'objet Conn (déclaré public).

 



Message édité par tegu le 20-06-2007 à 16:29:18
Reply

Marsh Posté le 20-06-2007 à 16:32:18    

je suis bien d accord pour les connectoins.
 
en fait la connections doit se faire au lancement de la macro
apres je lance mes différentes requetes sur mes différents onglets.
seulement à la fin je fermerais la connection.
 
en fait je cherche surtt à avoir la syntaxe justement pour déclarer cette  ouverture et fermeture de connection.
 
merci =)

Reply

Marsh Posté le 20-06-2007 à 16:59:18    

Cherche sur ce forum et le web à « ADODB.Connection »

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed