Discussion :

[loverdev]

Je voudrais savoir comment faire pour modifier des données d'une table access et aussi comment supprimer des données d'une table access?
j'ai une windows form qui affiche les données existantes d'un enregistrement dand la table et je veux qu'en cliquant sur le bouton "modifier" il modifie les données existantes par les données tapées dans les textbos du windows form et même chose pour la suppression.
Je suis débutante. C'est la 1ère fois que je travaille avec le logiciel VB2005 express.

Merci de bien vouloir m'aider et me donner un coup de pouce.

[binouzzz19]

Je ne connais pas le logiciel que tu utilises, je suis désolé.

Cependant, je connais un petit peu access, et en principe, à partir du moment où dans les propriétés du formulaire, tu autorises les modifications, tu clik sur ta textbox et tu pe modifier (sans avoir a cliké sur un lien ou un bouton). Pour supprimer, un bouton est disponible, sinon tu le crées et tu vas voir un peu dans la FAQ, il doit y avoir des exemples de code pour supprimer un enregistrement

En espérant t'avoir aidée

[Aspic]

Salut,

Encore un problème avec Access !!! C'est incroyable en 3 jours j'ai deja eu 4 cas similaire...

Fait une recherche dans ce forum et le topic n'est vraiment pas loin et j'ai déjà répondu à ta question !

Cdl

[loverdev]

voici le code que j'ai écrit avec mon effort personnel :


--------------------------------------------------------------------------

Imports System.Data.OleDb
Imports System.Data

Public Class Frmajoutab

Public sql As String

Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
Me.Close()
Frmprincipale.Show()
End Sub

Private Sub Frmajoutab_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO : cette ligne de code charge les données dans la table 'MarchesDataSet.Abonnement'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.AbonnementTableAdapter.Fill(Me.MarchesDataSet.Abonnement)
'TODO : cette ligne de code charge les données dans la table 'MarchesDataSet.Fournisseur'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.FournisseurTableAdapter.Fill(Me.MarchesDataSet.Fournisseur)
End Sub

Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
'Dim mg As Long
Dim cn As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
Dim OledbDataAdapter As New OleDb.OleDbDataAdapter
sql = "insert into Abonnement (Num_abonnement, Lib_abonnement, Date_debut_ab, Date_fin_ab, Montant_ab, Num_frs, Nom_frs) values ('" & Txtnumab.Text & "', '" & Txtlibab.Text & "', '" & Dates.Value & "', '" & Datef.Value & "', '" & Txtmontantab.Text & "', '" & Txtnumfrs.Text & "', '" & Cbxfrs.Text & "') "
If Txtnumab.Text = "" Or Txtlibab.Text = "" Or Txtmontantab.Text = "" Or Txtnumfrs.Text = "" Then
MsgBox("Vous devez saisir des valeurs non nulles.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
Exit Sub
End If
'mg = ("Etes vous sûre de vouloir créer cet abonnement?")
'If mg = vbNo Then Exit Sub
'If mg = vbYes Then
Try
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\Marches.mdb"
cn.Open()
cmd.Connection = cn
cmd.CommandText = sql
OledbDataAdapter.SelectCommand = cmd
OledbDataAdapter.Fill(MarchesDataSet.Marche)
cmd.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
MsgBox(ex.Message)
cn.Close()
Finally
cn.Close()
End Try
'End If
MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
Me.Close()
Frmprincipale.Show()
End Sub
End Class
--------------------------------------------------------------------------
Mais en exécutant ce code j'ai 2 trucs :

1/ il m'affiche les données du premier enregistrement de la base dans les champs textbox.
2/ il m'affiche un message d'erreur lors de la validation des données saisies dans les textbox (voir fichier joint).

Que faire?

[loverdev]

PS : Le code énoncé est pour ajouter un enregistrement.

[miya]

tu peux le mettre dans une balise code pour que ce soit plus lisible!

[binouzzz19]

1/ je pense que cela vient de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<ul><li style="">Me.AbonnementTableAdapter.Fill(Me.MarchesDataSet.Abonnement)</li><li style="">Me.FournisseurTableAdapter.Fill(Me.MarchesDataSet.Fournisseur)</li></ul>

qui fait que c'est placé directement au premier enregistrement

2/ Je pense qu'il faut que tu fasse un test sur la clé primaire (savoir si elle existe ou non) afin de soit faire un insert soit un update ...