Discussion :

[jolona]

bonjour,

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

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
 
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 :

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
 
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

[jesslegende]

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

Code :

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

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.

[jolona]

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

Code :

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

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 :

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
 
    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....

[jolona]

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

Code :

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

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

[jolona]

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

Code :

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

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:

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 :

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

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

[jolona]

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