Problemer med kode i Form_Load
Hej,Er der nogen der kan hjælpe med et forhåbentlig lille problem.
Nedenstående kode ligger i Form_Load.
Når jeg afvikler programmet på nogle Pc'ere får jeg fejlbeskeden:
Object reference not set to an instance of an object
... og på andre Pc'ere virker det som det skal..!
Dim RK As RegistryKey
Try
RK = Registry.LocalMachine.OpenSubKey("Software\\TN\\Collector", True)
If (IsNothing(RK)) Then
RK = Registry.LocalMachine.OpenSubKey("Software\\TN", True)
RK.CreateSubKey("Collector")
RK = Registry.LocalMachine.OpenSubKey("Software\\TN\\Collector", True)
RK.SetValue("Datasource", "ukendt\ukendt", RegistryValueKind.String)
RK.SetValue("dbUsername", "sa", RegistryValueKind.String)
RK.SetValue("dbPassword", "12345678", RegistryValueKind.String)
RK.SetValue("Database", "Ukendt", RegistryValueKind.String)
RK.SetValue("tcpPort", "1007", RegistryValueKind.String)
Else
Me.txtDatabaseServer.Text = RK.GetValue("Datasource", "ukendt\ukendt")
Me.txtDBUser.Text = RK.GetValue("dbUsername", "sa")
Me.txtDBpassword.Text = RK.GetValue("dbPassword", "12345678")
Me.cb.Text = RK.GetValue("Database", "CollectData")
Me.txtTcpport.Text = RK.GetValue("tcpPort", "1007")
End If
Catch
MessageBox.Show(Err.Description & ")
End Try