Adodb.command perdu apres redémarrage

Signaler
Messages postés
5
Date d'inscription
mardi 6 mai 2014
Statut
Membre
Dernière intervention
27 novembre 2016
-
après l’exécution d'une requête (Insert) sur base de données access la requête passe bien et l'enregistrement et inséré mais après le redémarrage du programme les données seront perdu mème avant l’exécution de la requête
voici le code
-------------------------------------------------
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data " & _
"Source=|DataDirectory|\AluminNet.mdb; " & _
"Jet OLEDB:Database Password=password;"
Con.ConnectionString = strCon
Con.Open()
Dim vCMD As OleDb.OleDbCommand = Con.CreateCommand()
vCMD.Connection = Con
Try
vCMD.CommandText = "INSERT INTO Prod (CodeP, Des, Prix) VALUES (1, 'Prod1', '1000')"
vCMD.ExecuteNonQuery()
Catch ex As Exception
MsgBox ex.Message
End Try