Problemas con DSN

Hola qué tal, mira aquí te transcribo el código de una pequeña clase que creé
hace algún tiempo para poder crear un DSN desde Visual Basic .NET:

Public Class AdministradorODBC
Private Const CLAVEREGISTRO_ODBC_INI As String = "SOFTWARE\ODBC\ODBC.INI\"
Private Const CLAVEREGISTRO_NOMBRES_DSN As String =
CLAVEREGISTRO_ODBC_INI + "ODBC Data Sources"

Private Sub New()

End Sub

Public Shared Sub CrearDSN(ByVal nombreDSN As String, ByVal
descripcionDSN As String, ByVal nombreDriver As String, _
ByVal rutaDriver As String, ByVal idUsuario
As String, ByVal nombreServidor As String)
'Crear la nueva clave de registro para el DSN
Dim claveRegistro As RegistryKey =
Registry.LocalMachine.CreateSubKey(CLAVEREGISTRO_ODBC_INI + nombreDSN.Trim)

'Asignar los parámetros de la clave DSN creada
claveRegistro.SetValue("Description", descripcionDSN.Trim)
claveRegistro.SetValue("Driver", rutaDriver.Trim)
claveRegistro.SetValue("LastUser", idUsuario.Trim)
claveRegistro.SetValue("Server", nombreServidor.Trim)

'Cerrar la nueva clave
claveRegistro.Close()

'Agregar la clave que le permitirá a ODBC Data Sources listar el
nuevo DSN
claveRegistro =
Registry.LocalMachine.OpenSubKey(CLAVEREGISTRO_NOMBRES_DSN, True)
claveRegistro.SetValue(nombreDSN, nombreDriver.Trim)
claveRegistro.Close()
End Sub
End Class


Solo crea un archivo de clases y pega el código. Debería funcionar sin
problemas.

Saludos,

Julio Casal
.Net Application Developer
http://spaces.msn.com/members/PolluxSpace


"" wrote:

Mostrar la cita

Vereis, yo utilizaba el siguiente codigo en vb 6 para crear un origen de
datos que utilizare en los informes. Estoy intentando hacer algo similar
para .NET, pero no encuentro ni informacion, ni forma de hacerlo.

If G_Modulo = "GESTION" Then
atributos = "Database=AY70_" & Format(G_Empresa, "000") & _
vbCr & "Description=DSN Para SQL Server" & _
vbCr & "OemToAnsi=No" & _
vbCr & "Server=" & G_Servidor & _
vbCr & "Trusted_connection=Yes"
DBEngine.RegisterDatabase "Gestay_SQL", "SQL Server", True,
atributos
ElseIf G_Modulo = "CONTABILIDAD" Then
atributos = "Database=PP70_" & Format(G_Empresa, "000") & _
vbCr & "Description=DSN Para SQL Server" & _
vbCr & "OemToAnsi=No" & _
vbCr & "Server=" & G_Servidor & _
vbCr & "Trusted_connection=Yes"
DBEngine.RegisterDatabase "Contay_SQL", "SQL Server", True,
atributos
End If

Gracias.

Muchisimas gracias Julio.
"Julio Casal" escribió en el mensaje
news:
Mostrar la cita

Hola qué tal, mira aquí te transcribo el código de una pequeña clase que
creé
hace algún tiempo para poder crear un DSN desde Visual Basic .NET:

Public Class AdministradorODBC
Private Const CLAVEREGISTRO_ODBC_INI As String =
"SOFTWARE\ODBC\ODBC.INI\"
Private Const CLAVEREGISTRO_NOMBRES_DSN As String > CLAVEREGISTRO_ODBC_INI + "ODBC Data Sources"

Private Sub New()

End Sub

Public Shared Sub CrearDSN(ByVal nombreDSN As String, ByVal
descripcionDSN As String, ByVal nombreDriver As String, _
ByVal rutaDriver As String, ByVal idUsuario
As String, ByVal nombreServidor As String)
'Crear la nueva clave de registro para el DSN
Dim claveRegistro As RegistryKey > Registry.LocalMachine.CreateSubKey(CLAVEREGISTRO_ODBC_INI +
nombreDSN.Trim)

'Asignar los parámetros de la clave DSN creada
claveRegistro.SetValue("Description", descripcionDSN.Trim)
claveRegistro.SetValue("Driver", rutaDriver.Trim)
claveRegistro.SetValue("LastUser", idUsuario.Trim)
claveRegistro.SetValue("Server", nombreServidor.Trim)

'Cerrar la nueva clave
claveRegistro.Close()

'Agregar la clave que le permitirá a ODBC Data Sources listar el
nuevo DSN
claveRegistro > Registry.LocalMachine.OpenSubKey(CLAVEREGISTRO_NOMBRES_DSN, True)
claveRegistro.SetValue(nombreDSN, nombreDriver.Trim)
claveRegistro.Close()
End Sub
End Class


Solo crea un archivo de clases y pega el código. Debería funcionar sin
problemas.

Saludos,

Julio Casal
.Net Application Developer
http://spaces.msn.com/members/PolluxSpace


"" wrote:

Mostrar la cita

Vereis, yo utilizaba el siguiente codigo en vb 6 para crear un origen de
datos que utilizare en los informes. Estoy intentando hacer algo similar
para .NET, pero no encuentro ni informacion, ni forma de hacerlo.

If G_Modulo = "GESTION" Then
atributos = "Database=AY70_" & Format(G_Empresa, "000") & _
vbCr & "Description=DSN Para SQL Server" & _
vbCr & "OemToAnsi=No" & _
vbCr & "Server=" & G_Servidor & _
vbCr & "Trusted_connection=Yes"
DBEngine.RegisterDatabase "Gestay_SQL", "SQL Server", True,
atributos
ElseIf G_Modulo = "CONTABILIDAD" Then
atributos = "Database=PP70_" & Format(G_Empresa, "000") & _
vbCr & "Description=DSN Para SQL Server" & _
vbCr & "OemToAnsi=No" & _
vbCr & "Server=" & G_Servidor & _
vbCr & "Trusted_connection=Yes"
DBEngine.RegisterDatabase "Contay_SQL", "SQL Server", True,
atributos
End If

Gracias.