Remplir un Datagridview avec une requête Postgres

Bonsoir à la liste.
Je développe une application windows en VB(avec l'environnement visual studio 2010).
Côté base de données, j'utilise postgres.La connexion de l'IDE à la base se fait par une liaison ODBC.
J'arrive à me connecter sans problème.
Je cherche maintenant à afficher le résultat d'une sélection(SELECT) dans un datagridview.
voici comment je meconnecte

Code:

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
 
Public Sub openConnection()
        gConnOpened = False
        myConnextion = New ADODB.Connection
        'myConnextion.CursorLocation = MdiClient
        'myConnextion.IsolationLevel = adXactReadCommitted
        myConnextion.Open(GStrCnn) 'Ouverture de la connexion à la base de données
        gConnOpened = True
 
End Sub
 
Public Sub Main()
        gLoading = True
        'gConnOpened = False
        GStrCnn = "DSN=BDGESTOCKBAB"       'la base en local
 
        openConnection() 'Ouvre la connexion à la base de données
        If gConnOpened Then
            LoginForm.Show()
            'MenuGeneral.Show()
        Else
            MsgBox("La connexion au serveur n'est pas établit!" & Chr(13) & "Vérifier les paramètres de connexion au serveur.")
            End
        End If
    End Sub

Merci d'avance!

Dim con As New ADODB.Connection Dim rst As New ADODB.Recordset Dim sXMLResult As String 'Paramètres de connexion con.ConnectionString = "Provider=SQLNCLI10;" _ & "Server=(local);" _ & "Database=AdventureWorks2008R2;" _ & "Integrated Security=SSPI;" _ & "DataTypeCompatibility=80;" con.Open 'Ouverture de la connexion ' Get the xml data as a recordset. Set rst.ActiveConnection = con rst.Source = "SELECT AdditionalContactInfo FROM Person.Person " _ & "WHERE AdditionalContactInfo IS NOT NULL" rst.Open ' Display the data in the recordset. While (Not rst.EOF) sXMLResult = rst.Fields("AdditionalContactInfo").Value Debug.Print (sXMLResult) rst.MoveNext End While 'Fermeture de la connexion con.Close Set con = Nothing