Discussion :

[Escillo]

Bonjour à toutes et à tous,

Je suis un novice en Access VBA qui a besoin d'aide dans un travail où je suis en difficulté:
On m'a demandé de faire une connexion à une base de données Postgre avec un formulaire et des listes déroulantes qui modifie dynamiquement le server, la database et la table que je veux ouvrir et afficher, ça c'est chose faite. J'ai réussi à faire une requête SELECT simple sur cette table mais maintenant je n'arrive pas à faire apparaître le résultat de cette requête (Champs+données) dans une Table.

Au mieux, j'arrive à afficher un champ de colonne et une ligne dans un formulaire mais ça s'arrête là; Est-ce que vous pourriez m'aider svp?

---

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub Connexion_Select_Click()
 
Dim CONN As ADODB.Connection
Dim requestSA As ADODB.Recordset
 
Dim intLignes As Integer, intColonnes As Integer
Dim intLig As Integer, intCol As Integer
 
Set CONN = New ADODB.Connection
Set requestSA = New ADODB.Recordset
 
Var_Serveur = Forms![Connexion]![Field_Serveur]
Var_Database = Forms![Connexion]![Field_Database]
Var_User = Forms![Connexion]![Field_User]
Var_Password = Forms![Connexion]![Field_Password]
Var_Table = Forms![Connexion]![Field_Table]
 
CONN.ConnectionString = "DRIVER={PostgreSQL UNICODE};Port=xxx;SERVER=" & Var_Serveur & ";DATABASE=" & Var_Database & ";Uid=" & Var_User & ";Pwd=" & Var_Password & ""
 
CONN.Open
MsgBox "connexion réussie"
DoCmd.OpenForm "Formulaire1"
 
If Var_Serveur = "xxxxxxxxxx" Then
    If Var_Database = "xxx" Then
 
        requestSA.Open "SELECT * FROM public.""xxx""", CONN
 
    Else: MsgBox "Autre table dans la Production"
    End If
ElseIf Var_Serveur = "xxxxxxxxxx" Then
    If Var_Database = "xxx" Then
        Dim TableDefName As DAO.TableDef
        Dim FieldName As String
        Dim i As Integer
 
        requestSA.Open "SELECT * FROM public." & Var_Table & "", CONN
 
 
        For i = 0 To requestSA.Fields.Count
        FieldName = requestSA.Fields.Item(0).Name
        Forms![Formulaire1]![Field1] = FieldName
 
        Next
 
        Do While (Not requestSA.EOF)
 
            Forms![Formulaire1]![Col1Lig1] = requestSA![user_id]
            Forms![Formulaire1]![Col2Lig1] = requestSA![UserName]
            Forms![Formulaire1]![Col3Lig1] = requestSA![Password]
            Forms![Formulaire1]![Col4Lig1] = requestSA![email]
            Forms![Formulaire1]![Col5Lig1] = requestSA![created_on]
            Forms![Formulaire1]![Col6Lig1] = requestSA![last_login]
            requestSA.MoveNext
        Loop
 
    Else: MsgBox "Autre table dans la recette"
    End If
Else: MsgBox "Mauvaise sélection"
End If
 
'requestSA.Close
CONN.Close
End Sub

--- Voilà mon "pâté", ne saignez pas des yeux tout de suite svp, délivrez-moi avant T_T

[marot_r]

Bonjour.

Si tu veux voir tes données comme une "table" il faut faire une table liée pas établir manuellement une connexion comme tu l'as fait.

Pour créer une table liée, va dans l'onglet Données Externes et choisi l'option Plus puis base de données ODBC.

Si tu ne veux pas faire de table liée alors il faut recopier tes données dans une table locale.

A+

[Escillo]

J'ai souvent vu le terme des tables liées dans des discussions, est-ce que c'est possible de faire des tables liées, créées automatiquement grâce au code svp?

A l'avenir, cette application sera modifier pour montrer tout les serveurs, database et tables avec les listes déroulante, et ça ne serait pas ergonomique pour eux qu'on leur fasse un "tuto" pour afficher la requête qu'ils ont rentrés.

Faire un "DoCmd" d'un table, qui récupère tout les noms des colonnes sur la 1ere ligne, puis une boucle qui rempli le reste de la table créée avec la table, je pense que c'est possible? J'ai déjà testé d'autres boucles (à part celle de mon exemple) mais à chaque fois je dois louper quelque chose.

---

En fait, j'aimerais que mon formulaire de base qui propose les listes déroulantes de Server, database, table et les champs user et password soit une version manuelle de la connexion ODBC où le client choisis via ce formulaire à quoi il veut être connecté plutôt que de rentrer une nouvelle connexion ODBC via le gestionnaire. Mais la table qu'affiche automatiquement Access depuis Postgre, je n'arrive pas à la faire en code svp.