Modification d'une base ACCESS

bonjour,

j'utilise ce code pour créer une table (avec CREATE TABLE donc ça ok:

Code:

---

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

Imports System.Data   Imports System.Data.OleDb   Module Module1 Public ObjetConnection As OleDbConnection   Public ObjetCommand As OleDbCommand   Public ObjetDataAdapter As OleDbDataAdapter   Public ObjetDataSet As New DataSet() 'Attention au New   Public strSql As String   Public ObjetDataTable As DataTable   Public ObjetDataRow As DataRow   Public RowNumber As Integer   Public strConn As String   Public ObjetCommandBuilder As OleDbCommandBuilder   End Module

---

pui ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub btnCopier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopier.Click   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\test\test.mdb;"   ObjetConnection = New OleDbConnection ObjetConnection.ConnectionString = strConn ObjetConnection.Open() ObjetCommand = New OleDbCommand ObjetCommand.Connection = ObjetConnection ObjetCommand.CommandType = CommandType.Text   ObjetCommand.CommandText = "CREATE TABLE PARENT (ID INTEGER NOT NULL PRIMARY KEY, NOM, PRENOM )"   ObjetCommand.ExecuteNonQuery() ObjetConnection.Close()   End Sub

---

J'aimerais modifier les enregistrement, mettre plusieurs nom et prenom, j'utilise la fonction ALTER ou UPDATE mais ma syntaxe n'est pas bonne, pouvez vous m'aider a rajouter des enregistrements

maintenant s'il y a une autre façon de faire, je suis ouvert

merci

bonjour,
les requetes inserte et update de sql marche bien avec les bases de données access.

Code:

---

1 2 3 4 5 6

cnx = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\test.mdb;") cnx.Open() sqlstr = "insert into table1 values(" & CInt(TextBox1.Text) & ",'" & TextBox2.Text & "','" & TextBox3.Text & "')" 'CInt() si ID est entier. cmd = New OleDbCommand(sqlstr, cnx) cmd.ExecuteNonQuery

---

cours sql:
http://sqlpro.developpez.com/cours/sqlaz/dml/

si tu peux poster tes requetes juste pour voire pourquoi elles marchent pas ça nous aidera à comprendre.

voila le code ; j'ai suivi, quoi essayer de suivre ça:

Code:

---

1 2	INSERT [INTO] nom_de_la_table_cible [(liste_des_colonnes_visées)] {VALUES (liste_des_valeurs) | requête_select | DEFAULT VALUES }

---

et le miens:

Code:

---

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

Private Sub btnCopier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopier.Click   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:\test\test.mdb;"   ObjetConnection = New OleDbConnection   ObjetConnection.ConnectionString = strConn     ObjetConnection.Open()   ObjetCommand = New OleDbCommand   ObjetCommand.Connection = ObjetConnection   ObjetCommand.CommandType = CommandType.Text   ObjetCommand.CommandText = "insert into appliparext [application] {c:\test}"   ObjetCommand.ExecuteNonQuery()   ObjetConnection.Close()   End Sub

---

mais ma syntaxe ne fonctionne pas

en fait dans la table "appliparext" je voudrais modifier le champ "application" puis l'enregistrement 1, 3, 4, 5, 6 et 7

les valeurs des enregistrement sont identiques,

le but de mon projet est:
ouvrir la base
faire une boucle de chaque enregistrement pour identifier la valeur ; si la valeur est egal à "c:\" remplacer par "c:\test\text.exe"
puis valider les modifications
et fermer

voilà en gros....

Donc j'ai trouver la solution à mon problème voici le code:

Code:

---

1 2	ObjetCommand.CommandText = "UPDATE appliparext SET application= 'c:\test\text.exe' WHERE application='c:\'"

---

et ca marche nickel

merci à tout ceux qui m'ont aider, lol :ccool:

j'ai autre problème si je met çà:

Code:

---

1 2	ObjetCommand.CommandText = "UPDATE appliparext SET fichier" & Chr(32) & "vierge= 'c:\test\text.exe' WHERE fichier" & Chr(32) & "vierge='c:\'"

---

en fait j'ai un espace au niveau du nom d'un champ "fichier vierge" je l'ecrit en VB "fichier" & Chr(32) & "vierge" ...

voilà le message d'erreur:

Citation:

---

erreur de syntaxe dans l'instruction UPDATE

---

quand je fais un pas à pas et que je m'arrete sur ".CommandText" et que je regarde dans le visualiseur il m'affiche çà:

Code:

---

1 2	UPDATE appliparext SET fichier vierge= 'c:\test\text.exe' WHERE fichier vierge='c:\'

---

dans le visualiseur il me recupere bien le nom avec l'espace mais il me dit quand meme que j'ai une erreur de syntaxe, je comprend pas trop si quelqu'un peux m'aider

j'ai trouver un truc ça à l'air de marcher, j'ai remplacer :"fichier" & Chr(32) & "vierge" par [fichier vierge] et ça marche