Problème avec requete update vb.net
Résolu
titou123
Messages postés
89
Statut
Membre
-
loulou -
loulou -
Bonjour tout le monde, j'ai rencontré un problème avec la requete update en l'insérant dans une code vb.il m'afiche l"erreur suivante : Aucune valeur donnée pour un ou plusieurs des paramètres requis. et voila mon code :
Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
Dim max As Integer = 0
Dim cdIso, nFr, nAn As String
Dim cdPays As Integer
SearchMax("Pays", "CodePays", max)
If var = 1 Then
LancerRequete("insert into Pays (CodePays,CodeIso,NomFr,NomAn,Monnaie,DecGmt,IndTel,Loff) values ('" & max & "','" & txtCodeIso.Text & "','" & txtNFR.Text & "','" & txtNEN.Text & "','" & txtMonnaie.Text & "','" & txtDecGMT.Text & "','" & Val(txtIndTel.Text) & "','" & txtLnOFF.Text & "')")
lsv.Items.Clear()
changeListView(lsv, "select CodePays,NomFr from Pays order by CodePays ASC")
ElseIf var = 2 Then
Dim valnum As String
valnum = lsv.Items(lsv.SelectedIndices(0)).SubItems(0).Text
nFr = txtNFR.Text
LancerRequete("UPDATE Pays SET CodeIso='" & nFr & "' WHERE id='" & valnum & "' ")
End If
End Sub
Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
Dim max As Integer = 0
Dim cdIso, nFr, nAn As String
Dim cdPays As Integer
SearchMax("Pays", "CodePays", max)
If var = 1 Then
LancerRequete("insert into Pays (CodePays,CodeIso,NomFr,NomAn,Monnaie,DecGmt,IndTel,Loff) values ('" & max & "','" & txtCodeIso.Text & "','" & txtNFR.Text & "','" & txtNEN.Text & "','" & txtMonnaie.Text & "','" & txtDecGMT.Text & "','" & Val(txtIndTel.Text) & "','" & txtLnOFF.Text & "')")
lsv.Items.Clear()
changeListView(lsv, "select CodePays,NomFr from Pays order by CodePays ASC")
ElseIf var = 2 Then
Dim valnum As String
valnum = lsv.Items(lsv.SelectedIndices(0)).SubItems(0).Text
nFr = txtNFR.Text
LancerRequete("UPDATE Pays SET CodeIso='" & nFr & "' WHERE id='" & valnum & "' ")
End If
End Sub
A voir également:
- Problème avec requete update vb.net
- Windows update bloqué - Guide
- Winget update - Guide
- Asus live update - Télécharger - Utilitaires
- Nettoyage windows update - Guide
- Wsus offline update - Télécharger - Systèmes d'exploitation