Discussion :

[revlam]

Bonjour à tous,

j'ai décidément un problème que je n'arrive pas à résoudre sur un petit projet. Voici le code :

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
       
connect_bdd()
ObjetDataRow = ObjetDataSet.Tables("Patients").NewRow()

ObjetDataRow(colonne) = valeur

ObjetDataSet.Tables("Patients").Rows.Add(ObjetDataRow)
'Pour modifier les valeurs changées dans le DataAdapter
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
'Mise à jour
ObjetDataAdapter.Update(ObjetDataSet, "Patients")       *
'On vide le DataSet et on le 'recharge' de nouveau.
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "Patients")      
ObjetDataTable = ObjetDataSet.Tables("Patients")
ObjetConnection.Close()

J'ai l'erreur suivante au niveau de *:

Erreur de syntaxe dans l'instruction INSERT INTO.

Donc ce code sert à ajouter un ligne à ma BDD. J'ai vérifier les type dans la BDD et tout coincide.

Vous avez une idée ?

[Sankasssss]

Je pense que tu fais les chose dans le mauvais ordre...
Je n'y connais rien à oleDbCommandBuilder car je fais mes requete moi même mais en allant voir l'aide msdn de oleDbCommandBuilder on voit cette exemple :

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
Public Shared Function UpdateRows(connectionString As String, _
    queryString As String, tableName As String) As DataSet
 
    Dim dataSet As DataSet = New DataSet
 
    Using connection As New OleDbConnection(connectionString)
        Dim adapter As New OleDbDataAdapter()
        adapter.SelectCommand = New OleDbCommand(queryString, connection)
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
 
        connection.Open()
 
        adapter.Fill(dataSet, tableName)
 
        ' Code to modify data in DataSet here 
 
        ' Without the OleDbCommandBuilder this line would fail.
        adapter.Update(dataSet, tableName)
    End Using
 
    Return dataSet
End Function

on voit donc qu'il crée le OleDbCommandBuilder avant de modifier le dataset...

P.S. : ton titre ne convient pas tu n'as aucun problçème avec acces mais plutot avec OleDbCommandBuilder et dataset

[ratsmok]

slt
essaie d'ajouter ce ligne

Code :

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

 dtadapter.InsertCommand = combuilder.GetInsertCommand

avant la ligne

Code :

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

ObjetDataAdapter.Update(ObjetDataSet, "Patients")

[xaviiier]

Bonjour,

J'ai le meme probleme que revlam. Notre code est issue du tutoriel sur l'utilisation du DataSet que l'on peut trouver adresse suivante:
http://plasserre.developpez.com/cour...ees2#LXVII-D-2

j'ai la meme erreur :

Erreur de syntaxe dans l'instruction INSERT INTO.

voici mon code:

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Imports System.Data
 
Imports System.Data.OleDb
 
Public Class Timesheet
 
    '  Déclaration Objet Connexion
    Private ObjetConnection As OleDbConnection
    ' Déclaration Objet Commande
    Private ObjetCommand As OleDbCommand
    '  Déclaration Objet DataAdapter
    Private ObjetDataAdapter As OleDbDataAdapter
    ' Déclaration Objet DataSet
    Private ObjetDataSet As New DataSet() 'Attention au New
    'String contenant la 'Requête SQL'
    Private strSql As String
    ' Déclaration Objet DataTable
    Private ObjetDataTable As DataTable
    ' Déclaration Objet DataRow (ligne)
    Private ObjetDataRow As DataRow
    'Numéro de la ligne en cours
    Private RowNumber As Integer    'Numéro de l'enregistrement courant
    'Paramêtres de connexion à la DB
    Private strConn As String
    'Pour recompiler les données modifiées avant de les remettre dans le "DataAdapter"
    Private ObjetCommandBuilder As OleDbCommandBuilder
 
 
 
    Private Sub Timesheet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents and Settings\ggg\My Documents\Timesheets.mdb;"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = "SELECT timsh.* FROM timsh"
        '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
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "timsh")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("timsh")
 
 
 
    End Sub
 
    Private Sub B_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Update.Click
 
        Try
 
            ObjetDataRow = ObjetDataSet.Tables("timsh").NewRow()
 
            ObjetDataRow("Date") = Me.DateSelected.Text
 
            ObjetDataRow("Activity") = Me.Activity.Text.ToString
            ObjetDataRow("Project") = Me.ProjectName.Text
 
 
            ObjetDataSet.Tables("timsh").Rows.Add(ObjetDataRow)
            'Pour modifier les valeurs changées dans le DataAdapter
            ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
 
            'Mise à jour
            'ObjetDataSet.AcceptChanges()
            'ObjetDataAdapter.Fill(ObjetDataSet, "timsh")
           ObjetDataAdapter.Update(ObjetDataSet, "timsh")
            'ObjetDataSet.AcceptChanges()
            'ObjetDataAdapter.Update(ObjetDataSet)
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        'On vide le DataSet et on le 'recharge' de nouveau.
        ObjetDataSet.Clear()
        ObjetDataAdapter.Fill(ObjetDataSet, "timsh")
        ObjetDataTable = ObjetDataSet.Tables("timsh")
 
 
 
    End Sub
 
    Private Sub Timesheet_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Objet connectée
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
        'Objet déconnectée
        ObjetDataSet = Nothing
        ObjetDataTable = Nothing
        ObjetDataRow = Nothing
    End Sub
 
 
    Private Sub Activity_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Activity.TextChanged
 
    End Sub
 
End Class

J'ai essaye plusieurs chose mais je ne trouve pas! J'ai ajoute :
ObjetDataSet.AcceptChanges()
just avant la mise a jour. L'erreur disparait mais la base de donnees n'est pas mise a jours....

Je suis debutant!


Merci de votre aide

Xavier

[xaviiier]

Ca fait 2 jours que je cherche...j'ai enfin trouve!!!!

Ma table comportait une colonne "Date" mot reserve pour le Language SQL!!!!

J'ai simplement changer le nom en "Date_" et je me suis fait une liste des mots reserves!!!

Code :

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

ObjetDataRow("Date_") = Me.DateSelected.Value

J'espere que ca vous aidrera!

Codrialement

Xaviiier

[JerCel]

Je suis en train de ré-écrire une application VB6 et VB2012 et j'ai passé une demi-journée avec ce problème de champ "Date" avant de trouver la solution sur cette discussion !!!!!!
Merci au Forum mais pas à VB2012 qui gère surveille beaucoup de choses sans qu'on lui demande et laisse passer ce genre d'incompatibilité !!!!!