bonjour.

Je n'y connais rien a VB et je cherche a extraire des infos d'une base de donnee PostgreSQL pour les récupérer dans une feuille excel.

Pour l'instant, j'ai installé le datasource Postgres odbc et voici un script que j'ai réadapté pour la connection:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub connection()
 
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
  'Open the connection
  cn.Open "DSN=PostgreSQL;" & _
          "UID=MonUSerNAme;" & _
          "PWD=MonPassword;" & _
          "Database=MaDB"
 
  'For updateable recordsets we would typically open a Dynamic recordset.
  'Forward Only recordsets are much faster but can only scroll forward and
  'are read only. Snapshot recordsets are read only, but scroll in both
  'directions.
 
  rs.Open "SELECT * FROM recover", cn, adOpenDynamic
 
  'Loop though the recordset and print the results
  'We will also update the accessed column, but this time access it through
  'the Fields collection. ISO-8601 formatted dates/times are the safest IMHO.
  While Not rs.EOF
    Debug.Print rs!Sr_id & ": " & rs!Sr_open
    rs.MoveNext
  Wend
 
 
  'Refresh the recordset to get that last record...
  'rs.Refresh
 
  'Get the record count
  'rs.MoveLast
  'rs.MoveFirst
  'MsgBox rs.RecordCount & " Records are in the recordset!"
 
  'Cleanup
  If rs.State <> adStateClosed Then rs.Close
  Set rs = Nothing
  If cn.State <> adStateClosed Then cn.Close
  Set cn = Nothing
 
End Sub
Quand j'ai compilé au debut ca passait pas, fallait activer les controle activeX.
Maintenant ca compile, mais il se passe rien... comment on fait pour dire qu'on veut que l'output se fasse dans une sheet?