Update ODBC DSN Properties in VB.NET Code?

[zacks]

I have a DSN that I frequently have to change the default database. Is
there a way to do this in VB.NET code instead of having to go through
the setup wizard every time?

[dbahooker]

yeah throw away the DSN and put it in the connection string

[Carl M.]

Try using an API call to SQLConfigDataSo urce; although this solution is not
specific to VB.Net, it will solve your problem.

<za***@construc tion-imaging.com> wrote in message
news:11******** **************@ j55g2000cwa.goo glegroups.com.. .

I have a DSN that I frequently have to change the default database. Is
there a way to do this in VB.NET code instead of having to go through
the setup wizard every time?

[arthurjr07]

Private Function CreateDSN(ByVal DB_Name As String, _
ByVal DSN As String, _
ByVal Description As String, _
ByVal Driver_Name As String, _
ByVal userid As String, _
ByVal password As String, _
ByVal Server_Name As String, _
ByVal port As String, _
ByVal stroption As String, _
ByVal stmt As String _
) As Boolean

Dim lResult As Long
Dim hKeyHandle As Long
Dim msg1 As String

Dim regHandle As RegistryKey ' Stores the Handle to Registry in
which values need to be set

Dim reg As RegistryKey = Registry.LocalM achine
Dim conRegKey1 As String = "SOFTWARE\ODBC\ ODBC.INI\" & DSN
Dim conRegKey2 As String = "SOFTWARE\ODBC\ ODBC.INI\ODBC Data
Sources"

Try
regHandle = reg.CreateSubKe y(conRegKey1)
regHandle.SetVa lue("Database", DB_Name)
regHandle.SetVa lue("Descriptio n", Description)
regHandle.SetVa lue("Driver", Driver_Name)
regHandle.SetVa lue("Option", stroption)
regHandle.SetVa lue("Password", password)
regHandle.SetVa lue("Port", port)
regHandle.SetVa lue("Server", Server_Name)
regHandle.SetVa lue("Stmt", stmt)
regHandle.SetVa lue("User", userid)
regHandle.SetVa lue("LastUser", userid)
regHandle.Close ()
reg.Close()

regHandle = reg.CreateSubKe y(conRegKey2)
regHandle.SetVa lue(DSN, "SQL SERVER")
regHandle.Close ()
reg.Close()
Catch err As Exception

End Try
End Function
if there is an existing DSN, it will overwite it.

HTH

[zacks]

I should have known that this info was simply stored in the registry.
Thanks for the pointer and the sample code.