[VB.Net] Enregistrement dans bdd ne fonctionne pas
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:
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:
1 2
|
strSql = "INSERT INTO RSAC (Names, Money) Values('FR','EUR')" |
Mais le résultat est identique :(
Merci