Un dataset sous vb6
Soyez le premier à donner votre avis sur cette source.
Vue 9 108 fois - Téléchargée 812 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 :
Ya surment beaucoup d'améliorations à apporter à cette source.
Bonne prog, @+.
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
- Vb6 dataset
- Dtset - Meilleures réponses
- Ocnx - Meilleures réponses
- [Déplacé VB6 --> .Net] Comment convertir une String en DataSet ? ✓ - Forum - VB.NET
- Vb6 global - Conseils pratiques - Visual Basic / VB.NET
- Vb6 listbox ✓ - Forum - Visual Basic 6
- Vb6 else if - Conseils pratiques - Visual Basic / VB.NET
- Vb6 windows 7 ✓ - Forum - Visual Basic 6
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.
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.
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.