Base De Datos En Access

[12sam]

Tengo una duda de como generar una consulta de una tabla de que se llama artistas y sus campos son:

artistaID
artistaNombre

y quiero generar una consulta de esta tabla y que se agregue a un list y me mande nomas el nombre al list no tengo la idea de como hacerlo si alguien me
ayuda con el codigo gracias esto es con ODBC

atte Samuel

[extrem_bcn]

la consulta sql seria esta:

"SELECT artistaID, artistaNombre FROM artistas;"

y para añadir los resultados de la sentencia SQL deberias de crear un recordset y mediante un bucle irlos añadiendo al listBox. Si el principal problema que tienes es no saber como añadirlos dimelo y te pongo el código (no te lo pongo ahora porque no tengo tiempo).

[12sam]

hola soy samuel:

te agredeceria si me pusieras el codigo que mencionas

muchas gracias:

hasta luego:

[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