Crear un Odbc desde Visual Basic

Mario P?
10 de Noviembre del 2003
Alguien me prodia ayudar a crear un Odbc para una base de datos access desde Visual Basic 6.0, por favor alguien que me ayude. Gracias.

rafa
10 de Noviembre del 2003
Hola Mario.
Prueba con este procedimiento

Public Sub createDSN(sdsn As String, NombreDB As String)
Dim nRet As Long
Dim sDriver As String
Dim DirectorioDatos As String
On Error GoTo err_createDsn

DirectorioDatos = Mid(Trim(strDirection), 1, Len(Trim(strDirection)) - 1)
sDriver = "Microsoft Access Driver (*.mdb)"
sAttributes = sAttributes & "DESCRIPTION=" & sdsn & ";" & Chr$(0)
sAttributes = sAttributes & "DSN=" & sdsn & ";" & Chr$(0)
sAttributes = sAttributes & "DBQ=" & DirectorioDatos & Mid(Trim(NombreDB), 1, Len(Trim(NombreDB)) - 1) & ";" & Chr$(0)
sAttributes = sAttributes & "DataBase=" & NombreDB & ";" & Chr$(0)
sAttributes = sAttributes & "UID=" & "usuario" & ";" & Chr$(0)
sAttributes = sAttributes & "PWD=" & "contrasena" & ";" & Chr$(0)

DBEngine.RegisterDatabase sdsn, "Microsoft Access Driver (*.mdb)", True, sAttributes
If CreaConexion = True Then
Exit Sub
End If
err_createDsn:
MsgBox Err.Number & " " & Err.Description, vbCritical, "Error de Conexion"

End Sub

sdsn es el nombre del odbc
nombrebd es el nombre y ruta de la bd

suerte