Voila un petit objet minimaliste qui permet de renvoyer un dataset à la manière de ADO .NET en utilisant ado simple. On peut utiliser des paramêtres pour interroger une procédure stockée.
Voici le code dans la partie client :
Source / Exemple :
rivate WithEvents oCnx As vgDataBase
Private Sub Form_Load()
Dim dtSet As New DataSet, i As Integer
Dim dtSet2 As New DataSet
Dim lst As ListItem
Set oCnx = New vgDataBase
oCnx.ConnectToMdb App.Path & "\data\db1.mdb"
Set dtSet = oCnx.DataSet("SELECT * FROM TableTest", True)
For i = 0 To dtSet.RowCount - 1
Set lst = Me.ListView1.ListItems.Add(, , dtSet.Rows("Nom"))
lst.SubItems(1) = dtSet.Rows("Prenom")
lst.SubItems(2) = dtSet.Rows("NumTel")
Next
Set dtSet2 = oCnx.DataSet("SELECT * FROM rTest")
dtSet2.AddParameter "LeNom", "Pichon"
dtSet2.Run
Text1 = dtSet2.Rows("NumTel")
End Sub
Conclusion :
Ya surment beaucoup d'améliorations à apporter à cette source.
Bonne prog, @+.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.