Discussion :

[raoufo]

bonne soir comment résoudre
l'Erreur de Syntaxe instruction INSERT INTO

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Déclaration de la variable cmd
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
        "C:\Users\utilisateur\Desktop\Application relation modifier\Base de donner PFE.accdb"

        'Initialisation de la chaîne contenant l'instruction SQL

        strSql = "SELECT Client.* FROM Client"

        'Instanciation d'un Objet Connexion

        ObjetConnection = New OleDbConnection

        'Donner à la propriété ConnectionString les paramètres de connexion

        ObjetConnection.ConnectionString = strConn

        '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

        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)

        ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)

        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet

        ObjetDataAdapter.Fill(ObjetDataSet, "Client")

        'Créer une datatable à partir du dataset

        ObjetDataTable = ObjetDataSet.Tables("Client")

       
        ObjetDataRow = ObjetDataSet.Tables("Client").NewRow()

        ObjetDataRow("Civilité") = Me.ComboBox1.Text
        ObjetDataRow("Prénom") = Me.TextBox3.Text
        ObjetDataRow("Nom") = Me.TextBox4.Text
        ObjetDataRow("N°CIN") = Me.TextBox1.Text
        ObjetDataRow("Lieu") = Me.TextBox2.Text
        ObjetDataRow("Adress") = Me.TextBox5.Text
        ObjetDataSet.Tables("Client").Rows.Add(ObjetDataRow)

        'Pour modifier les valeurs changées dans le DataAdapter

        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)

        'Mise à jour

        ObjetDataAdapter.Update(ObjetDataSet, "Client")

        'On vide le DataSet et on le 'recharge' de nouveau.

        ObjetDataSet.Clear()

        ObjetDataAdapter.Fill(ObjetDataSet, "Client")

        ObjetDataTable = ObjetDataSet.Tables("Client")
        ObjetDataSet = Nothing
    End Sub

[raoufo]

bon voila
j'ai télécharger le dossier complet avec la base de donnée et le fichier de vb 2008

dans la barre menu tu trouve client cliquer sur ajouter et cree un nouveau client
et vérifier les fauts svp merci