Dsn
Hola, y gracias de antemano por tu respuesta.
Mi pregunta es como puede crear en VB, DSN de ODBC en tiempo de ejecución, es decir que el archivo DSN lo cree cuanto instalo mi aplicación.
Si es posible también, distinguir entre la creación de DSN de Archivo y DSN de Sistema
Gracias.
Mi pregunta es como puede crear en VB, DSN de ODBC en tiempo de ejecución, es decir que el archivo DSN lo cree cuanto instalo mi aplicación.
Si es posible también, distinguir entre la creación de DSN de Archivo y DSN de Sistema
Gracias.
1 Respuesta
Respuesta de rafart
1
Te paso este ejemplo de creación de un DSN con RDO, no creo que tengas ningún problema en adaptarlo a ADO...
Private Sub RegisterDataSource()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Crear cadena de palabras clave.
strAttribs = "Description=" _
& "SQL Server en servidor SEQUEL" _
& Chr$(13) & "OemToAnsi=No" _
& Chr$(13) & "SERVER=SEQUEL" _
& Chr$(13) & "Network=DBNMPNTW" _
& Chr$(13) & "Database=WorkDB" _
& Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"
' Crea un nuevo DSN registrado.
rdoEngine.rdoRegisterDataSource "Ejemplo", _
"SQL Server", True, strAttribs
' Abre la base de datos.
Set en = rdoEngine.rdoEnvironments(0)
Set cnTest = en.OpenConnection( _
dsname:="Ejemplo", _
Prompt:=rdDriverNoPrompt, _
Connect:="UID=;PWD=;")
End Sub
Private Sub RegisterDataSource()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Crear cadena de palabras clave.
strAttribs = "Description=" _
& "SQL Server en servidor SEQUEL" _
& Chr$(13) & "OemToAnsi=No" _
& Chr$(13) & "SERVER=SEQUEL" _
& Chr$(13) & "Network=DBNMPNTW" _
& Chr$(13) & "Database=WorkDB" _
& Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"
' Crea un nuevo DSN registrado.
rdoEngine.rdoRegisterDataSource "Ejemplo", _
"SQL Server", True, strAttribs
' Abre la base de datos.
Set en = rdoEngine.rdoEnvironments(0)
Set cnTest = en.OpenConnection( _
dsname:="Ejemplo", _
Prompt:=rdDriverNoPrompt, _
Connect:="UID=;PWD=;")
End Sub
