Bonjour à tous toujours dans mes problèmes avec l'utilisation d'une base de données j'essaye tant bien que mal à insérer de nouvelles lignes dans ma BDD mais il n'y a rien à faire voici le code que j'exécute:
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
 
        strConn = "Data Source=bdd.sdf;Password=password"
 
        'Initialisation de la chaîne contenant l'instruction SQL
 
        strSql = "INSERT INTO MATABLE (Names, Money) Values('" & rsacTb.Text & "','" & moneyCombo.SelectedItem & "')"
 
        'Instanciation d'un Objet Connexion
 
        ObjetConnection = New SqlCeConnection
 
        'Donner à la propriété ConnectionString les paramètres de connexion
 
        ObjetConnection.ConnectionString = strConn
 
        'Ouvrir la connexion
 
        ObjetConnection.Open()
 
        'Instancier un objet Commande
 
        ObjetCommand = New SqlCeCommand(strSql)
 
        'Instancier un objet Adapter
 
        ObjetDataAdapter = New SqlCeDataAdapter(ObjetCommand)
 
        'initialiser l'objet Command
 
        ObjetCommand.Connection() = ObjetConnection
 
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
 
        ObjetCB = New SqlCeCommandBuilder(ObjetDataAdapter)
 
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
 
        ObjetDataAdapter.Fill(ObjetDataSet, "MATABLE")
 
        'Créer une datatable à partir du dataset
 
        ObjetDataTable = ObjetDataSet.Tables("MATABLE")
 
        'Mettre dans le DataGrid une table  DataTable
        dataGrid.DataSource = ObjetDataTable
L'enregistrement s'affiche bien dans le datagrid mais lorsque je clique droit sur ma table et choisi "afficher les données de la table" il n'y a pas de modification.

J'ai d'abord pensé que ma requette est fausse alors j'ai essayer comme ca :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
strSql = "INSERT INTO RSAC (Names, Money) Values('FR','EUR')"
Mais le résultat est identique
Merci