Discussion :

[wanted08]

Bonjour à tous, j'aimerai récupérer les les valeurs du serveur et de ma base de données pour chacune de mes sources ODBC stockée dans

Code :

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

HKEY_CURRENT_USER\Software\ODBC\ODBC.INI

. j'ai les noms de mes sources dans une table access que j'utilise comme paramètre . voici le code:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
 Dim strServer As String * 256
 Dim strDatabase As String * 256
    Dim Key As String
    Dim lngResult As Long
    Dim lngRetval As Long
    Dim lngLength As Long
    Dim lngKey As Long
    Dim i As Integer
    Dim rstTable As Recordset
    Dim rstTable2 As String
 
    Set rstTable = CurrentDb.OpenRecordset("T_DataSource", dbOpenDynaset)
 
     While Not rstTable.EOF     
     rstTable2 = Nz(rstTable("DataSources"), "")
 
   MsgBox rstTable2
   Key = "SOFTWARE\ODBC\ODBC.INI\" & rstTable2
     MsgBox Key
    lngResult = RegOpenKeyEx(HKEY_CURRENT_USER, Key, ByVal 0&, KEY_QUERY_VALUE, lngKey)
 
             MsgBox lngResult
 
             If lngResult <> ERROR_SUCCESS Then
         MsgBox "Impossible d'ouvrir la clé de registre" &
         Exit Sub
     End If
 
          If lngResult = ERROR_SUCCESS Then
 
                        lngLength = 256
 
   ' Retrieve the value of the key
    lngRetval = RegQueryValueEx( _
       lngKey, "Server", 0, 0, ByVal strServer, lngLength)
    MsgBox Left(strServer, lngLength)
 
    lngRetval = RegQueryValueEx( _
       lngKey, "Database", 0, 0, ByVal strDatabase, lngLength)
    MsgBox Left(strDatabase, lngLength)
    End If
 
 
'  
    rstTable.MoveNext
 
  Wend

à la première itération

Code :

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

lngResult=0

il ouvre ma clé et récupère les valeurs, mais à la deuxième itération

Code :

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

lngResult=2

malgré le faite que ma clé existe bien. et me revoie le message d’erreur. je ne vois pas ou est le problème dans mon code si vous pouvez bien m'aider à le corriger je tourne en rond depuis plus de 2 jours.
Merci d'avance pour votre aide.

[marot_r]

Bonjour. Généralement je ne joue pas dans les registres donc je vais juste te faire une suggestion.

Fait un bout de code avec tes paramètres en dur pour aller chercher ta 2ième clef.
Si cela marche essaye en mettant 2 lignes en dur pour l'appel de ton registre.
après cela, si cela marche le transformer en boucle devrait être assez direct.

Si cela ne marche pas, il est possible (quoi que improbable) que la fonction de lecture que tu utilise ne supporte pas les appels multiples.
Il faudrait fouiller du côté de sa déclaration. Peut-être devrais-tu la mettre seule dans un module et l'appeler d'un autre module.

Bon courage dans ta quête.

A+

[wanted08]

Merci pour ta suggestion Marot_r je vais tester ça tout de suite

[wanted08]

je l'ai fait j'ai même répéter quatre fois avec les paramètre en dur et il me récupère toutes les valeurs que je veux.
ça veut bien dire qu'il supporte les appels multiples?
mais j'aimerai bien comprendre pourquoi pourquoi dans la boucle il ne récupère que la première itération?

[marot_r]

Bonjour.

Il y a peut-être une erreur dans ta boucle. Tu penses que tu changes ton critère mais en fait il ne change pas.

Vérifie ce que cela donne en exécutant ton code pas à pas et en faisant afficher le critère juste avant l'appel de la lecture.

A+

[wanted08]

Bonjour marot_r, j'ai déjas fait cela et mon paramètre change bien de valeur à chaque itération.

[marot_r]

Désolé je n'ai plus d'idée pour résoudre ce problème.

Tu pourrais peut-être utiliser une voie détournée :

1. Faire un export de tes registres dans le répertoire de ton application ou ailleurs.
2. Lire le fichier texte généré.

Je ne sais pas si l'étape 1 peut être faite à partie de VBA.

A+

[wanted08]

Bonjour, et merci encore pour tes réponse je vais tester tes propositions et voir ou ça va me conduire.
et voir aussi si d'ici la je ne trouve pas une autre alternative.
Merci.