Conectar Mysql Con VB6

[Potro]

Hola amigos del foro, saben estoy empezando con VB6 ya tengo conocimientos de Mysql y quiero conectar estas dos herramientas para poder hacer bases mas dinamicas pero la bronca es que no he encontrado algún ejemplo para hacer esto .

Espero que me puedan ayudar.

Tengo mi Driver ODBC de Mysql para hacer conecciones.


Saludos::::

[Frehley]

Espero que te sirva por lo menos para tener una idea.

Option Explicit

Private ADOCn As ADODB.Connection
Private ConnString As String
Private adoRS As ADODB.Recordset
Private sSQL As String

Private Sub Form_Load()
'Abrir base de datos
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\basededatos.mdb;" & _
"Persist Security Info=False"

Set ADOCn = New ADODB.Connection
ADOCn.ConnectionString = ConnString
ADOCn.Open ConnString
End Sub

Private Sub Command1_Click()
'crear recordset
Set adoRS = New ADODB.Recordset
sSQL = "SELECT * FROM people"
adoRS.Open sSQL, ADOCn
End Sub

Salu2!

[mveraa]

hola ese ejemplo esta probado , ponlo dentro de un boton . no te olivedes hacer la referencia a MICROSOFT ACTIVEX DATA OBJECTS 2.8 LIBRARY

un saludo





Private Sub Command1_Click()



Dim CON As ADODB.Connection

Dim comd As ADODB.Command
Dim rt As ADODB.Recordset



Set CON = New ADODB.Connection
Set comd = New ADODB.Command
Set rt = New ADODB.Recordset
CON.CommandTimeout = 40
CON.CursorLocation = 1
'CON.ConnectionString = "server=localhost;driver=mysql;db=proyecto"
CON.Open "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=rm;SERVER=172.16.7.136;UID=mysql; PASSWORD=palam;PORT=3306;"

'CON.Open
Set comd.ActiveConnection = CON
comd.CommandType = 1
comd.CommandText = "select cod_dep from departamentos where cod_dep=3"

rt.Open comd, , 1, 1


MsgBox rt.Fields("cod_dep")




End Sub

[juandedios]

Saludos, yo estoy ahciendo una aplicacion con VB6 y MySQL5, hize la conexion la cual dio buena (aqui el pequeño codigo)

Código PHP:

  Dim strOpen 
    Set CNMySQL = New ADODB.Connection 
    strOpen = "DRIVER={MySQL Connector/ODBC v5};SERVER=gerencia;DATABASE=genesis;USER=root;PASSWORD=root;" 
     
    CNMySQL.Open strOpen  
   

(La variable CNMySQL ya fue declarada anteriormente).

hasta ahi todo esta bien, hize una prueba de conexion

Código PHP:

  If CNMySQL.State = 1 Then 
        MsgBox "Conexión satisfactoria !!!" 
    Else 
        MsgBox "Error al conectar.  :(" 
    End If  
   

y da como respuesta el primer msg, es decir ¡¡¡¡ESTA CONECTANDOSE A LA BASE DE DATOS!!!!

El problema está cuando quiero acceder a una tabla desde VB6, me sale ¡¡ERROR DE VISUAL BASIC!! y no me permite continuar. A que se puede deber esto?, estaba pensando en falta de memoria, pero ... no lo se.

[Potro]

Frehley, mveraa y juandedios.

Muchas gracias por los ejemplos, espero no tener ningun problema por algo que haga mal jejejeje.

SALUDOS::::

[Potro]

mveraa
no encuentro esta aplicación donde la doy de alta en los controles no la encuentro.


MICROSOFT ACTIVEX DATA OBJECTS 2.8 LIBRARY

[NeoZ]

Iniciado por Potro

mveraa
no encuentro esta aplicación donde la doy de alta en los controles no la encuentro.


MICROSOFT ACTIVEX DATA OBJECTS 2.8 LIBRARY

Menú Proyecto -> Referencias... , y buscas la libreria. La marcas y... suerte!!! ;)

Saludos!!!

[Potro]

Muchas gracias Neoz...

[coxa]

Hola Tengo un instalador de el ODBC de Mysql, lo instalas en tu máquina, creas tu odbc y dese visual basic lo llamas y listo!!!

No encuentro cómo poner en el foro el instalador, o díganme dónde lo instalo para ustedes.

saludos...

[GeoAvila]

