voici le code que j'ai ecris:[une oledb parameters avec parametr name 'refpro' n'est pas contenu dans ce oledbparameter connexion]
Code : Tout sélectionner
Private Function supprimer(ByVal oledbdataadapter1 As OleDb.OleDbDataAdapter) As Integer
Try
OleDbConnection1.Open()
supprimer = oledbdataadapter1.DeleteCommand.ExecuteNonQuery()
Catch ex As Exception
supprimer = Nothing
derniereerreur = ex.Message
End Try
OleDbConnection1.Close()
End Function
Public Function produitsupprimer(ByVal refpro As Integer, ByVal despro As String, ByVal catpro As String, ByVal priuni As Integer) As Integer
OleDbDataAdapter1.DeleteCommand.Parameters("refpro").Value = refpro
OleDbDataAdapter1.DeleteCommand.Parameters("despro").Value = despro
OleDbDataAdapter1.DeleteCommand.Parameters("catpro").Value = catpro
OleDbDataAdapter1.DeleteCommand.Parameters("priuni").Value = priuni
produitsupprimer = supprimer(OleDbDataAdapter1)
End FunctionCode : Tout sélectionner
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim refpro As Integer
Dim despro As String
Dim catpro As String
Dim priuni As Integer
Dim resultat As Integer
refpro = TextBox1.Text
despro = TextBox2.Text
catpro = TextBox4.Text
priuni = TextBox3.Text
resultat = produitsupprimer(refpro, despro, catpro, priuni)
If (resultat = 0) Then
MessageBox.Show(derniereerreur, "attention", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("le client est bien supprimer", "ajout", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
en fait j'ai crus que c'est aussi integré dans domaine developement (developement d'interface via vb.net), je voulais juste savoir c'est quoi le probleme exactement, en tout cas merci 
.
