Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( "SqlServerConnectionString", True)
If key Is Nothing Then
key = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(RegistryKey)
End If
key.SetValue("SqlServerConnectionString", txtSqlServerConnectionString.Text)
я создал 7 ключей с помощью этой техники, наконец, я попытался извлечь данные из созданного ключа реестра таким образом
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SqlServerConnectionString", False)
txtSqlServerConnectionString.Text =key.GetValue( "SqlServerConnectionString", "")
у меня есть 7 ключей, которые создаются в реестре, только 2 из них неработать правильно и вернуть ноль, я надеюсь, что этот пост будет более ясным