Suppression et Modification d'un enregistrement

Version imprimable

Voir 40 message(s) de cette discussion en une page

25/05/2007, 14h35
dubidon
pour chaque ligne command.perameters.add , il faut que tu ais une ligne qui indique ce que tu mets dans ton paramètre que tu as créé. Cette ligne ressemble à çà :
Code:

1 2 command.Parameters("@numab").Value = textbox.text
le textbox.text correspond à l'endroit ou a été tappé par la personne sont numéro d'abonnement.

De plus je suis d'accord avec binouzz quand il dit qu'un identifiant ne doit pas être saisi, tu ferais mieux de créer un trigger qui génère un numéro d'abonnement dont tu auras prédéfini le format, ou que tu fasse un identifiant auto incrémenté en plus du numéro d'abonnement saisi.

@++
dubidon

En modifiant le code source ainsi :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cn As New OleDb.OleDbConnection
        Dim command As OleDbCommand = New OleDbCommand("insert into Abonnement (Num_abonnement, Lib_abonnement, Date_debut_ab, Date_fin_ab, Montant_ab, Num_frs, Nom_frs) values (@numab, @libab, @Dates, @Datef, @montantab, @numfrs, @Cbxfrs) ")
 
        If Txtnumab.Text = "" Or Txtlibab.Text = "" Or Txtmontantab.Text = "" Or Txtnumfrs.Text = "" Then
            MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Exit Sub
        End If
        'sql1 = "select count * from Abonnement where Num_abonnement ='" & Txtnumab.Text & "'"
        command.Parameters.Add(New OleDbParameter("@numab", SqlDbType.Text, 50))
        command.Parameters("@numab").Value = Txtnumab.Text
        command.Parameters.Add(New OleDbParameter("@libab", SqlDbType.Text, 255))
        command.Parameters("@libab").Value = Txtlibab.Text
        command.Parameters.Add(New OleDbParameter("@dates", SqlDbType.SmallDateTime))
        command.Parameters("@dates").Value = F_Formatdate(CType(Dates.Text, Date), "dd/mm/yyyy")
        command.Parameters.Add(New OleDbParameter("@datef", SqlDbType.SmallDateTime))
        command.Parameters("@datef").Value = F_Formatdate(CType(Datef.Text, Date), "dd/mm/yyyy")
        command.Parameters.Add(New OleDbParameter("@montantab", SqlDbType.Money, 15))
        command.Parameters("@montantab").Value = Txtmontantab.Text
        command.Parameters.Add(New OleDbParameter("@numfrs", SqlDbType.Text, 10))
        command.Parameters("@numfrs").Value = Txtnumfrs.Text
        command.Parameters.Add(New OleDbParameter("@cbxfrs", SqlDbType.Text, 50))
        command.Parameters("@cbxfrs").Value = Cbxfrs.Text
        Try
            cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Marches.mdb"
            cn.Open()
            command.Connection = cn
            command.ExecuteNonQuery()
            MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            'MsgBox("Le numéro d'abonnement existe déjà")
            MessageBox.Show(ex.Message)
        Finally
            If Not (cn Is Nothing) Then
                cn.Close()
            End If
        End Try
        Me.Close()
        Frmprincipale.Show()
    End Sub

il me sort le msg suivant lors de la validation "Echec de la conversion de la valeur de paramètre d'un string en un int32".

25/05/2007, 15h04
binouzzz19

met les command.Parameters("@numab").Value = Txtnumab.Text ... avant les

command.Parameters.Add(New OleDbParameter("@numab", SqlDbType.Text, 50))
25/05/2007, 15h22
loverdev
En faisant ce que vous m'avez dit, il me met le msg d'erreur suivant "Un Oledbparameter avec un ParameterName '@numab' n'est pas contenu dans ce oledbParameterCollection" au niveau de cette ligne :
Code:

1 2 command.Parameters("@numab").Value=Txtnumab.text
25/05/2007, 15h57
binouzzz19

euh oui pardon, tu avais raison dsl !!

La désolé je sèche, vu que je ne connais pas ce langage, ca ne me facilite pas les choses

Bon courage
25/05/2007, 16h05
loverdev

Sos

Est ce que quelqu'un peux m'aider svp. C'est très important :cry:
25/05/2007, 17h22
dubidon

Bon déja soit moins impatient et fais des recherches sur le forum, il y a des sujets très récents qui traitent de çà, car j'ai eut les mêmes types de problèmes que toi récemment, je veux bien t'aider à le résoudre, mais faut que tu y mettes du tien aussi et que tu cherches un peu, sinon tu n'apprendra rien.

