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
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 ....Erreur de syntaxe dans l'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 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
Partager