Visualizzazione dei risultati da 1 a 2 su 2
  1. #1

    [VB6]-Listbox e database!

    CIAO!
    Io mi connetto a un database in questo modo:
    codice:
    Dim ADOCN As New ADODB.Connection
    Dim ADORS As New ADODB.Recordset
            Private Sub Form_Load()
    ADOCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb"
        ADOCN.Open
        ADORS.Open "SELECT * FROM Anagrafica", ADOCN
     End Sub
    Nel form ho inserito una listbox e vorrei ke si popolasse di tutti i dati di UN CAMPO del database (es tutti i nomi)

    Come devo fare?
    Ho provato con:
    codice:
    List1.DataSource = ADORS
        List1.DataField = "nome"
    Ma è evindete ke sbaglio visto ke mi da errore!!
    Ho provato anke con:
    codice:
    Do While Not ADORS.EOF
         List1.AddItem ADORS("nome")
    Loop
    Ma si blocca tutto durante il test... :master:
    Per disperazione ho messo:
    codice:
         List1.AddItem rs("campo")
    Ma mi mette solo il 1° nome del database!!
    CHE POSSO FARE?

    A una curiosità...com'è che col codice che ho messo a volte si connette e invece a volta mi da il percorso di vb (C:\Programmi\Microsoft Visual Studio\VB98) con conseguente errore ke nn trova il db (ke è nella cartella del programma) e per far il debug mi tocca metter tutto il percorso assoluto sino alla cartella in cui sta il DB?!?

    Grazie infinite!
    CIAO!

  2. #2
    risolto!

    codice:
    Dim ADOCN As New ADODB.Connection
    Dim ADORS As New ADODB.Recordset
    Dim Lista As String
        
        Private Sub Form_Load()
    ADOCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb"
        ADOCN.Open
        ADORS.Open "SELECT * FROM Anagrafica", ADOCN
        Do Until ADORS.EOF
          Lista = ADORS("Nome") & " " & _
                        ADORS("Cognome")
          List1.AddItem Lista
          ADORS.MoveNext
       Loop
      End Sub
    :mavieni:

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.