1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Dim connetionString As String
Dim cnn As SqlConnection
connetionString = datasource=.........base Sqlserver....
cnn = New SqlConnection(connetionString)
'tbl_ recherche heure début et fin + lieu
Dim sql_search As String = "SELECT dateheuredepart, dateheureretour, lieu FROM tbl_Deplacement, tbl_destination"
Dim cmdsearch As SqlCommand = New SqlCommand(sql_search, cnn)
cnn.Open()
Dim cmdRead As SqlDataReader = cmdsearch.ExecuteReader
cmdRead.Read()
'A partir de là, je sais pas comment reprendre la valeur de "dateheuredepart".
'Puis par après lui demandé si dans le champ "dateheuredepart" il n'y pas une valeur qui est égal à une autre.
Exemple :
champ : dateheuredepart
valeur1 du champ : 13/04/2011 12:00
valeur2 du champ : 13/04/2011 15:00
valeur 3 du champ : 13/04/2011 12:00
Donc valeur1 et valeur3 sont égal et donc il se regroupe. |
Partager