Discussion :

[Drooxy]

Bonjour,

J'essaie de récupérer toutes les valeurs (Sources de données ODBC) sous la clé de registre... mais là, j'appelle au secours !

Dans le code suivant, la fonctionRegOpenKeyEx échoue toujours (avec par conséquent obtention du message "Non trouvé").

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Public Class Form1
 
  Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByVal phkResult As Long) As Long
  Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
    Dim str_ExcelFilePathAndName As String
 
 
    OpenFileDialog1.ShowDialog()
    str_ExcelFilePathAndName = OpenFileDialog1.FileName
 
    MsgBox(str_ExcelFilePathAndName)
 
    Const cst_HKEY_LOCAL_MACHINE = &H80000002
    Const cst_KEY_READ = &H20019 '((READ_CONTROL Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
    Const str_KeyName As String = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources"
 
    EnumRegistryKeys(cst_HKEY_LOCAL_MACHINE, str_KeyName, cst_KEY_READ)
 
  End Sub
 
Function EnumRegistryKeys(ByVal lng_hKey As Long, ByVal str_KeyName As String, ByVal lng_hKeyRead As Long) As Collection
' Enumerate registry keys under a given key and returns a collection of strings
 
  Dim hdl_Handle As Long
  Dim lng_Length As Long
  Dim lng_Index As Long
  Dim str_SubKeyName As String
 
  Const lng_KeyNameLength = 260
 
  ' initialize the result collection
  EnumRegistryKeys = New Collection
 
  ' Open the key, exit if not found
  If Len(str_KeyName) Then
 
    If RegOpenKeyEx(lng_hKey, str_KeyName, 0, lng_hKeyRead, hdl_Handle) Then
      MsgBox("Non trouvé")
      Exit Function
    End If
    '   in all case the subsequent functions use hKey
    lng_hKey = hdl_Handle
 
  End If
 
  Do
    ' this is the max length for a key name
 
    str_SubKeyName = Space$(lng_Length)
    ' get the N-th key, exit the loop if not found
 
    If RegEnumKey(lng_hKey, lng_Index, str_SubKeyName, lng_KeyNameLength) Then
      Exit Do
    End If
 
    ' add to the result collection
    str_SubKeyName = Mid(str_SubKeyName, 1, InStr(str_SubKeyName, vbNullChar) - 1)
    EnumRegistryKeys.Add(str_SubKeyName, str_SubKeyName)
    ' prepare to query for next key
    lng_Index = lng_Index + 1
 
  Loop
 
  ' Close the key, if it was actually opened
  If hdl_Handle Then
    RegCloseKey(hdl_Handle)
  End If
 
End Function
 
End Class

Quelqu'un peut-il me mettre sur la voie ?

Merci infiniment !
Drooxy

[Piet]

Devez-vous vraiment passer par une dll non managée? ne serait-il pas plus simple d'utiliser la classe Registry native ?

[Drooxy]

Merci pour votre réponse...

Le problème est que je n'ai pas trouvé de moyen de "browser" toutes les valeurs sous une clé avec la classe Registry native...

Mais je suis preneur si vous avez une solution de ce type ! :-)

Amicalement.
Drooxy

[tomlev]

Ben je vois pas pourquoi ce serait plus facile avec l'API native qu'avec la classe RegistryKey...

Tu as de la chance, justement j'ai fait exactement la même chose il n'y a pas très longtemps (énumérer les sources ODBC)

Code C# :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        private List<string> EnumDsn(RegistryKey rootKey)
        {
            List<string> list = new List<string>();
            RegistryKey regKey = rootKey.OpenSubKey(@"Software\ODBC\ODBC.INI\ODBC Data Sources");
            if (regKey != null)
            {
                foreach (string name in regKey.GetValueNames())
                {
                    string value = regKey.GetValue(name, "").ToString();
                    list.Add(Value);
                }
            }
            return list;
        }

(j'ai la flemme de faire la conversion en VB.NET, mais ça ne présente pas de difficulté particulière...)

Pour utiliser cette fonction, passe en paramètre la clé racine qui t'intéresse (a priori Registry.CurrentUser ou Registry.LocalMachine)

[Drooxy]

Merci !

J'essaie ca dès que je peux...

Amicalement.
Drooxy

[tomlev]

j'ai juste fait une petite erreur en adaptant le code avant de le poster... à la place de

Code C# :

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

list.Add(Value);

il faut mettre

Code C# :

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

list.Add(name);

En fait, si tu n'as besoin que du nom du DSN et pas du pilote, on peut même simplifier le tout (dans mon code d'origine je filtrais sur le pilote ODBC, d'où la boucle) :

Code :

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

1
2
3
4
5
6
7
8
9
10
        private List<string> EnumDsn(RegistryKey rootKey)
        {
            List<string> list = new List<string>();
            RegistryKey regKey = rootKey.OpenSubKey(@"Software\ODBC\ODBC.INI\ODBC Data Sources");
            if (regKey != null)
            {
                list.AddRange(regKey.GetValueNames());
            }
            return list;
        }

[Drooxy]

Merci infiniment !

Elle fonctionne très bien cette classe RegistryKey ! J'en ai profité pour passer en C# et je commence à me familiariser avec le framework .NET 3.5...

Merci encore pour ton aide !

Drooxy

[tomlev]

J'en ai profité pour passer en C#

Très bon choix