Iniciado por coxa

Hola Tengo un instalador de el ODBC de Mysql, lo instalas en tu máquina, creas tu odbc y dese visual basic lo llamas y listo!!!

No encuentro cómo poner en el foro el instalador, o díganme dónde lo instalo para ustedes.

saludos...

jeje solo podes dejar el link porque únicamente moderadores y colaboradores lo pueden hacer.. y lamentablemente este colaborar ya no tiene espacio para colocar otro más...

nos vemos..

[aldo1982]

creo ke lo ke hay en las FAQs es suficiente no se porke tantas explicaciones, bye

[GeoAvila]

Iniciado por aldo1982

creo ke lo ke hay en las FAQs es suficiente no se porke tantas explicaciones, bye

claro hay bastante info.. allá...

nos vemos...

[macmia]

hola necesito ayuda, tengo que conectar una bd de mysql con vb6 pero ya intente todo lo que viene en el foro pero no me sale.PORFAVOR AYUDENME SI, creo tener el instalador de odbc pero parece que no se usalo porfavor ayudenme con eso.

mil gracias

mi correo es [email protected] para cualquier cosa

[extrem_bcn]

Iniciado por macmia

hola necesito ayuda, tengo que conectar una bd de mysql con vb6 pero ya intente todo lo que viene en el foro pero no me sale.PORFAVOR AYUDENME SI, creo tener el instalador de odbc pero parece que no se usalo porfavor ayudenme con eso.

mil gracias

mi correo es [email protected] para cualquier cosa

Aver te lo explicaré lo mejor que pueda.

Código:

Private Sub Command1_Click()

Dim CON As ADODB.Connection
Dim rt As ADODB.Recordset
Dim strSQL as String

'creas el Objeto CON (será la connexión)
Set CON = New ADODB.Connection
'se crea el Objeto re (será el recordset)
Set rt = New ADODB.Recordset

CON.CursorLocation = adUseClient
'Aquí has de canbiar el UID (mysql) y el PASSWORD (palam) por los tuyos (de mysql)
CON.Open "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=rm;SERVER=172.16.7.136;UID=mysql; PASSWORD=palam;PORT=3306;"


strSQL =  "instrucción SQL que quieras"

'en este momento el recordset (rt) se llena
rt.Open strSQL, CON

'a partir de aquí puedes empezar a trabajar con el recordset (rt)

End Sub

Creo que más ya no puedo ayudarte. Si tienes alguna duda más hazla, pero que sea más específica.

[macmia]

gracias por la explicacion creeme que ya lo he intentado, ahora tengo otro problema mira, la linea de codigo
con.ConnectionString= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;OPTION==131072 ;DATABASE=farmacia;USER=root;PASSWORD=2332;OPTION= 3;"

esta bien, pero cuando llega a la linea con.Open, dice que no se encuentra el origen de los datos y que no se especifico ningun controlador, ya instale el ODBC y dice que la coneccion es satisfactoria pero ya en vb no lo conecta.

disculpen las molestias pero de verdad es muy importante

gracias

[extrem_bcn]

cuando configuras el ODBC (ODBCAD32) lo haces en DSN de usuario? de archivo ? o sistema?

[macmia]

lo configure en DSN de usuario, pero si no es mucho pedir podrias mandar un ejemplo a mi correo?

[pangallo]

OK ANTES QUE NADA TIENES QUE BAJAR EL DRIVER PARA HACER LA CONEXION DE MYSQL CON VISUAL BASIC 6.0 una vez que o bajaste lo instalas, despues activas microsoft activex data objects 2.8 library y microsoft remote data object en preferencias una vez que tengas activado esto ya pones e siguiente codigo
Public Cn As ADODB.Connection
Public SQLServerConnection As String
Public Cm As ADODB.Command
Public Rs As ADODB.Recordset

Public Sub conexion()

Set Cn = New ADODB.Connection
Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=digitalexpress;" _
& "UID=root;PWD=; OPTION=3"
Cn.Open
End Sub
esto lo puse en un modulo y ya cada vez que vayas a ocupar la conexion mandas a traer la funcion.
espero te sirva

[ReViJa]

Aqui tienes algo mas de info (por si te interesa)


Saludos.

[macmia]

MUCHISIMAS GRACIAS, de verdad que son todos unos expertos, espero no haber causado muchas molestias, un gran saludo. BYE