Visual Basic - como conectar mysql a visual?

Life is soft - evento anual de software empresarial
   
Vista:

como conectar mysql a visual?

Publicado por brenda (29 intervenciones) el 09/11/2007 18:54:33
hola, porfavor, nececito como conectar una base de datos con visual basic, me comentaron que descargara un ODBC para hacer el enlace con un datareport, nececito mas ayuda de como hacerle, estoy en cero,,. gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como conectar mysql a visual?

Publicado por El conejo (124 intervenciones) el 09/11/2007 22:11:34
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

gracias, nuevamente, cuidate

Publicado por brenda (29 intervenciones) el 09/11/2007 22:37:41
graxias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar