mysql con visial basic

pasion
15 de Septiembre del 2005
podrias uyudarne a como enlazar una base de datos a visual basic, te lo agradecere

neo_met
15 de Septiembre del 2005
Tal vez esto te ayude

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

loq ue hago es hacer una conexcion a una base de datos de acces, y lo que tengo en ella, lo despliego en un listview.
Fácil no.
Un Placer