salut j'ai un petit problème, je veux transformer un morceau de code en ADO.NET
" Dim rs As New ADODB.Recordset
Dim rsbase As New ADODB.Recordset
Try
Select Case provenance
Case "auteur"
rs.Open("SELECT * FROM aut_notes", Depart.ConnectionBd, ADOR.CursorTypeEnum.adOpenDynamic, ADOR.LockTypeEnum.adLockOptimistic)
rs.AddNew()
rs.Fields("no_auteur").Value = noauteur
rs.Fields("nom_utilisateur").Value = Depart.nomUtil
Case "article"
rs.Open("SELECT * FROM art_notes", Depart.ConnectionBd, ADOR.CursorTypeEnum.adOpenDynamic, ADOR.LockTypeEnum.adLockOptimistic)
rs.AddNew()
rs.Fields("no_article").Value = noauteur
rs.Fields("nom_utilisateur").Value = Depart.nomUtil
End Select
With Me
rs.Fields("date").Value = .DTdate.Value
rs.Fields("commentaire").Value = .Tcommentaire.Text
'-----------------------------------
End With
rs.Update()
rs.Close() "
fin de code
merci