Generar automáticamente una cadena de conexión OLEDB VB6
A veces necesitamos conectar con un servidor SQLServer, Oracle o similares a través de un asistente, para trabajar con Visual Basic 6 o similares hay una forma muy fácil de hacerlo (con Windows):
Creamos un fichero de texto normal y corriente
Renombramos su extensión a .udl (el nombre de fichero da igual)
hacemos doble click sobre el fichero y nos saldrá un asistente como este:
Nos aparece la ventana propiedades de vinculo de datos
MUY IMPORTANTE Pinchar en la primera pestaña y cambiar o seleccionar el proveedor de datos
Siempre es preferibel usar un proveedor de tipo OLEDB y NO un proveedor de tipo ODBC
Si tenemos una base de datos Acess el proveedor es Jet 4.0 o superior, si tenemos SQL server o Oracle cogemos preferentemente el driver OLEDB para SQL server o Oracle.
Si hay varios proveedores por ejemplo Microsoft Driver para Oracle y Oracle Driver para microsoft cogemos el del fabricante, no el de Microsoft.
Insisto OLEBD es más rápido y eficente que ODBC que es un estandard más antiguo.
Para Mysql seleccionamos (Usar la cadena de conexión) y le damos click a generar.
Luego donde dice Nombre del DNS le damos click a nuevo.
Seleccionamos en mi caso Mysql ODBC 5.1 Driver.
Damos click en siguiente.
Luego ponemos el nombre que queramos (Prueba Mysql).
Damos click a siguiente.
Damos click en finalizar.
server name:127.0.0.1
user: root
passorwd:123456789
database:test
port:3306
en el boton details(detalles aparecen las opciones para la conexion en cada flags hasta debug y ssl)
Nota:cada opcion es un numero para saber su valor hacerlo uno por uno.Le damos a boton test y nos aparecera connection successfull (conexion satisfactoria)
Luego le damos acetar y ok.
Luego en la ventana seleccionar origen de datos le damos aceptar
Nos aparecera la ventana Mysql connector/ODBC
ponesmos de nuevo el password y le damos ok
Nos aparece la ventana propiedades de vinculo de datos
en la pestaña avanzada aparece
tiempo de espera de la conexion=5
read(lectura),write(escritura),share denny none(compartido sin denegar nada) y demas.
Una vez terminado pulsamos : Probar Conexión(Test) y luego Aceptar
Volvemos a renombrar el fichero .udl a extensión .txt y lo abrimos con Notepad u otro editor de texto
Veremos algo parecido a esto:
[oledb]
; Everything after this line is an OLE DB initstring
Provider=MSDASQL.1;Password=11991243;Persist Security Info=True;User ID=root;Mode=ReadWrite;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER=127.0.0.1;UID=root;PWD=123456789;DATABASE=test;PORT=3306;OPTION=4194304"
Copiamos la última linea entera: esa es nuestra connectionString, ya podemos borrar el fichero UDL si queremos.
