Using VB6, it took a lot of code to read values from the Registration Database. Well, not anymore with with VB.NET! Take a look at the code below.
Imports Microsoft.Win32Function GetDBConnect() As StringDim pobjRegKey As RegistryKeyDim pstrValue As String pobjRegKey = _ Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\MyService\Parameters", False) If Not IsNothing(pobjRegKey) Then pstrValue = pobjRegKey.GetValue("DBConnect", vbNullString).ToString Return pstrValue Else Return vbNullString End If End Function
That's all there is to it! Basically two lines of code! This function gets a a value called "DBConnect" (database connection string) out of the Registry for a Windows Service.
Tip By: David McCarter