19-01-17, 05:50 PM
لمذا لا يعمل هذا الكود
Dim connexion As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Budget.accdb;Persist Security Info=True;Jet OLEDBatabase Password=LeDernierChawi")
Dim sqlcmd As New OleDbCommand("UPDATE Budget SET Budget.SommeMAx = [DisponibleTRans].[DISPONIBLE], inner JOIN DisponibleTRans On Budget.Imputation = [DisponibleTRans].[Imputation] ", connexion)
connexion.Open()
sqlcmd.ExecuteNonQuery()
connexion.Close()
Dim connexion As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Budget.accdb;Persist Security Info=True;Jet OLEDBatabase Password=LeDernierChawi")
Dim sqlcmd As New OleDbCommand("UPDATE Budget SET Budget.SommeMAx = [DisponibleTRans].[DISPONIBLE], inner JOIN DisponibleTRans On Budget.Imputation = [DisponibleTRans].[Imputation] ", connexion)
connexion.Open()
sqlcmd.ExecuteNonQuery()
connexion.Close()