Soyez le premier à donner votre avis sur cette source.
Vue 9 073 fois - Téléchargée 811 fois
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
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.