1 2 3 4 5 6 7 8 9 10 11 12
|
connection = New SqlConnection
connection.ConnectionString = logbdd
Dim cmd As SqlCommand = New SqlCommand("select * from T_Dcollect", connection)
Dim _DataReader As SqlDataReader
connection.Open()
_DataReader = cmd.ExecuteReader
Do While (_DataReader.Read)
DataGridView1.Rows.Add(_DataReader(0), _DataReader(1), _DataReader(2), _DataReader(3), _DataReader(4), _DataReader(5), _DataReader(6), _DataReader(7), _DataReader(8), _DataReader(9), _DataReader(10), _DataReader(11), _DataReader(12), _DataReader(13), _DataReader(14), _DataReader(15), _DataReader(16), _DataReader(17), _DataReader(18), _DataReader(19), _DataReader(20), _DataReader(21))
Loop
msgbox("Finish")
connection.Close() |
Partager