fernando
10 de Abril del 2006

necesito un ejemplo de conexion de mysql a traves
de un modulo de visual basic

JAIR
10 de Abril del 2006

como es?

luenib
10 de Abril del 2006

Este es otro ejemplo:

* OLE DB Provider for mySQL
oConn.Open "Provider=MySQLProv;" & _
"Data Source=mySQLDB;" & _
"User Id=myUsername;" & _
"Password=myPassword"

luenib
10 de Abril del 2006

Y aqui hay mas:

Estos son ejemplos ODBC DSN-less

* ODBC Driver for MySQL (via MyODBC)
' To connect to a local database
oConn.Open "Driver={mySQL};" & _
"Server=MyServerName;" & _
"Option=16834;" & _
"Database=mydb"


' To connect to a remote database
oConn.Open "Driver={mySQL};" & _
"Server=db1.database.com;" & _
"Port=3306;" & _
"Option=131072;" & _
"Stmt=;" & _
"Database=mydb;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"

VictorPuebla
10 de Abril del 2006

Bueno Fher Esta Es Una Conexion Con Querys Para Mysql , Por Ejemplo Query=
"Select * From NombreBaseDeDatos.Modulo"

Public Function Do_Query(Query As String) As ADODB.Recordset
Dim Resultado As ADODB.Recordset, Comando As ADODB.Command, Conexion As ADODB.Connection
Dim Temporal As String
On Error GoTo ErrorSql
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = CadenaDeConexion
Conexion.Open
Set Comando = New ADODB.Command
Comando.ActiveConnection = Conexion
Comando.CommandText = Query
Set Resultado = New ADODB.Recordset
Resultado.Open Query, Conexion, adOpenStatic, adLockReadOnly
Set Do_Query = Resultado
End Function

Si Encuentras Algor Raro Que No Se Use Para Nada Es Por Que Lo Conte Desde Un Progrma Que Hice.

Tambien Lo Puedes Hacer Desde Un DataEnvironment Donde Ya Nadamas Haces La Conexion.