RE:como conectar mysql a visual?
Hola.
Puedes conectar Visual Basic a MySql hay dos formas (al menos que yo sepa), configurando el cliente de forma manual, habria que hacer lo mismo en todas las computadoras que se vayan a conectar al servidor MySQL :
Panel de Control
Herramientas Administrativas
Origenes de Datos (ODBC)
DNS Usuario + Agregar
Aqui buscas el la lista el siguiente controlador:
MySQL ODBC 3.51 Driver
Luego completas los datos de conección que se te piden.
Data Source Name = Lo que quieras poner
Description = Lo que quieras poner
Server = IP del servidor MySQL, si esta en tu PC 127.0.0.1 o localhost
User = usuario que este en la tabla de usuarios con permisos en el servidor MySQL
Password= Contraseña asociada al Usuario en la tabla del servidor MySQL
Database = cualquiera que aparezca en la lista
Si no aparece ninguna deberías chequear que el servidor este corriendo o que existan tablas.
La otra forma es por código, con esta forma no es necesario configurar el cliente en cada estación que accese al servidor puesto que se genera de forma automática, esto sería así:
Dim dl As Long
Dim ruta As String
Dim atributos As String
Dim controlador As String
Dim descripcion As String
Dim dominio As String
Dim servidor As String
Const agrega_odbc As Long = 1
open2tour:
dominio = "loquequieras"
ruta = ""'<--- una base de datos de tu servidor MySQL
controlador = "MYSQL ODBC 3.51 Driver" <--- no cambiar
servidor = "" <--- IP del servidor
atributos= "DSN=" & dominio & Chr(0)
atributos = atributos & "servidor=" & servidor & Chr(0)
atributos= atributos & "database=" & ruta & Chr(0)
atributos = atributos & "SystemDB=C:\Windows\System\System.mdw" & Chr(0)
sAttributes = sAttributes & "UID=root" & Chr(0) ' <-- nombre usuario valido en el servidor MYSQL
sAttributes = sAttributes & "PWD=root" & Chr(0) ' <--- contraseña del usuario
dl = SQLConfigDataSource(0&, agrega_odbc, controlador, atributo)
' aqui ya se creó el enlace del cliente.
'luego conectas tu controlador con esta instrucción
Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=" & servidor & ";port=3306;uid=root;pwd=root;database=" & ruta & ";connection="
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With
rs y con deben ser declaradas fuera de la funcion de coneccion como publicas para que todos tus formularios puedan verlas
Public con As ADODB.Connection
Public rs As ADODB.Recordset
Espero te sirva.
Saludos.
