SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: toten en Viernes 6 de Mayo de 2005, 21:13
-
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]
-
muy bueno el codigo si sirve
-
coño novato claro que sirve!!
-
Cuando no el Gran Dios Toten siendo el mas humilde del planeta.
-
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
-
explicame mejor tu error a ver s te lo resuelvo hijo.. salu2
-
Cuando le especifico el usuario y el password no creal el dsn ¿por que?, como puedo especificarlos
-
por favor explicate mejor mandame un ejemplo
-
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
-
mirap or lo que vi falta tu paswoord y y otros detalles agregame en tu msn para ver si te ayudo mas
yosoyfalo@hotmail.com
-
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
-
SQLConfigDataSource
QUE NO ESTA DEFINIDO
ERROR DE COMPILCION
PROCEDIMIENTO OI SUB NBO DEFINIDA
-
NO HABIA LEIDO EL MANUALITO, LO SIENTO
GRACIAS!!!!!!!
-
ok hijo
salu2
-
probado y funciona al 100%
-
muy completo
-
gracias
-
Como que el código que segun tú recopilaste NO ES TUYO!!!, tanto que no has sabido contestar lo que te han preguntado acerca de tu PROPIO codigo...
Amigo no se vale publicar algo que no es tuyo sin citar la fuente y mucho menos decir que tu lo has hecho...
El original es de: Enrique Martínez Montejo «SoftJaén»
Y aqui esta la página ORIGINAL
http://www.mvp-access.com/softjaen/vb6/api/odbc/sjtodbc002.htm
Y esta es la prueba de que este jefe si sabe lo que hace:
https://mvp.support.microsoft.com/default.aspx/profile=0AE7CACD-2CB9-43C0-8F20-BB9E033CDB6F
La web de softjaen:
http://www.mvp-access.com/softjaen/
Saludos y dale el honor a quien merece...
-
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...
-
Este personaje es un caradura, en su mensaje dice que el recopilo eso y en la descarga a borrado el nombre del autor y se ha puesto el mismo
SJTODBC002: Cómo crear, modificar y eliminar un DSN mediante programación
Andres Eloy Blanco Madriz, [ToT3n]
este es el encabezado real
SJTODBC002: Cómo crear, modificar y eliminar un DSN mediante programación
Por Enrique Martínez Montejo «SoftJaén»
[MS MVP - VB]
Última revisión: 14/08/2003
que cara mas dura tienes apropiarse del trabajo de los demas no tiene nombre
-
"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!
-
Te digo que eres un mal falsificador, porque al menos nos ha eliminado del documento htm, el comentario que indica la url de procedencia del documento, es decir, desde dónde lo descargastes:
<!-- saved from url=(0062)http://www.mvp-access.com/softjaen/vb6/api/odbc/sjtodbc002.htm -->
¡Por favor! ¡Si has copiado hasta la misma hoja de estilos que yo utilizo en mis documentos!
Está bien que recopiles documentos, pero ¡hombre de Dios! Indica al menos la procedencia.
--
Enrique Martínez
[MS MVP - VB]
-
Y del moderador ni sus luces para quitar el link al archivo que ofrece el tío este...
-
El codigo esta bueno pero no puede hacer una conexion con Mysql me pueden ayudar
Gracias
-
'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
-
Hola
Yo programo en C#, la adapté el código. Me funciona perfecto cuando es con autenticación Windows, pero no me funciona cuando es con autenticación SQL, que es lo que realmente necesito.
Me pueden ayudar???
-
hola a todos saludos he probado para mysql. pero sale error:
procedimiento o funcion no definido!!!
dl = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAttributes)
sale ene sta linea. creo que es por el sqlconfigdatasource no esta definido o declarado
saludos.. perdon por ser novato jeje
-
tenia años sin ver este codigo veo que han dejado algunos mensajes... interesante.. ademas lo han descargado muchas veces bueno esta fue mi ultima colaboracion antes de salir del foro
-
Hola, he estado buscando como crear un dsn para access desde C#.NET pero no he encontrado nada, solo ejemplos en Vbasic pero como no se nada de VB ps no he podido transladar los codigos a C#.
Si hay alguien que me pueda ayudar con eso o almenos darme referencia de alguna pagina le estare eternamente agradecido.
Mi correo es alejandro.nungaray@grupored.com.mx
-
hola tenes que agregar a la cadena de conexion LastUser y PWD y ahi pones el usuario y la clave. no user USER o algo parecido porque NO ANDA, solo con LastUser funciona bien!
saludos!
pll
-
No se porque cuando creo el DSN sin UID y PWD lo crea perfectamente, pero cuando lo hago con estos dos parametros en la cadena de atributos no funciona.
Alguien sabe que puede estar pasando con esto??
-
zapos dejen de estar peleando mamadas
-
Espero que este copion ponga algo que funcione.