Conexion y consulta MySQL con VB 6.0

[ismirma]

Hola colegas... soy nuevo utilizando el mysicuel y necesito de su apoyo.. estoy haciendo una base de datos e intento conectarla con el VBasic 6.0... si algun colega sabe como hacerlo le agradeceria su apoyo...

Pero abusando de su bondadoso apoyo, dentro de esa conexion necesito hacer una consulta, como ustedes ya saben para conectar la base con la interfaz se requiere de un login y un pass... pues dentro de la base que diseñe en mysicuel, tengo una tabla, 'usuarios' y la idea es que al realizar la conexion al mismo tiempo consulte la tabla mencionada y compare los datos de los text en el formulario tecleados, con los de los usuarios dados de alta en la tabla...


Bueno espero haya sido explicito; y espero su apoyo pronto..

GRACIAS...

[sergi_climent]

Hola.
Par conectarte a Mysql desde VisualBasic, yo lo hago de la siguiente manera:
Esto lo tengo en un modulo.

Código:

Private Const DRIVER_MYSQL          As String = "DRIVER={MySQL ODBC 3.51 Driver};"
Private Const OPCIONS_MYSQL         As String = "SERVER=AQUI LA IP;PORT=3306;DATABASE=" & _
                                                "NOMBREBD;USER=NOMBRE USUARIO;PASSWORD= TU PASSWORD;"
                                              
                                               
Public conexionadoMySql             As ADODB.Connection

Sub openado()

    Set conexionadoMySql = New ADODB.Connection

    'conexion a MySql
    conexionadoMySql.Open DRIVER_MYSQL & OPCIONS_MYSQL
    
End Sub

Sub closeado()

    'cerramos conexion
    conexionadoMySql.Close
  
End Sub

y en un form uso funciones segun la consulta q quiero ejecutar

Código:

Sub Consulta_MySQL()
    openado
        Dim rsMySql As ADODB.Recordset
        Dim strMySql As String
        
        Set rsMySql = New ADODB.Recordset
        strMySql = "SELECT * FROM tabla"
        rsMySql .Open strMySql , conexionadoMySql
        If Not rsPC.EOF Then rsPC.MoveFirst
        While Not rsMySql.EOF
            ' aqui accedes al recordset y sacas los campos q te interesen
            campo= rsMySql!campo
      
        rsMySql.MoveNext
        Wend
       rsMySql.Close
    closeado
End Sub

saludos

[BrujoNic]

Trasladado de BD a Visual Basic.

Función de la sección de Base de Datos

[ismirma]

Mil gracias viejo.. me ayudo mucho tu ejemplo...

gracias por tu apoyo...

saludos!

[culd]

Iniciado por sergi_climent

Hola.
Par conectarte a Mysql desde VisualBasic, yo lo hago de la siguiente manera:
Esto lo tengo en un modulo.

Código:

Private Const DRIVER_MYSQL          As String = "DRIVER={MySQL ODBC 3.51 Driver};"
Private Const OPCIONS_MYSQL         As String = "SERVER=AQUI LA IP;PORT=3306;DATABASE=" & _
                                                "NOMBREBD;USER=NOMBRE USUARIO;PASSWORD= TU PASSWORD;"
                                              
                                               
Public conexionadoMySql             As ADODB.Connection

Sub openado()

    Set conexionadoMySql = New ADODB.Connection

    'conexion a MySql
    conexionadoMySql.Open DRIVER_MYSQL & OPCIONS_MYSQL
    
End Sub

Sub closeado()

    'cerramos conexion
    conexionadoMySql.Close
  
End Sub

y en un form uso funciones segun la consulta q quiero ejecutar

Código:

Sub Consulta_MySQL()
    openado
        Dim rsMySql As ADODB.Recordset
        Dim strMySql As String
        
        Set rsMySql = New ADODB.Recordset
        strMySql = "SELECT * FROM tabla"
        rsMySql .Open strMySql , conexionadoMySql
        If Not rsPC.EOF Then rsPC.MoveFirst
        While Not rsMySql.EOF
            ' aqui accedes al recordset y sacas los campos q te interesen
            campo= rsMySql!campo
      
        rsMySql.MoveNext
        Wend
       rsMySql.Close
    closeado
End Sub

saludos

Porfin alguien que no usa solamente consultas para busqueda en las tablas.

[shadowGT]

hey puedes poner un ejemplo detallando un opoco mas esta parte

' aqui accedes al recordset y sacas los campos q te interesen
campo= rsMySql!campo

rsMySql.MoveNext
Wend
rsMySql.Close
closeado
End Sub

gracias

[sergi_climent]

Iniciado por shadowGT

hey puedes poner un ejemplo detallando un opoco mas esta parte
gracias

Código:

'esta es la consulta SQL a tu tabla, donde sacaremos los datos
strMySql = "SELECT * FROM tabla"
'creamos el recordset (hacemos la consulta)
rsMySql .Open strMySql , conexionadoMySql
'Esta linia la pongo para q me mueva el puntero siempre al primer valor
'me he encontrado alguna vez con algun error y con esto lo he solucionado
If Not rsPC.EOF Then rsPC.MoveFirst
'Bucle - Recorremos todo el recordset hasta el final, y dentro de esto extraeremos los resultados
While Not rsMySql.EOF
' aqui accedes al recordset(a los datos q quieres sacar de tu consulta SQL)
campo= rsMySql!campo
campo1=rsMysql!campo1
campo2=rsMysql!campo2

