[VB.NET 2008] Ajout d'un enregistrement

Version imprimable

Bonjour,

Je voudrais avoir un formulaire avec lequel je peux remplir ma base de données. Pour cela j'ai fait un bouton pour l'ajout, un autre pour la modification et un autre pour l'enregistrement selon le code ci dessous.

J'ai l'erreur suivante

Citation:

Le format de la chaîne d'entrée est incorrect.Impossible de stocker <> dans la colonne Id_cli. Type attendu est Double.

Le 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
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connexion()
        Me.REPARATIONBindingSource.AddNew()
        ObjetDataRow = ObjetDataSet.Tables("REPARATION").NewRow
        ObjetDataRow("N_rep") = Me.N_repTextBox.Text
        ObjetDataRow("Id_cli") = Me.Id_cliTextBox.Text
        ObjetDataRow("Date_panne") = Me.Date_panneDateTimePicker.Value
        ObjetDataRow("Diagnostic") = Me.DiagnosticTextBox.Text
        ObjetDataRow("N_br") = Me.N_brTextBox.Text
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            enregistrer()
        Catch ex As OleDbException
            MsgBox(MsgBoxStyle.OkOnly, MsgBoxStyle.Exclamation, "une exeption a été générée")
        End Try
 
    End Sub
Private Sub connexion()
        'Initialisation de la chaîne de paramètres pour la connexion
        Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\Users\Yassine\Documents\Parc-Info Marsa-Maroc\GPI1\GPI1\GPI.mdb"""
        '************************************************
        '*************Ajout D'une reparation*************
        '************************************************
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT * FROM REPARATION"
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection()
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = Str
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "REPARATION")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("REPARATION")
        '************************************************
        '************************************************
    End Sub
    Private Sub enregistrer()
        'Pour modifier les valeurs changées dans le DataAdapter
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        'Mise à jour
        ObjetDataAdapter.Update(ObjetDataSet, "REPARATION")
        'On vide le DataSet et on le 'recharge' de nouveau.
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "REPARATION")
        ObjetDataTable = ObjetDataSet.Tables("REPARATION")
        ObjetConnection.Close()
    End Sub

Merci de m'aider.

29/08/2010, 19h21
yonpo

Où se situe l'erreur dans le code?

Sinon, je pense que tu veux enregistrer un string dans un champ d'un table qui n'est pas défini comme un string (Id_cli en integer ?)
30/08/2010, 14h13
yass-ado

Citation:

Envoyé par yonpo

Où se situe l'erreur dans le code?

Sinon, je pense que tu veux enregistrer un string dans un champ d'un table qui n'est pas défini comme un string (Id_cli en integer ?)

mais ça marche avec la modification sachant que c'est le meme code qui marche pour l'ajout je l'ai copié dans le bouton de modification et ça marche pour le dernier mais toujours pas pour l'ajout :s
30/08/2010, 21h12
yonpo
Le champ Id_cli est de type Double vu l'erreur signalé. Donc soit tu changes le type du champ soit tu fais ça:
Code:

1 2 ObjetDataRow("Id_cli") = CType(Me.Id_cliTextBox.Text,Double)
30/08/2010, 22h29
yass-ado

il m'a généré cette erreur

Citation:

La conversion de la chaîne "" en type 'Double' n'est pas valide.
31/08/2010, 01h22
yonpo

Citation:

il m'a généré cette erreur
La conversion de la chaîne "" en type 'Double' n'est pas valide.

Tu veux que je fasse le travaille à ta place, parce que là franchement si tu n'arrives pas à régler ça tout seul, ça ne sert à rien de continuer....:no:

ps: tu as "bêtement" copier le code que j'ai donné sans l'adapter à ta situation (textbox vide alors peut-être faut-il faire quelque chose...................)
31/08/2010, 13h01
yass-ado

Non M je ne veux pas que tu me fasse le travaille c'est juste que je suis débutant et en stage et que j'ai une application a réaliser dans un délai très limité alors j'ai besoin d'aide
en tout cas merci pour votre aide ;)
31/08/2010, 13h50
yonpo

Citation:

Envoyé par yass-ado

Non M je ne veux pas que tu me fasse le travaille c'est juste que je suis débutant et en stage et que j'ai une application a réaliser dans un délai très limité alors j'ai besoin d'aide
en tout cas merci pour votre aide ;)

Sauf que cette erreur est élémentaire........

As-tu résolu le problème?
31/08/2010, 15h09
yass-ado

oui .. mais j'ai supprimé le bouton de modification et gardé le bouton d'ajout tout simplement
et ça marche ;)