Discussion :

[Alfred86]

Bonjour

Le code suivant m'affiche l’erreur suivante;

l'opérateur '&' n'est pas défini pour les types 'string' et 'Timespan'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim datea As String = Me.mdaterep.Text
        Dim date1 As Date = Date.Parse(datea)
        Dim dater As String = Me.datea.Text
        Dim date2 As Date = Date.Parse(dater)
        Dim durée = date1.Date - date2.Date
 
        Dim myConnection As New OdbcConnection("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=pfe2012;USER=root;PASSWORD=1;OPTION=3")
        Dim myCommand As New OdbcCommand("UPDATE arret SET Datereprise ='" & mdaterep.Text & "', Heurereprise = '" & mheurerep.Text & "' duree= '" & durée & "', EtatD_arret='ok' Where Num = '" & NAU & "'", myConnection)
 
 
        myCommand.Connection.Open()
        myCommand.ExecuteNonQuery()

merci pour votre aide!!

[hunteshiva]

Bonjour,

en tapant vite fait sur google:
V-AB-12. Calcul de la différence entre deux dates

Et un petit lien pour comprendre la fonction DateDiff:
DateDiff, fonction (Visual Basic)

Bon courage pour la suite

[Alfred86]

Bonjour,

en tapant vite fait sur google:
V-AB-12. Calcul de la différence entre deux dates

Et un petit lien pour comprendre la fonction DateDiff:
DateDiff, fonction (Visual Basic)

Bon courage pour la suite

merci mais je suis débutant j'ai pas compris comment utiliser ses bouts de code

[hunteshiva]

bon imaginons que tu veux la différence en heures, en jours ou en semaines :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
' Récupération des dates depuis les TextBox
Dim datea As String = Me.mdaterep.Text
Dim dater As String = Me.datea.Text
 
' Conversion des dates au format "DateTime"
Dim date1 As DateTime = CDate(datea) 
Dim date2 As DateTime = CDate(dater)
 
' Calcul des Différences entre les dates
Dim wH As Long = DateDiff(DateInterval.Hour, date1 , date2 ) ' En heures
Dim wD As Long = DateDiff(DateInterval.Day, date1 , date2 ) ' En jours
Dim wW As Long = DateDiff(DateInterval.Weekday, date1 , date2 ) ' En semaines

Voila, il ne te reste plus qu'a jouer avec les variables "wH", "wD" et "wW" pour connaitre la différence entre tes dates

[hunteshiva]

Mias au vue de ton message d'erreur, ce que je t'ai dit ne servira sans doute a rien.

l'erreur

l'opérateur '&' n'est pas défini pour les types 'string' et 'Timespan'

a l'air de venir d'ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim myCommand As New OdbcCommand("UPDATE arret SET Datereprise ='" & mdaterep.Text & "', Heurereprise = '" & mheurerep.Text & "' duree= '" & durée & "', EtatD_arret='ok' Where Num = '" & NAU & "'", myConnection)

Double erreur a mes yeux sur cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim durée

1. Tu ne défini pas le type de te variable
2. Tu met un 'é' dans le nom de ta variable !!!!!!

Donc a mon avis, il défnit le type comme 'TimeStamp' et refuse la concaténation de ta requete

essaye un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

durée.string 

voir si ça passe,
mais c'est pas beau comme code

[Alfred86]

Merci hunteshiva sa marche c'est parfait

[hunteshiva]

de rien
mais pose ta solution, dit nous ce qui t'a débloqué.