OVH Cloud OVH Cloud

Creation de recordset

4 réponses
Avatar
geo
Hello,

est-il possible de creer un recordset de toute piece ?
je m'explique, je veux imprimer un rapport au moyen de datarepor.
Mais mes valeurs ne sont pas issues d'une base de donnees , donc la
galere pour les passe dans le datareport.

le truc datareport.section(3).controle(2).caption .... pas terrible

donc je me suis dit je vais me faire un recordset et paf set
mondatareport.datasource = monrecordset ...

mais pas moyen de creer ce f ..u recordset.

Est-ce possible ?


Gép

4 réponses

Avatar
Quasimodo
geo used his keyboard to write :
Hello,

est-il possible de creer un recordset de toute piece ?
je m'explique, je veux imprimer un rapport au moyen de datarepor.
Mais mes valeurs ne sont pas issues d'une base de donnees , donc la galere
pour les passe dans le datareport.

le truc datareport.section(3).controle(2).caption .... pas terrible

donc je me suis dit je vais me faire un recordset et paf set
mondatareport.datasource = monrecordset ...

mais pas moyen de creer ce f ..u recordset.

Est-ce possible ?


Gép



Bonjour,
oui, c'est un recordset déconnecté.
Vous définissez votre pointeur de recordset et vous ne le connecter pas
à une connection.
Vous le garnissez avec les champs que vous voulez et ainsi de suite.
Exemple :
'---------------------------------------------------------------------------------------
Option Explicit

'Définissez une référence sur adodb ainsi que sur l'objet datagrid pour
pouvoir utiliser l'exemple.
'Placer deux boutons et un datagrid sur votre form.

Private objADOrs As ADODB.Recordset

Private Sub Command1_Click()

Set objADOrs = New ADODB.Recordset
objADOrs.Fields.Append "Key", adNumeric, , adFldKeyColumn
objADOrs.Fields.Append "Nom", adVariant
objADOrs.Fields.Append "Prenom", adVariant
objADOrs.Fields.Append "Adress", adVariant
objADOrs.Fields.Append "Ville", adNumeric
objADOrs.Fields.Append "CodePostal", adNumeric
objADOrs.Fields.Append "DateNaissance", adNumeric
objADOrs.Open
Set DataGrid1.DataSource = objADOrs

End Sub

Private Sub Command2_Click()
objADOrs.Close
Set objADOrs = Nothing
End Sub
'---------------------------------------------------------------------------------------

@+ Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
Avatar
geo
génial , je me mets au clavier !!


merci


Géo
Avatar
geo
geo a écrit:
génial , je me mets au clavier !!


merci


Géo




Mais heu ... c'est correct (pas trop tordu ) comme combine pour imprimer ...

J'ai pas trouve qque chose de plus simple pour gerer les impression sans
passer par l'objet printer.

Pour les etats d'une base de donnees , datareport est pas mal , mais
pour imprimer un truc tout bete, une simple grille de valeur.

Un espece de datareport, mais plus simple ... avec un acces aux objets
par leur nom et pas des section(x).control(x).caption ... sans etre
oblige d'avoir un recordset.

J'ai fait des truc avec des feuilles excel, c'est souple, mais il faut
que l'utilisateur le possede egalement.

Vous faites comment vous ?


Géo
Avatar
Quasimodo
geo pretended :
geo a écrit:
génial , je me mets au clavier !!


merci


Géo




Mais heu ... c'est correct (pas trop tordu ) comme combine pour imprimer ...

J'ai pas trouve qque chose de plus simple pour gerer les impression sans
passer par l'objet printer.

Pour les etats d'une base de donnees , datareport est pas mal , mais pour
imprimer un truc tout bete, une simple grille de valeur.

Un espece de datareport, mais plus simple ... avec un acces aux objets par
leur nom et pas des section(x).control(x).caption ... sans etre oblige
d'avoir un recordset.

J'ai fait des truc avec des feuilles excel, c'est souple, mais il faut que
l'utilisateur le possede egalement.

Vous faites comment vous ?


Géo



Re,
si vous devez distribuer votre application, il ne faut surtout pas
compter que vos users possède ou non tel ou tel applicatif (cf. :
Excel, word,..). Il ne faut compter que sur vos outils developper par
vous (via datareport) ou par un tiers (cf. : Crystal report, ...).
Deplus, les datareports ne sont pas des bidouilles bien au contraire,
certes pas très évolué mais utile.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com