Un dataset sous vb6

Soyez le premier à donner votre avis sur cette source.

Vue 8 920 fois - Téléchargée 766 fois

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, @+.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

jmlucienvb
Messages postés
129
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
12 février 2009
-
Pour ceux qui justement ne sont pas encore à fond dans vb.net et sont donc intéressé par tout ce qui gravite autour de vb6, c'est quoi un dataSet ?
ledev
Messages postés
9
Date d'inscription
lundi 29 décembre 2003
Statut
Membre
Dernière intervention
28 juin 2004
-
un DataSet c'est l'une des nouveauté du dotnet :).
En faite, le DataSet permet d'extraire la requête dans un flux xml, de l'envoyée par le réseau sur l'application cliente, qui pourra alors toute en étant déconnectez lire et modifier les infos. En suite, l'appli client peut se reconnectez au serveur et mettre la base de donnée à jour.
arixo
Messages postés
6
Date d'inscription
jeudi 25 mars 2004
Statut
Membre
Dernière intervention
30 janvier 2007
-
Comment fais-tu pour interroger une procédure stockée ?

j'ai fait l'appel suivant dans le frmmain :

Set dtSet2 = oCnx.DataSet("CALL ExtraireTrameHexa")
dtSet2.AddParameter "id", 1, TypeNumeric
dtSet2.Run
Text1 = dtSet2.Rows("trame")

et j'obtient une erreur de syntaxe au moment du cmd.Execute dans le run.

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.