[VB6] Neofitadi database access

[goku370]

Vorrei creare un programma che memorizza in database access dei nominativi con relativi dati (indirizzo, num. di telefono, num. di cellulare, data di compleanno, ecc.) E vorrei che il mio programma li "ripescasse" quando volgio.

Non ho mai usato un database, e non neanche da dove cominciare.
Qualcuno mi può aiutare o mi sa consigliare un guida in internet basilare?

[ciro78]

nella sezione programmazione di questo sito è disponibile proprio un esempio di come creare un'applicazione simile alla tua


http://programmazione.html.it/visual...albasic_18.htm

[goku370]

In internet ho trovato questo codice che dovrebbe servire per aprire un database access, e caricare i dati in una ComboBox:

Option Explicit
    Dim cn As ADODB.Connection ' DICHIARO L'OGGETTO CONNECTION
    Dim rs As ADODB.Recordset  ' DICHIARO L'OGGETTO RECORDSET
    Dim s() As String          ' STRINGA DI ARRAY CHE SERVIRA' IN ALCUNE FASI DEL PROGRAMMA

Private Sub Form_Load()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE I DATI
    cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=database.mdb"
    rs.Open "SELECT id, nome FROM utenti ORDER BY nome ASC", cn, 1

    ' INSERISCO UN ITEM VUOTO NELLA COMBO BOX
    Seleziona.AddItem ("")

    ' ESTRAGGO I DATI CHE MI INTERESSANO DALLA TABELLA E LI INSERISCO NELLA COMBO BOX
    While rs.EOF = False
        Seleziona.AddItem (rs("id").Value & " - " & rs("nome").Value)
        rs.MoveNext
    Wend

    rs.Close
    cn.Close
End Sub

Ma quando faccio partire il programma mi viene fuori un errore:
Run-Time Error
[Microsoft][Driver ODBC Microsoft Access] Impossibile trovare il file
"(sconosciuto)"

e la stringa

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=database.mdb"

viene evidenziata...

Cosa può essere. Io ho inserito nella stessa cartella del progetto anche un file "database.mdb" creato manualmente...

[ciro78]

prova così

connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db.mdb"

ho aggiunto app.path

[goku370]

Funzia...

[goku370]

Ecco il secondo problema:

cell.Text = rs("cell").Value

Se il campo "cell" nel database è vuoto mi da errore.
Come faccio a gestire l'errore e visualizzare semplicemente il campo vuoto?

[goku370]

Vabbè, ci scrivo (non presente)...

[xegallo]

Originariamente inviato da goku370
Ecco il secondo problema:

cell.Text = rs("cell").Value

Se il campo "cell" nel database è vuoto mi da errore.
Come faccio a gestire l'errore e visualizzare semplicemente il campo vuoto?

cell.Text = iif(isnull( rs("cell").Value),"",rs("cell").Value)