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.