Inicio   |   Foros   |   Blogs   |   Código fuente   |   Utilidades   |   Enlaces web   |   Artículos   |   Noticias   |   Chat

 Categorías
  Programación (11)
  Bases de Datos (8)
  Aplicaciones (4)
      Flash
      Lotus (2)
      Matlab
      Smallworld
 Menú de usuario
 Publicar un nuevo recurso
 SoloCodigo página de inicio
Artículos

 Visual Basic  Crear ODBC o DSN por codigos maximo nivel 
Artículos
Autor: Andres Eloy Blanco Madriz [ToT3n]
Idioma: Español
Publicado por: toten
Ultima actualización: 06/05/2005, 08:13 PM
Valoración: 10
Lecturas: 9647
Agregar a favoritos
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.
--------------------
Andres Eloy Blanco Madriz [ToT3n]
Voy Hablando Y Con El Maso Dando
Solo Soy La Sombra Del Lado Oscuro De Tu Alma...
Y A La Hora De La Verdad Yo Solo Se Que No Se Nada...
|**VENEZUELA**|



Archivo adjunto ( Número de descargas: 2602 )
Archivo adjunto crear_odbc.zip (8.7 Kb)

Comentarios

 crear odbc
Publicado el 05/08/2005, 11:54 PM por martin1

muy bueno el codigo si sirve
 por dios!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Publicado el 08/08/2005, 12:51 PM por toten

coño novato claro que sirve!!
 El Dios Toten
Publicado el 30/08/2005, 01:37 AM por Soultaker

Cuando no el Gran Dios Toten siendo el mas humilde del planeta.
 error al crear la odbc
Publicado el 01/09/2005, 09:36 AM por eugenioeat

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
 hola
Publicado el 01/12/2005, 08:40 PM por toten

explicame mejor tu error a ver s te lo resuelvo hijo.. salu2
Especificar usuario
Publicado el 21/01/2006, 12:20 AM por

Cuando le especifico el usuario y el password no creal el dsn ¿por que?, como puedo especificarlos
 explicate mejor
Publicado el 23/01/2006, 12:27 PM por toten

por favor explicate mejor mandame un ejemplo
Codigo
Publicado el 23/01/2006, 03:17 PM por

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
 ok men
Publicado el 23/01/2006, 03:20 PM por toten

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
 GRACIAS
Publicado el 23/01/2006, 03:41 PM por

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
ME DA ESTE ERROR
Publicado el 28/06/2006, 04:34 PM por feminoadicto@hotmail.com

SQLConfigDataSource

QUE NO ESTA DEFINIDO

ERROR DE COMPILCION
PROCEDIMIENTO OI SUB NBO DEFINIDA
SOY UN POCO BABOSO
Publicado el 28/06/2006, 04:38 PM por feminoadicto@hotmail.com

NO HABIA LEIDO EL MANUALITO, LO SIENTO

GRACIAS!!!!!!!
 ok
Publicado el 29/06/2006, 02:45 PM por toten

ok hijo

salu2
 Excelente
Publicado el 25/09/2006, 04:50 PM por alvarojimenez99

probado y funciona al 100%
 genial
Publicado el 04/10/2006, 11:36 AM por capitancable

muy completo
 :)
Publicado el 04/10/2006, 01:55 PM por toten

gracias
QUE EL CODIGO ES TUYO???
Publicado el 06/10/2006, 10:06 PM por josafat

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...
 Que jeta tienes...
Publicado el 07/10/2006, 11:45 PM por buhomvp

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...
 Supongo que algun moderador leera esto
Publicado el 08/10/2006, 12:24 AM por -Marta-

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

Carajo que eres caradura!
Publicado el 08/10/2006, 05:50 AM por

"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!
 ¡Que mal falsificador eres!
Publicado el 08/10/2006, 10:24 AM por SoftJaén

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 EL MODERADOR DE ESTE FORO???
Publicado el 13/10/2006, 11:15 PM por josafat

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



Como hago una DSN a Mysql ?
Publicado el 13/12/2006, 09:42 PM por kbza52

El codigo esta bueno pero no puede hacer una conexion con Mysql me pueden ayudar
Gracias
 conexion mysql
Publicado el 05/06/2007, 04:57 PM por

'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
No me funciona con Password
Publicado el 14/09/2007, 06:34 PM por

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???
 Crear Obbc dsn para mysql
Publicado el 18/09/2007, 02:43 PM por niwdeloko

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
 Que interesante
Publicado el 21/09/2007, 12:02 AM por toten

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
como crear dsn desde C# para access
Publicado el 04/10/2007, 09:01 PM por el_nunga

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
 para que funcione en sql con password
Publicado el 05/10/2007, 04:40 PM por poyis

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
 Problema con DSN SQL Server con PWD
Publicado el 19/10/2007, 12:40 AM por alvaroocp

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
Publicado el 21/11/2007, 08:00 PM por

zapos dejen de estar peleando mamadas

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Copyright © 2002-10, SoloCodigo
Información legal
cron