Un dataset sous vb6

Télécharger le projet
Commenter

Description

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, @+.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (VicoLaChips2)