connexion = New SqlCeConnection("Data source = \Flash Disk\transport.sdf")

dAdapterMaCollection = New SqlCeDataAdapter("SELECT nom_clt, adr_clt, num_bl FROM bl WHERE heure_livr = '' ;", connexion)

Dim Reader As SqlClient.SqlDataReader
Dim RecordCount As Integer = 0
SqlConnection1.Open()
Reader = SqlDataAdapter1.SelectCommand.ExecuteReader()

Dim Records As String
While Reader.Read()
    Dim i As Integer = 0
    For i = 0 To Reader.FieldCount - 1
        Records &= Reader(i) & "-"
    Next
RecordCount += 1
End While
SqlConnection1.Close()

Pas tres rapide


MessageBox.Show(RecordCount & "Records processed:" & ControlChars.crlf & Records)

Dim nb As Integer = dSetBandeD.Tables("collec").Rows.Count