C'est inclu dans le domaine développement. C'est la raison pour laquelle je l'ai déplacé dans le forum "Autres" et non pas "Hors sujet"

Si tu regarde la desc de ce forum, tu verras que ce forum concerne egalement le développement. ;)

C'est du développement, mais le forum ici est spécialisé en PHP. Tu auras probablement davantage de chances d'avoir des réponses sur des forums [url=http://www.google.fr/search?hl=fr&q=forum+%22VB.Net%22&btnG=Recherche+Google&meta=lr%3Dlang_fr]VB.Net[/url]

:oops: 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 :( .

[color=darkred][b]modération [/b]: en lisant les régles, tu aurais vu que le forum des développeurs n'est pas prévu pour poser des questions

Je déplace ton sujet dans "Autres" où il plus sa place

De plus, je ne suis pas sûr que tu trouve de l'aide VB.Net sur [b]PHP[/b]France[/color]

salut , j'ai besoin d'aide en vb.net svp. j'ai ecris un code pour la mise a jour de la base via vb mais j'ai un probleme avec la fonction supprimer qui marche pas voici l'erreur qu'il m'indique:
[quote][une oledb parameters avec parametr name 'refpro' n'est pas contenu dans ce oledbparameter connexion][/quote]
voici le code que j'ai ecris:
[code]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 Function[/code]

et l'appel :

[code]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[/code]

et merci .