SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: spiderman1602 en Lunes 25 de Septiembre de 2006, 00:49

Título: Conexion De Mysql
Publicado por: spiderman1602 en Lunes 25 de Septiembre de 2006, 00:49
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
Título: Re: Conexion De Mysql
Publicado por: F_Tanori en Lunes 25 de Septiembre de 2006, 10:55
Hola Tienes Instalado el MySQL ya?

http://dev.mysql.com/downloads/mysql/5.0.html (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 (http://www.elguruprogramador.com.ar/zonas/ver.asp?cod=115)

aqui hay un ejemplo con ADO espero que sea entendible

Código: Visual Basic
  1. 'En el Form
  2.  
  3. Private Sub Form_Load()
  4. Dim lo_rs as RecordSet
  5. Dim ls_ap_pat as String
  6.  
  7. gs_CnnStr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;Database=data;USER=sistema;PWD=123456;OPTION=3"
  8. set go_Cnn=ConectarBD(gs_CnnStr)
  9.  
  10.   if go_Cnn.State>1 then
  11.     set lo_rs=Consulta("SELECT * FROM t_Nomina ap_pat='"& ls_ap_pat &"'")
  12.    
  13.     With lo_rs
  14.        do while not .EOF
  15.         MsgBox("Resultado",![nombre])
  16.         .MoveNext
  17.        loop
  18.     end with  
  19.   else
  20.      MsgBox("No Hay conexion con la Base de datos") 
  21.   end if
  22.    
  23. End Sub
  24.  
  25.  
Código: Visual Basic
  1. '============================================================================
  2. 'En Modulo
  3.  
  4. Public go_Cnn as Connection
  5. Public gs_CnnStr as String
  6.  
  7. Function ConectarBD(ByVal as_cnnstr As String) As Connection
  8. On Error Resume Next
  9.     Dim lo_cnn As Connection
  10.    
  11.     Set lo_cnn = New Connection
  12.     lo_cnn.Open as_cnnstr
  13.     lo_cnn.CursorLocation = adUseClient
  14.  
  15.    Set ConectarBD = lo_cnn
  16. End Function
  17.  
  18. '==========================================================================
  19. Function Consulta(as_SQL As String, ByVal ao_cnn As Connection) As Recordset
  20. On Error Resume Next
  21.     Dim lo_rs As Recordset
  22.     Set lo_rs = New Recordset
  23.     lo_rs.Open as_SQL, lo_cnn
  24.     Set Consulta = lo_rs
  25. End Function
  26.  


Otras paginas de utilidad

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

Saludos
Mexicali B.C.