ERREUR
Fermé
ichou
-
1 juin 2014 à 15:48
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 13 juin 2014 à 00:48
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 13 juin 2014 à 00:48
A voir également:
- ERREUR
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Erreur 3005 france tv - Forum TV & Vidéo
- Erreur 5000 france tv - Forum iPhone
1 réponse
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
13 juin 2014 à 00:48
13 juin 2014 à 00:48
Bonjour,
Tu utilise beaucoup d'instructions VB6, je te recommande d'utiliser des
instructions VB.NET
IsNumeric !!! VB6
CDec !!! VB6
Utilise plutôt de vrai instructions VB.NET et non des instructions VB6,
va voir dans les propriétés de ton projet, onglet Références
Dans la Fenêtre du bas tu devrait trouver (Microsoft.VisualBasic)
Cette référence te permet d'utiliser des instruction VB6, mais tu apprendra
de la mauvaise façon à coder en vrai VB.NET
C'est ton choix.
Et pour ta requête, utilise un StringBuilder, c'est beaucoup plus facile de ne rien oublier.
K
Tu utilise beaucoup d'instructions VB6, je te recommande d'utiliser des
instructions VB.NET
IsNumeric !!! VB6
CDec !!! VB6
Private Sub Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enregistrer.Click
If TBTE.Text <> "" And IsNumeric(TBTE.Text) Then
'*********** Enregistrer les prix unitaires**
Dim pug As Decimal = CDec(TBPUG.Text)
Dim pue As Decimal = CDec(TBPUE.Text)
Dim pum As Decimal = CDec(TBPUM.Text)
ajouter_prix_unitaire(DJ.Value, pug, pue, pum)
End If
End Sub
Utilise plutôt de vrai instructions VB.NET et non des instructions VB6,
va voir dans les propriétés de ton projet, onglet Références
Dans la Fenêtre du bas tu devrait trouver (Microsoft.VisualBasic)
Cette référence te permet d'utiliser des instruction VB6, mais tu apprendra
de la mauvaise façon à coder en vrai VB.NET
C'est ton choix.
Private Sub Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enregistrer.Click
Dim pug As Decimal = 0
Dim pue As Decimal = 0
Dim pum As Decimal = 0
Dim DJ As Date = System.DateTime.Now
If Not String.IsNullOrEmpty(TBTE.Text) Then
Dim Nombre As Int32 = 0
If (Int32.TryParse(TBTE.Text, Nombre)) Then
'*********** Enregistrer les prix unitaires**
Dim Nombre1 As Decimal = 0
Dim Nombre2 As Decimal = 0
Dim Nombre3 As Decimal = 0
If Not (String.IsNullOrEmpty(TBPUG.Text)) Then
If (Decimal.TryParse(TBPUG.Text, Nombre1)) Then
pug = Nombre1
End If
End If
If Not (String.IsNullOrEmpty(TBPUE.Text)) Then
If (Decimal.TryParse(TBPUE.Text, Nombre2)) Then
pue = Nombre2
End If
End If
If Not (String.IsNullOrEmpty(TBPUM.Text)) Then
If (Decimal.TryParse(TBPUM.Text, Nombre3)) Then
pum = Nombre2
End If
End If
End If
Ajouter_prix_unitaire(DJ, pug, pue, pum)
End If
End Sub
Et pour ta requête, utilise un StringBuilder, c'est beaucoup plus facile de ne rien oublier.
Private Sub Ajouter_prix_unitaire(ByVal dt As Date, ByVal pug As Decimal, ByVal pue As Decimal, ByVal pum As Decimal)
Cn.Open()
Dim Requete2 As String = String.Empty
Dim ReqSQL As New System.Text.StringBuilder
ReqSQL.Append("INSERT INTO PrixU (Date_PU, PUG, PUE, PUM) VALUES ")
ReqSQL.Append("('")
ReqSQL.Append(dt.Date)
ReqSQL.Append("','")
ReqSQL.Append(pug)
ReqSQL.Append("','")
ReqSQL.Append(pue)
ReqSQL.Append("','")
ReqSQL.Append(pum)
ReqSQL.Append("')")
Requete2 = ReqSQL.ToString
Dim Commande2 As New SqlCommand(Requete2, Cn)
Commande2.ExecuteNonQuery()
Cn.Close()
End Sub
K
