SoloCodigo

Crear ODBC o DSN por codigos esta todo muy bien explicado formato HTML espero les guste y les sea util... esta excelente yo mismo lo recopile

si les gusta o les sirve no olviden agredecer.. tengo mas juguetes en mi casa y poco a poco los voy a ir montando.

Autor: Andres Eloy Blanco Madriz [ToT3n]

coño novato claro que sirve!!

Cuando intento crear la odbc mediante:
dl = SQLConfigDataSource(0&, ODBC_ADD_DSN, sDriver, sAttributes)
me da un error:
Attempted to read or write protected memory

Cuando le especifico el usuario y el password no creal el dsn ¿por que?, como puedo especificarlos

Perdon por no ser tan claro, pero aqui esta el codigo, gracias.

Private Sub Command1_Click()
Dim dl As Long                             ' Valor devuelto por la función API
Dim sAttributes As String                  ' Aributos
Dim sDriver As String                      ' Nombre del controlador
Dim sDescription As String                 ' Descripción del DSN
Dim sDsnName As String                     ' Nombre del DSN
Dim sServidor As String                    ' Nombre del Servidor

Const ODBC_ADD_DSN As Long = 1             ' Se creará un DSN de Usuario
Const ODBC_ADD_SYS_DSN As Long = 4         ' Se creará un DSN de sistema
Const vbAPINull As Long = 0&               ' Puntero NULL

' Establecemos los atributos necesarios
sDsnName = "Ejemplo_DSN_Sistema"                        ' Nombre del DSN
sDescription = "Nuevo DSN de sistema para SQL Server"   ' Descripcion del DSN
sServidor = "RYSSERVER"                                 ' Nombre del Servidor
sDriver = "SQL Server"                                  ' Driver

sAttributes = "DSN=" & sDsnName & Chr(0)
sAttributes = sAttributes & "Server=" & sServidor & Chr$(0)
sAttributes = sAttributes & "Description=" & sDescription & Chr(0)
sAttributes = sAttributes & "Database=pubs" & Chr(0)
sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)
'sAttributes = sAttributes & "UID=sa" & Chr(0)      AQUI ESPECIFICO EL USUARIO
'sAttributes = sAttributes & "PWD=" & Chr(0)        AQUI ESPECIFICO EL PASSWORD
sAttributes = sAttributes & "Language=Spanish" & Chr(0)

dl = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAttributes)
'dl = SQLConfigDataSource(hWnd, ODBC_ADD_DSN, sDriver, sAttributes)

If dl Then
   MsgBox "Se ha creado el DSN.", vbInformation
Else
   MsgBox "No se ha podido crear el DSN."
End If

End Sub

No falta mi password, si no que esta en blanco mi password, pero dices que me faltan otras cosas pues ese es todo mi codigo, solo no inclui la declaracion de la funcion, gracias por tu ayuda.

ya te agrege mi msm el mio es ed_skateboarding@hotmail.com

NO HABIA LEIDO EL MANUALITO, LO SIENTO

GRACIAS!!!!!!!

probado y funciona al 100%

gracias

A ver que podemos hacer contigo, para que no se te ocurra plagiar un solo articulo más.

Yo no voy a hacer mas comentarios...solo voy a escribir al verdadero autor del Articulo, para que te diga lo que tenga que decir.
Esto no se hace «hijo». Hay que respetar las autorías de los articulos y de los codigos.
En fin...

"Recopilado" está bien dicho: lo encontraste por ahi y lo usaste.

Pero quitar la firma del autor original y poner la tuya es un descaro descomunal.

Balurdo!

Y del moderador ni sus luces para quitar el link al archivo que ofrece el tío este...

'declaracion de constantes
Private Const ODBC_ADD_SYS_DSN = 4 ' Add data source
Private Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3 ' Remove data source
Private Const vbAPINull As Long = 0& ' NULL Pointer



Public Function CreaDSN() As Integer

Dim dl As Long                                 ' Valor devuelto por la función API
Dim sAttributes As String                  ' Aributos
Dim sDriver As String                       ' Nombre del controlador
Dim sDescription As String                ' Descripción del DSN
Dim sDsnName As String                   ' Nombre del DSN


On Error GoTo errorDSN

' Establecemos los atributos necesarios
sDsnName = "DSNCadillac2"
sDescription = "DSN de sistema para MySQL "
sDriver = "MySQL ODBC 3.51 Driver"


' Los pares de cadenas acabarán en valor Null
sAttributes = "DSN=" & sDsnName & Chr(0)
sAttributes = sAttributes & "Server=" & "localhost" & Chr$(0)
sAttributes = sAttributes & "User=" & "UserCompras" & Chr$(0)
sAttributes = sAttributes & "Password=" & "avon" & Chr$(0)
sAttributes = sAttributes & "Description=" & sDescription & Chr(0)
sAttributes = sAttributes & "Database=" & Trim(DB_Source) & Chr(0)

' Si deseamos utilizar la autenticación de Windows NT, deberemos de
' especificarlo en la cadena de atributos
'sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)

' Creamos el nuevo origen de datos de usuario especificado.
' Si deseamos que aparezca el cuadro de diálogo, tendremos que
' especificar la propiedad «hWnd» del formulario donde se realiza
' la llamada a la función API.
dl = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAttributes)

If Not dl Then
   MsgBox "Ha ocurrido un error mientras se creaba el DSN de Sistema para MySQL. Posiblemente necesite tener permisos de Aministrador en su máquina." & vbCrLf & "Consulte con el Aministrador de su equipo", vbCritical, "Error"
   End
End If

Exit Function

'ERROR
errorDSN:
MsgBox "Ha ocurrido un error mientras se creaba el DSN de Sistema para MySQL. Posiblemente necesite tener permisos de Aministrador en su máquina." & vbCrLf & "Consulte con el Aministrador de su equipo", vbCritical, "Error"
End

End Function
Sub DELETEDSN()
Dim strDriver As String
Dim strAttributes As String
'usamos el driver de access
strDriver = "MySQL ODBC 3.51 Driver"
'Asignamos los parametros separados por null.
strAttributes = "DSN=DSNCadillac" & Chr$(0)
'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, strDriver, strAttributes)
End Sub


eppero te sirva