[VB.NET] Visualizzare dato di un record Access in un controllo Label

[mandrake_01]

Ciao,
ho creato una piccola form , dove mi connetto ad un db tramite ado, poi eseguo una query con un campo di ricerca sull'id e vorrei fare in modo di visualizzare il record selezionato in una label1 e visualizzare anche in una label2 i record succesivo, ma non riesco a farlo.
Qualcuno mi puo dare qualche suggerimento?
Grazie

Imports System.Data.OleDb
Imports System.Windows.Forms

Public Class Form1
Inherits System.Windows.Forms.Form
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|fatture.mdb" 'Dichiaro la stringa di connessione
Dim cn As New OleDbConnection(ConnString) 'Dichiaro la nuova connessione

Private Sub Trova_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Trova.Click
Dim testotxt As String = txtTrova.Text

cn.Open()

Dim sql As String = "select * from clienti where id=?"
Dim cmd As New OleDbCommand(sql, cn)
cmd.Parameters.AddWithValue("id", testotxt)
Dim dr As OleDbDataReader = cmd.ExecuteReader

Label1.text = ?????
Label2.text = ?????

If txtOut.Text = "" Then
MessageBox.Show("Nessun Record", "Attenzione!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
dr.Close()
cn.Close()
End Sub
End Class

[Makemsis]

Prova questo

Label1.text = dr?NomeColonna

Dimmi se funziona

[mandrake_01]

ho risolto così... label1.text = (dr(0))

Per vedere il record successivo immagino debba fare un'altra query incrementando di 1 l'id , giusto??

[Makemsis]

Non penso che tu debba rieseguire la query per farti restiuire ogni record. Prova a modificare la Query così:

"select * from clienti"

Così ti vengono restituiti tutti i record...

Da quanto ho capito usi "dr" come un array quindi, come ti dicevo, senza rieseguire la query prova a fare così:

label1.text = (dr(0))
label2.text = (dr(1))
...
...
labeln.text = (dr(n))

[mandrake_01]

Devo visualizzare prima 2 campi del record che ha condizione where id=1 e poi 2 campi dove la condizione where id=2..

Label1.text = (dr(0)) primo campo con id 1
Label2.text = (dr(1)) secondo campo con id 1

Label3.text = ? primo campo con id 2
label4.text = ? secondo campo con id 2

Io al momento ho fatto 2 query.. Si puo fare con una sola query? Come mi hai suggerito tu non mi riesce.

Grazie.
Ciao!