Il faut bien faire le add avant le value, c'est complètememnt logiqiue, puisque d'abord tu lui dit que tu crèe un paramètre et ensuite tu lui assigne une valeur.

Pour ton erreur de conversion, regarde dans ta base de données, toutes les données que tu enregistre en integer. Ensuite dans tes command parameters vérifie que toutes les données que tu dois inséré sont bien au format integer et que ton sqldbtype.quelquechose est bien un sqldbtype.int.

En tout cas ce qui est sur c'est que ton erreur vient de ton formatage d'un ou plusieurs paramètre de ton objet command

bon courage pour ton dbogage

@++
dubidon

Besoin d'aide

Mon code est le suivant :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.OleDb.OleDbType
Imports System.Data.SqlTypes
Imports System.Data.Sql
 
Public Class Frmajoutab
    Public sql, sql1 As String
 
    Private Sub Frmajoutab_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO : cette ligne de code charge les données dans la table 'MarchesDataSet.Abonnement'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        'Me.AbonnementTableAdapter.Fill(Me.MarchesDataSet.Abonnement)
        'TODO : cette ligne de code charge les données dans la table 'MarchesDataSet.Fournisseur'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.FournisseurTableAdapter.Fill(Me.MarchesDataSet.Fournisseur)
    End Sub
 
    Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cn As New OleDb.OleDbConnection
        Dim command As OleDbCommand = New OleDbCommand("insert into Abonnement (Num_abonnement, Lib_abonnement, Date_debut_ab, Date_fin_ab, Montant_ab, Num_frs, Nom_frs) values (@numab, @libab, @Dates, @Datef, @montantab, @numfrs, @Cbxfrs) ")
 
        If Txtnumab.Text = "" Or Txtlibab.Text = "" Or Txtmontantab.Text = "" Or Txtnumfrs.Text = "" Then
            MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Exit Sub
        End If
        'sql1 = "select count * from Abonnement where Num_abonnement ='" & Txtnumab.Text & "'"
        command.Parameters.Add(New OleDbParameter("@numab", SqlDbType.Text, 50))
        command.Parameters("@numab").Value = Txtnumab.Text
        command.Parameters.Add(New OleDbParameter("@libab", SqlDbType.Text, 255))
        command.Parameters("@libab").Value = Txtlibab.Text
        command.Parameters.Add(New OleDbParameter("@dates", SqlDbType.SmallDateTime))
        command.Parameters("@dates").Value = F_Formatdate(CType(Dates.Text, Date), "dd/mm/yyyy")
        command.Parameters.Add(New OleDbParameter("@datef", SqlDbType.SmallDateTime))
        command.Parameters("@datef").Value = F_Formatdate(CType(Datef.Text, Date), "dd/mm/yyyy")
        command.Parameters.Add(New OleDbParameter("@montantab", SqlDbType.Money, 15))
        command.Parameters("@montantab").Value = MonFormat(Txtmontantab.Text, 3)
        command.Parameters.Add(New OleDbParameter("@numfrs", SqlDbType.Int, 10))
        command.Parameters("@numfrs").Value = Txtnumfrs.Text
        command.Parameters.Add(New OleDbParameter("@cbxfrs", SqlDbType.Text, 50))
        command.Parameters("@cbxfrs").Value = Cbxfrs.Text
        Try
            cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Marches.mdb"
            cn.Open()
            command.Connection = cn
            command.ExecuteNonQuery()
            MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            'MsgBox("Le numéro d'abonnement existe déjà")
            MessageBox.Show(ex.Message)
        Finally
            If Not (cn Is Nothing) Then
                cn.Close()
            End If
        End Try
        Me.Close()
        Frmprincipale.Show()
    End Sub
End Class

lors de l'exécution de ce code j'ai un msg d'erreur "Echec de la conversion de la valeur de paramètre d'un String en un Int32". Or dans ma base de données ces données sont de type :
Num_abonnement : text
Lib_abonnement : text
Date_debut_ab : date
Date_fin_ab : date
Montant_ab : monétaire
Num_frs : numérique
Nom_frs : text

Que doit-je faire?

21/06/2007, 14h58
Igmar

J'ai pas suivi tout la conversation , mais si tu bosse avec Access c'est OleDbType et pas SqlDbType. Si ca peut te servir.
21/06/2007, 15h01
Igmar

Donc oui ton erreur vient de la Loverdev !! Tout simplement.

PS: J'ai eu le même pb, et je suis débutant et j'ai pas mis 3 jours pour trouver l'erreur !!! En faite je crois que tu ne sais pas comment ca fonctionne tout ca. Mais c'est essentiel pour débuger ton programme.

Voir 40 message(s) de cette discussion en une page