Base De Datos En Access

[extrem_bcn]

Iniciado por 12sam

hola soy samuel:

te agredeceria si me pusieras el codigo que mencionas

muchas gracias:

hasta luego:

Perdona que haya tardado tanto en contestar. Aquí lo tienes

Código:

Dim strSQL As String
Dim adoCon as ADODB.Connection
Dim adoRes As ADODB.Recordset
Dim list As ListItem

    'creas la conexión
    Set adoCon = New ADODB.Connection
    
    'le pasas los parametros
    With adoCon
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\reimon\Escritorio\Proyectos\Taxi\BDD.mdb;Persist Security Info=False"
        .CursorLocation = adUseClient
        .Open
    End With

    'Sentencia SQL
    strSQL = "SELECT artistaID, artistaNombre FROM artistas;"

    'creas el recordset y lo rellenas
    set adoRes = new ADODB.RecordSet
    adoRes.Open strSQL, adoCon

    'Añades los registros al ListBox
    If Not (adoRes.EOF and adoRes.BOF) Then
        Do While Not adoRes.EOF
             Set list = ListView1.ListItems.Add(, , adoRes("artistaNombre"))
             adoRes.MoveNext
        Loop
    Else
        MsgBox "No hay registros disponibles."
    Enf If