[VB.NET] Visualizzare ultimo record in una TextBox

[ieschfor]

Salve a tutti;è da poco che ho scoperto vb.net , il mio problena è questo ,ho creato un piccolo database in access e l'ho caricato in vb ,in un datagridwieu ho creato una textbox dove voglio visualizzare l'id dell'ultimo record creato ,ogni volta che aggiungho un record visualizzare l'id.grazie anticipatamente

[alka]

Ciao e benvenuto nel forum di Programmazione.

Ti segnalo da subito la lettura del nostro Regolamento che contiene tutte le norme da seguire per partecipare correttamente a quest'area del forum.

In modo particolare, devi sempre indicare il linguaggio utilizzato nel titolo della discussione, indicando la versione nel caso in cui ne esistesse più di una. Qui ho corretto io il titolo.

Detto questo, ciao e...buon forum!

[ilfurla]

Secondo me si potrebbe fare così:

        Dim Comando As OleDb.OleDbCommand
        Dim Lettore As OleDb.OleDbDataReader
        Dim rsQry As String

        rsQry = "SELECT id FROM nometabella ORDER BY id desc"
        Comando = New OleDb.OleDbCommand(rsQry, cnConne) 'cnConne è la connessione
        Lettore = Comando.ExecuteReader
        Lettore.Read()
        TextBox1.Text = Lettore.GetInt32(0)
        Lettore.Close() : Comando = Nothing

[ieschfor]

Originariamente inviato da alka
Ciao e benvenuto nel forum di Programmazione.

Ti segnalo da subito la lettura del nostro Regolamento che contiene tutte le norme da seguire per partecipare correttamente a quest'area del forum.

In modo particolare, devi sempre indicare il linguaggio utilizzato nel titolo della discussione, indicando la versione nel caso in cui ne esistesse più di una. Qui ho corretto io il titolo.

Detto questo, ciao e...buon forum!

ok alka ,scusa no accadrà piu

[ieschfor]

Originariamente inviato da ilfurla
Secondo me si potrebbe fare così:

        Dim Comando As OleDb.OleDbCommand
        Dim Lettore As OleDb.OleDbDataReader
        Dim rsQry As String

        rsQry = "SELECT id FROM nometabella ORDER BY id desc"
        Comando = New OleDb.OleDbCommand(rsQry, cnConne) 'cnConne è la connessione
        Lettore = Comando.ExecuteReader
        Lettore.Read()
        TextBox1.Text = Lettore.GetInt32(0)
        Lettore.Close() : Comando = Nothing

provo e ti faccio sapere grazie

[ieschfor]

Originariamente inviato da ilfurla
Secondo me si potrebbe fare così:

        Dim Comando As OleDb.OleDbCommand
        Dim Lettore As OleDb.OleDbDataReader
        Dim rsQry As String

        rsQry = "SELECT id FROM nometabella ORDER BY id desc"
        Comando = New OleDb.OleDbCommand(rsQry, cnConne) 'cnConne è la connessione
        Lettore = Comando.ExecuteReader
        Lettore.Read()
        TextBox1.Text = Lettore.GetInt32(0)
        Lettore.Close() : Comando = Nothing

non funziona

[ilfurla]

Che errore ti dà?

[ieschfor]

nessuno,nella textbox non visualizza nulla

[ieschfor]

cnConne non dichiarato

[ilfurla]

Rieccomi. Scusami, ma avevo dato per scontato che sapessi fare l'apertura della connessione. Prima della serie di istruzioni che ti ho postato ieri aggiungi:

dim cnConne As New OleDb.OleDbConnection
        cnConne.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\nomedb.mdb;"
        Try
            cnConne.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox(ex.ToString)
        End Try

Naturalmente al posto di C:\nomedb.mdb devi mettere il percorso completo ed il nome del tuo MDB

Dopo la serire di istruzioni che ti ho postato ieri aggiunti:

        cnConne.Close()

Anche nella query di ieri il nometabella deve essere sostituito dal nome della tua tabella e id deve essere sostituito dal nome del campo che per te rappresenta l'id
Più o meno devrebbe essere tutto. Prova e fammi sapere