Pregunta

Christian Perez escribió:
Mostrar la cita

Necesito un codigo de como conectar un programa en visual
Basic 6 con MySql.

Un pequeño ejemplo de su uso

Modulo :
Global db_Activos As New MYSQL_CONNECTION

Formulario :
Dim rs_Temporal As MYSQL_RS 'Declaracion del Record set

db_Activos.SetOption MYSQL_OPT_COMPRESS 'Opciones de Conexion
db_Activos.OpenConnection Servidor, Usuario, PassWord, "", Puerto, Flags
'Los dos utilmos son opciones el puerto(3306) y Flags

If db_Activos.State <> MY_CONN_OPEN Then
msgbox "No Pudo accesar a base de Datos"
unload Me
End
End If

db_Activos.SelectDb Trim(Base_de_Datos) 'Seleccion la bases de datos

Set rs_Temporal = db_Activos.Execute("Select Id_Area,Descripcion from
Area order by Id_Area")

If rs_Temporal.RecordCount then
textbox(0).text = rs_Temporal.Fields(0).Value 'Asignacion
' o del siguiente manera
textbox(0).text = rs_Temporal.Fields("Id_Area").Value
rs_Temporal.MoveNext
End If

para esto utiliza 2 dlls los cuales son
MYVBQL.DLL
LIBMYSQL.DLL

Si gustas te mando a tu correo los dlls ya que empacados mide 147KB