Mise à jour de table dans une base access 2007 avec vb.net
may
-
may -
may -
Bonjour, je débute en vb.net ,j'ai un probléme je veux connaitre comment faire la mise à jours d'une table en base access 2007 avec le languge vb.net en mode connecté (aprés faire selection de données de cette base ... ), je voudrai un exemple de code simple svp
et merci d'avance
et merci d'avance
1 réponse
-
Bonjour
Va sur le forum programmation, tu auras plus de chance d'avoir une bonne réponseb-
pouvez vous m'envoyer un lien SVP ! en fait voici mon code j'ai essayer de l'exécuter mais je sais pas pourquoi il me déclenche une erreur :(
Imports System.Data.OleDb
Public Class Consult
Dim myconnection As New OleDbConnection
Private Sub Debiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Debiter.Click
Dim trouve As Boolean = False
Dim myconnection As OleDbConnection = New OleDbConnection("Provider= Microsoft.ACE.OLEDB.12.0 ; Data source=C:\Users\IMEN\Desktop\projet.accdb")
myconnection.Open()
If myconnection.State = ConnectionState.Open Then
Dim cmd As OleDbCommand = myconnection.CreateCommand
cmd.CommandText = "select cin, numcompte,decouvmax,solde from Compte2 "
Dim DRD As OleDbDataReader = cmd.ExecuteReader
While DRD.Read And trouve = False
If DRD.GetValue(0) = Txtclt.Text And DRD.GetValue(1) = txtnumcpt.Text Then
trouve = True
End If
End While
If (trouve = True) Then
MsgBox("Connecter ", 0 + 64, "Connecter")
Dim cmd1 As OleDbCommand = myconnection.CreateCommand
If (txtmont.Text <= DRD.GetValue(2) - DRD.GetValue(3)) Then
cmd1.CommandText = "update Compte2 set solde= solde +textmont.text "
cmd1.ExecuteNonQuery()
End If
Else
MsgBox("Erreur de saisie ", 0 + 16, "Erreur")
End If
End If
End Sub
Private Sub Consult_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myconnection.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\IMEN\Desktop\projet.accdb"
myconnection.Close()
End Sub
End Class
-
