سلام روش مورد نظر شما تقریباً یک استاندارد است و من هم به صورت زیر از آن استفاده میکنم. امیدوارم به دردتان بخورد:
برای ذخیره کردن پارامترها در رجیستری
Sub WriteCnnParams(ByVal ServerName As String, ByVal DbName As String,ByVal UserName As String,ByVal Password As String)
Try
Dim sReg As Microsoft.Win32.Registry
sReg.LocalMachine.OpenSubKey("SOFTWARE", True).OpenSubKey("MICROSOFT", True).OpenSubKey("WINDOWS", True).OpenSubKey("CURRENTVERSION", True).SetValue("CnnParam_1", ServerName)
sReg.LocalMachine.OpenSubKey("SOFTWARE", True).OpenSubKey("MICROSOFT", True).OpenSubKey("WINDOWS", True).OpenSubKey("CURRENTVERSION", True).SetValue("CnnParam_2", DbName)
sReg.LocalMachine.OpenSubKey("SOFTWARE", True).OpenSubKey("MICROSOFT", True).OpenSubKey("WINDOWS", True).OpenSubKey("CURRENTVERSION", True).SetValue("CnnParam_3", UserName)
sReg.LocalMachine.OpenSubKey("SOFTWARE", True).OpenSubKey("MICROSOFT", True).OpenSubKey("WINDOWS", True).OpenSubKey("CURRENTVERSION", True).SetValue("CnnParam_4", Password)
Catch ex As Exception
MsgBox("Can not set connection parameters", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Connection Parameters")
End Try
End Sub
و برای خواندن آنها
Function GetCnnStr() As String
Dim ServerName As String = ""
Dim DbName As String = ""
Dim UserName As String = ""
Dim Password As String = ""
Try
Dim sReg As Microsoft.Win32.Registry
ServerName = sReg.LocalMachine.OpenSubKey("SOFTWARE").O penSubKey("MICROSOFT").OpenSubKey("WIN DOWS").OpenSubKey("CURRENTVERSION").Ge tValue("CnnParam_1")
DbName = sReg.LocalMachine.OpenSubKey("SOFTWARE").O penSubKey("MICROSOFT").OpenSubKey("WIN DOWS").OpenSubKey("CURRENTVERSION").Ge tValue("CnnParam_2")
UserName = sReg.LocalMachine.OpenSubKey("SOFTWARE").O penSubKey("MICROSOFT").OpenSubKey("WIN DOWS").OpenSubKey("CURRENTVERSION").Ge tValue("CnnParam_3")
Password = sReg.LocalMachine.OpenSubKey("SOFTWARE").O penSubKey("MICROSOFT").OpenSubKey("WIN DOWS").OpenSubKey("CURRENTVERSION").Ge tValue("CnnParam_4")
Catch ex As Exception
MsgBox("Can not get connection parameters", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Connection Parameters")
End Try
Return "Server=" & ServerName & ";database=" & DbName & ";uid=" & UserName & ";pwd=" & Password
End Function