Crear consultas de MySQL en Visual Basic 6

[dahernandezvillegas]

¿Cómo puedo crear consultas en Visual Basic 6 con base de datos MySQL?, mostrando los datos en TextBox. Capturar un valor por TextBox. Hacer la consulta por select*from ...where... en VB6.

Les recomiendo que me ayuden ya que es un proyecto para finalizar semestre en la U.

Gracias

[boluart]

Les recomiendo que me ayuden ya que es un proyecto para finalizar semestre en la U

vaya recomendacion, lo que yo si te voy a recomendar un buen manual de MySql

Antes de nada que componentes estas usando para conectarte?

Si manejas cualquier otro lenguaje de consulta no se te va a ser muy complicado. la diferencia de sisntaxis es minima a SQL Server

[dahernandezvillegas]

Cordial saludo.

La forma de conectarme a MySQL con Visual Basic, la tome de este foro que es la siguiente y me conecta bien. Ahora lo que necesito es empezar a hacer las consultas.

Public ConexionMySQL As ADODB.Connection
Public RecSQL As ADODB.Recordset

Private Const DRIVER_MYSQL As String = "DRIVER={MySQL ODBC 3.51 Driver};"
Private Const INFO_MYSQL As String = "SERVER=hotelesestelares.no-ip.info;PORT=3306;DATABASE=" & _
"datos;USER=MySQLHotel;PASSWORD= server;"

Sub openconexion()

Set ConexionMySQL = New ADODB.Connection

'conexion a MySql
ConexionMySQL.Open DRIVER_MYSQL & INFO_MYSQL
End Sub

Sub closeconexion()

'cerramos conexion
ConexionMySQL.Close

End Sub

[boluart]

Set RecSQL = New ADODB.Recordset


RecSQL .Open "SELECT * FROM myTable", ConexionMySQL , adOpenDynamic, adLockOptimistic


El lenguaje de consulta (SQL) no va a variar mucho si haces consultas simples, para consultas mas complejas un buen manual de MySql no te vendria nada mal

[GeoAvila]

Iniciado por dahernandezvillegas

Les recomiendo que me ayuden ya que es un proyecto para finalizar semestre en la U.

jejeje.. nada mas..

que que envez de "Les recomiendo", sería "Les agradezco me ayuden"

pero bueno...

revisá en las faq's alli puse un post donde explico como hacer la conexión

nos vemos..

[ashely]

hola esto me fue muy util para crear conexion vb6 y mysql y para hacer consultas

Dim rsusuario As ADODB.Recordset
Dim conMysql As ADODB.Connection

Set conMysql = New ADODB.Connection

conMysql.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=prueba;" _
& "UID=root;PWD=1489; OPTION=3"

conMysql.CursorLocation = adUseClient
conMysql.open


Set rsusuario = New ADODB.Recordset
With rsusuario
Source = "Select * From datos"
ActiveConnection = conMysql
CursorType = adOpenStatic
CursorLocaion = udUseClient
LockType = adLockOptimestic
End With

[seba123neo]

Hola,las consultas son las mismas,solo cambia el driver de coneccion...

saludos.

[ashely]

Este codigo le puedes meter en un boton o desde el form,

Public rt As ADODB.Recordset ' (estas variable las hice puclicas para poder utilizarlas en mas de un formulario)'
Public conMysql As ADODB.Connection

Set conMysql = New ADODB.Connection
conMysql.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=db;" _
& "UID=root;PWD=1489; OPTION=3"
conMysql.Open
conMysql.DefaultDatabase = "bd"
conMysql.CursorLocation = adUseClient

Set adm = New ADODB.Recordset
With rt
Source = "Select * From datos"
ActiveConnection = conMysql
CursorType = adOpenStatic
CursorLocation = udUseClient
LockType = adLockOptimestic
End With

rt.Open Source, conMysql, adOpenStatic, adLockOptimistic, adCmdUnknown
Label12 = rt.Fields(0)
Label13 =rt.Fields(2)

si las consultas las quieres hacer en un textbox solo cambia los labels por textbox,
______________________
HAY TRES COSA QUE NO VUELVEN ATRSS:
1 LA FLECHA LANZADA
2 LAS PALABRAS MENCIONADAS
3 LA OPRTUNIDAD PERDIDA