Ciao come faccio a visualizzare tutti i dati in un dataset o datarow con un ciclo while?
io ho questo codice
come faccio a dire al while che deve ciclare tutto il dataset fino alla fine come facevo in vb6 con i recorset RS.eofcodice:Dim sql As String = "SELECT * FROM utenti" Dim condati As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=Z:\testDB\testDB\testaccess.mdb") Try If condati.State <> ConnectionState.Open Then condati.Open() End If Dim adapterDati As OleDbDataAdapter = New OleDbDataAdapter(sql, condati) Dim cmdBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(adapterDati) Dim dtsDati As New DataSet() adapterDati.MissingSchemaAction = MissingSchemaAction.AddWithKey 'Carico il dataset adapterDati.Fill(dtsDati, "utenti") while MsgBox(dtsDati.Tables("utenti").Rows(0).Item("nome")) end while Catch ex As Exception MessageBox.Show("Errore: " & ex.Message) Finally 'Chiudo la connessione If Not condati Is Nothing Then If condati.State = ConnectionState.Open Then condati.Close() End If condati.Dispose() End If End Try
grazie
ciao

Rispondi quotando