conexiòn mysql con VB

katherine_elvira
15 de Septiembre del 2005
pasos para hacer una conexìon con una BD de msql
en VBsp5 urgente

neo_met
15 de Septiembre del 2005
Private Sub Form_Load()
Dim conex As New ADODB.Connection
Dim recor As New ADODB.Recordset
Dim nomb, direc, ciud, tel, fax, rfc As String
Dim cp As Long

' Asignar lo valores predeterminados
With ListView1
' Las pruebas serán en modo "detalle"
.View = lvwReport
' al seleccionar un elemento, seleccionar la línea completa
.FullRowSelect = True
' Mostrar las líneas de la cuadrícula
.GridLines = True
' No permitir la edición automática del texto
.LabelEdit = lvwManual
' Permitir múltiple selección
.MultiSelect = False
' Para que al perder el foco,
' se siga viendo el que está seleccionado
.HideSelection = False
End With

nSQL = "SELECT * FROM datos ORDER BY nomb"

sServer = "hector5"
sNombBD = App.Path + "base1.mdb"
gsUsuario = "Admin"
gsPassword = ""
sConexion = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data source=" & sNombBD
conex.Open sConexion, gsUsuario, gsPassword
recor.Open nSQL, conex, adOpenDynamic, adLockOptimistic
' recor.MoveFirst

Do While Not recor.EOF
nnomb = recor.Fields("nomb")
ndirec = recor.Fields("direc")
nciud = recor.Fields("ciud")
nfeex = recor.Fields("feex")
nfeven = recor.Fields("feven")
ntel = recor.Fields("tel")
nfax = recor.Fields("fax")
ncp = recor.Fields("cp")
nrfc = recor.Fields("rfc")

With ListView1.ListItems.Add(, , nnomb)
.SubItems(1) = ndirec
.SubItems(2) = nciud
.SubItems(3) = nfeex
.SubItems(4) = nfeven
.SubItems(5) = ntel
.SubItems(6) = nfax
.SubItems(7) = ncp
.SubItems(8) = nrfc
End With
recor.MoveNext
Loop
conex.Close

End Sub

Aqui la hago pero en visual 6, los datos qwue tengop en la bse de datos, los despligo en un listview..
Espero te sirva Saludos...