Discussion :

[yass-ado]

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

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 :

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

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.

[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 ?)

[yass-ado]

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

[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 :

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

1
2
 
ObjetDataRow("Id_cli") =  CType(Me.Id_cliTextBox.Text,Double)

[yass-ado]

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

La conversion de la chaîne "" en type 'Double' n'est pas valide.

[yonpo]

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....

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...................)

[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

[yonpo]

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?

[yass-ado]

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