Programación General > Visual Basic 6.0 e inferiores

 Conexion De Mysql

(1/1)

spiderman1602:
por favor alguien que me pueda decir como puedo conectar visual basic a mysql es para un proyecto escolar o si alguien tiene un ejemplo seria un poco mejor de lo cual estaria muy agradecido de antemano muchas gracias...

:-D

atte. spider

F_Tanori:
Hola Tienes Instalado el MySQL ya?

http://dev.mysql.com/downloads/mysql/5.0.html

en esa pagina en la seccion de Conectores descargas el driver ODBC
lo instalas y creas el DSN y te conectas como cualquier base de datos :P

Aqui hay un Ejemplo con RDO
http://www.elguruprogramador.com.ar/zonas/ver.asp?cod=115

aqui hay un ejemplo con ADO espero que sea entendible


--- Código: Visual Basic ---'En el Form Private Sub Form_Load()Dim lo_rs as RecordSetDim ls_ap_pat as String gs_CnnStr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;Database=data;USER=sistema;PWD=123456;OPTION=3"set go_Cnn=ConectarBD(gs_CnnStr)    if go_Cnn.State>1 then    set lo_rs=Consulta("SELECT * FROM t_Nomina ap_pat='"& ls_ap_pat &"'")        With lo_rs       do while not .EOF        MsgBox("Resultado",![nombre])        .MoveNext       loop    end with     else     MsgBox("No Hay conexion con la Base de datos")   end if    End Sub  
--- Código: Visual Basic ---'============================================================================'En Modulo Public go_Cnn as ConnectionPublic gs_CnnStr as String Function ConectarBD(ByVal as_cnnstr As String) As ConnectionOn Error Resume Next    Dim lo_cnn As Connection       Set lo_cnn = New Connection    lo_cnn.Open as_cnnstr    lo_cnn.CursorLocation = adUseClient     Set ConectarBD = lo_cnnEnd Function '==========================================================================Function Consulta(as_SQL As String, ByVal ao_cnn As Connection) As RecordsetOn Error Resume Next    Dim lo_rs As Recordset    Set lo_rs = New Recordset    lo_rs.Open as_SQL, lo_cnn    Set Consulta = lo_rsEnd Function 

Otras paginas de utilidad

http://www.connectionstrings.com/
http://www.elguille.info/vb/bases/ADO/indiceADO.htm
http://www.google.com/ :P

Saludos
Mexicali B.C.

Navegación

[0] Índice de Mensajes