Discussion :

[aA189]

Bonjour du classique pour débutant , je cherche a enregistrer des données dans Access .J'y parviens mais seulement pour un champ dés que je passe à plusieurs champs , j'échoue et obtient le message d'erreur suivant

Erreur de syntaxe dans l'instruction INSERT INTO.

Comment dois-je m’y prendre*sachant que par la suite ma base aura une dizaine de champs*?Comment désigner les champs par leur nom ....

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
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
 
Module Basededonnées
 
    Private ObjetConnection As OleDbConnection ' Déclaration Objet Connexion
    Private ObjetCommand As OleDbCommand ' Déclaration Objet Commande
    Private ObjetDataAdapter As OleDbDataAdapter ' Déclaration Objet DataAdapter
    Private ObjetDataSet As New DataSet()
    Private strSql As String  'String contenant la 'Requête SQL'
    Private ObjetDataTable As DataTable    'déclaration de l'objet datatable
    Public ObjetDataRow As DataRow  ' Déclaration Objet DataRow (ligne)
    Private RowNumber As Integer 'Numéro de l'enregistrement courant   'Numéro de la ligne en cours
    Private strConn As String 'Paramêtres de connexion à la DB
    Private ObjetCommandBuilder As OleDbCommandBuilder  
 
    Sub ouvrirbasedonnee()
 
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source= C:\Documents and Settings\a\Mes documents\Visual Studio 2010\Projects\Test 18-1\Test 18-1\bin\Debug\mabase.mdb;"
 
        strSql = "SELECT * FROM Test"  
 
        ObjetConnection = New OleDbConnection() 
        ObjetConnection.ConnectionString = strConn 
 
        Try
            ObjetConnection.Open() 
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
 
        ObjetCommand = New OleDbCommand(strSql) 
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)    
        ObjetCommand.Connection() = ObjetConnection   
        ObjetDataAdapter.Fill(ObjetDataSet, "Test") 
        ObjetDataTable = ObjetDataSet.Tables("Test") 
 
 
        'ajouter un enregistrement
        ObjetDataRow = ObjetDataSet.Tables("Test").NewRow()   'ajouter une nouvelle ligne
 
        ' ObjetDataRow("Date") = Now
        ObjetDataRow("Achat") = "ACHAT"   
        ObjetDataRow("Quantité") = 1000 
 
 
        ObjetDataSet.Tables("Test").Rows.Add(ObjetDataRow)
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
        ObjetDataAdapter.Update(ObjetDataSet, "Test") ‘BUG ici 
‘Erreur de syntaxe dans l'instruction INSERT INTO.
 
 
        ObjetDataAdapter.Fill(ObjetDataSet, "Test")
        ObjetDataTable = ObjetDataSet.Tables("Test")
 
        ObjetDataSet.Clear()
        ObjetConnection.Close()
 
        ObjetConnection = Nothing     
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
        ObjetDataSet = Nothing
        ObjetDataTable = Nothing
        ObjetDataRow = Nothing
 
    End Sub
 
End Module

[Pol63]

insert into table (col1, col2) values (valeurcol1, valeurcol2)

[aA189]

Bonjour , je ne peux pas avoir d'erreur de syntaxe sur l'instruction

INSERT INTO

étant donné que je ne l'aie jamais utilisée .

La seule instruction SQL que j'aie utilisée c'est

Code :

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

strSql = "SELECT * FROM Test"

.

Et si j'aie compris le principe je suis censé insérer des données via l'objet dataset non pas à l'aide d'une instruction SQL .

[Pol63]

c'est le problème des assistants, ca a l'air pratique, mais si on ne le maitrise pas on ne le comprend pas et il fait ce qu'il veut

pour info ton newrow il est traduit par un insert into ...

[aA189]

Le code est bon semble-t-il .Ce qui est moins sur c’est mon fichier .mdb en access 2000.Le problème semble venir de lui .

Avec une abberation je ne peux pas nommé un champ du nom de «Date» mais par exemple mettre «Date1» à la place .
Là j’avoue que ce genre de bug me laisse très perplexe mais bon à présent j’arrive à remplir de données plusieurs champs .
(Je sens que je vais m'arracher les cheveux entre le format des dates sous vb.net à faire correspondre avec le format date sous Access

Ex

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
       ObjetDataRow("Date") = "15/02/1986" 'sera refusé avec le message d’erreur Erreur de syntaxe dans l’instruction INSERT INTO ,Le champs est réglé au format texte sous Access
 
        ObjetDataRow("Date1") = "15/02/1986" 'fonctionne correctement*!!
'le champ Date1 est réglé au format texte sous Acess aussi ,
        ObjetDataRow("Nom") = "Pourvoir"  'l'ordre des objetDataRow n'a pas semble-til d'importance
        ObjetDataRow("Achat") = "ACHAT"
        ObjetDataRow("Quantité") = 1000
 
 
        ObjetDataSet.Tables("Portefeuille").Rows.Add(ObjetDataRow)
        ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter) 'Pour modifier les valeurs changées dans le DataAdapter
        ObjetDataAdapter.Update(ObjetDataSet, "Test") 
 
 
        ObjetDataAdapter.Fill(ObjetDataSet, "Test")
        ObjetDataTable = ObjetDataSet.Tables("Test")

[aA189]

Ok merci ...Et bonnes fêtes à tous