Discussion :

[robertisaline]

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 :

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
 
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!

[hunteshiva]

Bonjour,

Est-ce la tout le code que tu as?

j'ai trouvé un exemple sur msdn:
http://msdn.microsoft.com/fr-fr/library/ms130978.aspx

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
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