Textbox da database

di
jonny_24
il
8 risposte
J
jonny_24
Pochi posts
Iscritto da
nov, 2019
Messaggi:
21

Textbox da database

Buonasera a tutti,
ho un altro problema (come al solito)....
Ho un database con una serie di tabelle ed in una di queste col nome "percorso" è composta da un solo campo (indirizzo) che contiene una sola voce (ad es. Roma).
Vorrei che quando apro il database nella schermata del form, nella textbox txt_indirizzo mi legge la parola della voce "Roma" .
Il codice che ho utilizzato per l'apertura del database è questo:
Public Function ApriDatabase_Personale()
On Error GoTo RigaErrore
Set DB = OpenDatabase(App.Path & "\Dati.mdb", False, False, "; pwd=1234")
Exit Function
RigaErrore:
errormsg = MsgBox("Impossibile trovare il file mdb!", vbCritical, "Errore")
End
End Function

8 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21701

    Re: Textbox da database

    Devi usare un recordset e leggere il campo dalla tabella al form load dopo aver aperto il db.
    Trovi esempi di codice ovunque
  • J
    jonny_24
    Pochi posts
    Iscritto da
    nov, 2019
    Messaggi:
    21

    Re: Textbox da database

    Buongiorno oregon, caricare i dati in una listbox li ho fatti, ma caricare un dato nella textbox incontro difficoltà (sicuramente sarà banale!).
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21701

    Re: Textbox da database

    E' praticamente la stessa cosa, anzi molto più semplice.

    Mostra il codice che hai già usato e dicci perché non riesci ad adattarlo ...
  • J
    jonny_24
    Pochi posts
    Iscritto da
    nov, 2019
    Messaggi:
    21

    Re: Textbox da database

    Public Function carica_dati()
    If rs.RecordCount = 0 Then
    lst_dati.Clear
    errormsg = MsgBox("Nessun documento caricato", vbCritical, "Attenzione!")
    Exit Function
    End If
    rs.MoveLast
    rs.MoveFirst
    max = rs.RecordCount
    rs.MoveFirst
    lst_dati.Clear
    listbox_dati.Clear
    For I = 1 To max
    lst_dati.AddItem rs("voce")
    listbox_dati.AddItem (rs("voce").Value & ": " & rs("descrizione").Value)
    rs.MoveNext
    Next I
    End Function
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21701

    Re: Textbox da database

    Come hai ottenuto rs ?
  • J
    jonny_24
    Pochi posts
    Iscritto da
    nov, 2019
    Messaggi:
    21

    Re: Textbox da database

    Set rs = DB.OpenRecordset("SELECT * FROM " & dati & " ORDER BY voce")
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21701

    Re: Textbox da database

    Quindi il recordset che dovrai utilizzare lo otterrai con

    "SELECT * FROM percorso"

    e una volta ottenuto lo utilizzerai per leggere il dato nella tua textbox

    Text1.Text = rs("indirizzo").Value
  • J
    jonny_24
    Pochi posts
    Iscritto da
    nov, 2019
    Messaggi:
    21

    Re: Textbox da database

    Grazie oregon
Devi accedere o registrarti per scrivere nel forum
8 risposte