Problème de mise à jour d'une base access via VB 2005
timon4
Messages postés1Date d'inscriptionvendredi 23 février 2007StatutMembreDernière intervention22 septembre 2008
-
22 sept. 2008 à 13:55
Repentignois
Messages postés14Date d'inscriptionvendredi 19 mai 2006StatutMembreDernière intervention23 octobre 2009
-
9 déc. 2008 à 20:16
Bonjour,
je rame un peu sur un problème avec une requête SQL. Mon programme tourne sans erreur retournée mais ma base ne se met pas à jour. Cela fait comme si aucune donnée n'était à mettre à jour alors que la même requête directement sous ACCESS fonctionne.
Voici mon code :
Dim
dateDest
As
Date = Mid(Now, 1, 10)
Dim UserD = Identification.UsernameTextBox.Text
Dim Requete =
"UPDATE Table_boites SET Table_boites.[Date destruction effective]=#" & dateDest &
"#, Table_boites.UtilisateurD='" & UserD &
"', Table_boites.[Lieu de stockage actuel]='Boîte détruite' WHERE (((Table_boites.[Lieu de stockage actuel]) LIKE 'Boîte à détruire'+'*'));"
Dim MaTable
As
New System.Data.DataTable
Dim connexion
As OleDbConnection =
New OleDbConnection(
Me.Table_boitesTableAdapter.Connection.ConnectionString)
Dim MonDataAdapter
As
New OleDbDataAdapter(Requete,
Me.Table_boitesTableAdapter.Connection.ConnectionString)
Repentignois
Messages postés14Date d'inscriptionvendredi 19 mai 2006StatutMembreDernière intervention23 octobre 2009 9 déc. 2008 à 20:16
Voici une procédure qui peut peut-être t'aider. Cette procédure met à jour la la ligne "NodeLigne" de la table "Table1" de la colonne "Solde_depart". Tu peux modifier les paramètres pour les adapter à tes besoins. En espérant que cela va t'aider et en aider d'autres.
Friend
Sub Enregistre_Nouveaux_Soldes(
ByVal LeNoDeLigne,
ByVal montant)CnxStr =