Bonjour,

Je me trouve sur un projet en VB6 qui fait appel à une base de données postgresql 8.

Tout semblait aller bien jusqu'à présent, même si des plantages occasionnels se faisaient... Je les avaient résolus en créant une nouvelle connexion à la BD.

Hors pour cette requête :

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
 
 
 
sql = "select ce.id, ce.enseigne, ce.ristourne, cs.nom_site, de.total_devis from client_enseigne as ce inner join client_site as cs on ce.id = id_enseigne " & _
"inner join devis as de on cs.id=de.client_site where reference = '" & sRefDevis & "'"
 
call connexion
 
rsd.Open sql, cn, adOpenDynamic, adLockOptimistic
 
Sub connexion()
    ' Ouvre une connexion à la base de données
    If cn.State = 1 Then Exit Sub
    scx = "DRIVER={PostgreSQL Unicode};SERVER=127.0.0.1;PORT=5432; DATABASE=MyBD;UID=MonLogin;PASSWORD=*****"
 
 cn.ConnectionString = scx
    cn.Open
 
End Sub
qui a pourtant à un certain moment afficher son résultat sous VB.

Aussi bien avec l'exécutable du projet que sous l'interface de VB, ça plante.

"Visual Basic a rencontré un problème et doit fermer...".

J'ai le pilote psqlODBC 9.0.2.0.

Quelqu'un à une idée ?

Christian.