Recordset -> formulaire

**norvel** · 26/10/2005, 14h52

Bonjour,

Comment pourrais-je configurer un formulaire pour qu'il utilise un recordset issu d'une connexion ADO genre "set rs = cnx.execute("SELECT * FROM table;")

Ou faut-il procéder autrement...

merci

**Demco** · 26/10/2005, 15h21

Peut-être cette proposition de la FAQ te conviendra-t-elle.

En espérant t'aider.

**norvel** · 26/10/2005, 15h56

Merci,

Je pensais qu'il y avait un moyen plus simple.

**norvel** · 26/10/2005, 16h12

Je n'ai jamais enregistré, sous VBA, de requêtes qui apparaitraient dans l'onglet Requêtes. Est-ce possible?

**cafeine** · 26/10/2005, 16h17

Oui,

grâce à DAO ... et la collection QueryDefs.

regarde le tutoriel de Tofalu sur DAO ou l'aide en ligne.

**norvel** · 26/10/2005, 16h46

merci, j'etais sur cette piste.

**norvel** · 26/10/2005, 16h52

Pour allez au fond de ma pensée

Est-il possible sur le chargement d'un formulaire d'executer une requête ADO puis de l'enregistrer à la collection Querydefs, puis s'en servir de source pour un formulaire?

**norvel** · 26/10/2005, 16h55

toute réflexion faite je dis peut-être une bourde...

En effet une fois enregistrée la requête sera exécutée par le formulaire donc aucun bénéfice de l'avoir faite avec ADO...

**cafeine** · 26/10/2005, 17h12

la source du form peut être un SQL ... dans ce cas pourquoi créer un objet requête ?

**norvel** · 26/10/2005, 17h22

oui, je n'avais pas assez réfléchi

**Tofalu** · 26/10/2005, 20h04

Sinon, oui il est bien possible d'affecter un recordset ADO à la propriété Recordset du formulaire

**norvel** · 26/10/2005, 20h31

Je suis preneur, car je ne vois pas comment faire.

form.recordsource....

merci.

**Tofalu** · 26/10/2005, 20h38

Pour ADO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim oRst As New ADODB.Recordset
oRst.Open "EXEC dbo.spAss @Critere = """ & Critere & """ ", _
CurrentProject.Connection, adOpenStatic, adLockPessimistic
Set Me.Recordset = oRst

**norvel** · 26/10/2005, 20h44

merci, je regarderai à tête reposée

**norvel** · 14/11/2005, 15h31

Bonjour,

Je dois mal m'y prendre, ci-dessous le code que j'ai écrit. Cela ne fonctionne pas.

Private Sub Form_Open(Cancel As Integer)

Dim Req As String
Dim cnx As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnx.ConnectionString = "DRIVER={PostgreSQL};SERVER=auto30;port=5432;DATABASE=MaBASE;UID=postgres;PWD=coco;"
Req = "select * from clients;"
cnx.Open
rs.Open Req, cnx, adOpenStatic, adLockOptimistic

Me.Recordset = rs ' C'est là que ça coince...
rs.Close
cnx.Close
End Sub