Conexion entre MySQL y Visual B
Hola: mi problema es que necesito hacer una conexion entre MySQL y Visual B. Alguien podria decirme que tengo que hacer?
muchas gracias de antemano
muchas gracias de antemano
debes instalar en tu equipo el controlador de drivers para mysql el cual es: MyODBC-standard-3.51.9-win.exe lo consiges en la pagina de msql y luego es igual a cualquier conexion por odbc a travez de ADO
Estimado:
hace unos dÃas que estoy buscando lo mismo o muy parecido.
Tengo que conectarme desde VB a una Base MySql (4.1.10) que está en un servidor Linux/Sarge.
Mi problema principal es el uso de la red local para conectarme.
Si la BD está bajo win en la misma maquina anda, pero al estar en una maquina de la red, no.
Espero también que alguien pueda hechar un poco de luz a este problema.
saludos
karlos
hace unos dÃas que estoy buscando lo mismo o muy parecido.
Tengo que conectarme desde VB a una Base MySql (4.1.10) que está en un servidor Linux/Sarge.
Mi problema principal es el uso de la red local para conectarme.
Si la BD está bajo win en la misma maquina anda, pero al estar en una maquina de la red, no.
Espero también que alguien pueda hechar un poco de luz a este problema.
saludos
karlos
debes crear un formulario y adicionarle un List y un boton luego de configurar la conexion ODBC iniciando el "odbcad32" desde ejecutar y en DSN de sistema se leccionas el driver MySqlOdbc que tengas instalado
codigo Basic a continuacion
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=locos;" 'nombre de la conexion
cn.Open
rs.Source = "select * from cliente"
Set rs.ActiveConnection = cn
rs.Open
List1.Clear
Do Until rs.EOF
List1.AddItem rs!identificacion
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
codigo Basic a continuacion
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=locos;" 'nombre de la conexion
cn.Open
rs.Source = "select * from cliente"
Set rs.ActiveConnection = cn
rs.Open
List1.Clear
Do Until rs.EOF
List1.AddItem rs!identificacion
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