{...} 'Aqui puedes tener varias opciones todo depende de lo q necesites
'Con lo datos opctenidos podrias hacer un update o un insert a una tabla o bien 
'mostrar los resultados en una grid... eso depende de lo q quieras

'Avanzamos el puntero al siguiente registro
rsMySql.MoveNext
Wend 'Cerramos wl While
rsMySql.Close 'Cerramos el Recordset
closeado ' Cerramos la conexion
End Sub

no ser si asi queda mas claro.... si tienes alguna duda concretala un poquito mas.

Saludos

[GeoAvila]

En las faq's hay un ejemplo

de la como hacer la conexión

nos vemos..

[mauri99]

Soy nuevo y les tengo una consulata...
Primero. Hice exactamente el bas y me tira un error en conexionadoMySql As ADODB.Connection
Segundo. ¿como llamo al modulo desde mi formulario principal para poder abrir la base de datos
De ante mano ,, muchas gracias

[ReViJa]

Hola.

1º- Ese error puede ser causa de falta de referencias.(Microsoft Activex Data Objects 2.0 Library y no recuerdo si alguna más)
2º- El modulo se carga automáticamente al iniciar la aplicación si tener la necesidad de llamarlo, todas las funciones o procedimientos públicos que tenga el modulo se podrán usar en todos los forms.


Un saludo

[mauri99]

muchas gracias. me sacaste la duda...

[mauri99]

La ultima molestia que les cuaso.
Tengo una tabla usuario con los campos: user, clave y perfil
desde el formulario quiero validar si el acceso es correcto. Del código explicado por sergi_climent entiendo que rescato los datos de los campos que desee. Suponiendo que tengo textuserinput y texclave como los comparo si son correctos a la base de datos.

Muchas gracias

[romperajas]

Muchas gracias por el codigo, me fue de mucha ayuda

[varlock_]

oie viejo a mi me sale un error con este codigo

open_ado
Dim rsMySql As ADODB.Recordset
Dim strMySql As String

Set rsMySql = New ADODB.Recordset
strMySql = "SELECT * FROM usuarios"

rsMySql.Open strMySql, conexion --------------------aqui me dice: argumentos incorrectos o fuera de intervalo

If Not rsPC.EOF Then rsPC.MoveFirst
While Not rsMySql.EOF
' aqui accedes al recordset y sacas los campos q te interesen
txt_nick.Text = rsMySql!nick

rsMySql.MoveNext
Wend
rsMySql.Close
closeado

me pudieran ayudar plisss

[papurri]

ublic db As ADODB.Connection
Public tabla As ADODB.Recordset
-------------------------------------------
Public Sub Conexion()
' Realiza la conexion con la base de datos
On Error GoTo msgError
Set db = New ADODB.Connection
Set tabla = New ADODB.Recordset
db.CursorLocation = adUseClient
db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=biblioteca;UID=r oot;PWD=;"
db.Open
Exit Sub
msgError:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Error"
End Sub

[progra360]

Esto te puede ayudar


http://progra360.blogspot.com/2010/07/mysql-en-visual-basic-60.html


[URL="http://progra360.blogspot.com/2010/07/mysql-en-visual-basic-60.html"]http://progra360.blogspot.com/2010/07/mysql-en-visual-basic-60.html[/URL]

[hwongu]

Si deses conectarlo con procedimientos almacenados y de forma mas detallada lo puedes encontrar en el siguiente link

http://hwongu.blogspot.com/2011/02/v...dimientos.html

[cchaparro]

Saludos.

Conecto desde un programa VB6 a MySQL en un equipo local a través del driver ODBC.

Ahora quisiera utilizar la aplicación en redes intranet e internet.

Mi consulta sería si se puede y cómo se haría para conectar:
VB6 + MySQL principal (es el que ya tengo).
VB6 por red al MySQL principal, no se cómo conectarme al ODBC por red o si se podría.
VB6 por red Internet al MySQL con puertos abiertos en el router, y desde VB6 conectar por la IP pública al ODBC MySQL.

La estructura sería:
Equipo 1: VB6 + MySQL (Servidor en un equipo con Internet y puertos abiertos en la IP pública).
Equipo 2: VB6.
Equipo 3: VB6.
.... y conectar equipo 2 y 3 por red local o por red de Internet.

No se si esto se podrá realizar, el problema es que Access no trabaja nada bien en redes, pero la conexión en Intranet es directa al archivo, tipo "\\192.168.0.1\archivo.mdb", y por Internet no se cómo se haría pero igual habría forma con IP pública.

Lo que no quiero es utilizar Access para red en un posible proyecto de software de facturación; con MySQL sería más robusta la parte de datos, y además tendría buena conectividad por Internet, así como posibilidad de montar como servidor Web y poner la información accesible desde cualquier dispositivo móvil.

Espero alguien sepa si esto se puede lograr y cómo se podría.

Dios les bendiga, muchas gracias.