1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Dim strQ As String = "SELECT * FROM TableTestNum"
Dim daTable As New OleDbDataAdapter(New OleDb.OleDbCommand(strQ, Cnn))
Dim dtTable As New DataTable
daTable.Fill(dtTable)
Dim lecture As DataTableReader = dtTable.CreateDataReader
Do While lecture.Read
Console.WriteLine(lecture.GetInt32(0))
'Console.WriteLine(lecture.GetInt32(1)) --> ne marche pas
Console.WriteLine(CInt(lecture(1)))
'Console.WriteLine(lecture.GetInt32(2))--> ne marche pas
Console.WriteLine(CInt(lecture(2)))
'Console.WriteLine(lecture.GetInt32(3))--> ne marche pas
Console.WriteLine(CInt(lecture(3)))
'Console.WriteLine(lecture.GetInt32(4))--> ne marche pas
Console.WriteLine(CInt(lecture(4)))
Console.WriteLine(lecture.GetInt32(5))
'Console.WriteLine(lecture.GetInt32(6))--> ne marche pas
Console.WriteLine(CInt(lecture(6)))
Loop
lecture.Close() |