J'ai un petite application VB6 (SP5) qui roule sur Windows XP SP1 qui fonctionnait bien jusqu'a ce que je fasse Update WinXP SP2 et VB6 SP6.

Il semble que le rpoblème soit causé apr un bug de L'ODBC (KB249638). J'ai recréer le fichier DSN associé mais sans résultat.
Je ne suis pas programmeur. l'application semble bien simple ???

Voici le code:

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
 
Dim Nb As Integer
 
Private Sub Form_Load()
Nb = 0
Set rs1 = Adodc1.Recordset
 
rs1.MoveFirst
Max_Elem_Carte = 0
While Not rs1.EOF
If rs1.Fields(12).Value = True Then
List1.AddItem rs1.Fields(0).Value & Chr(9) & rs1.Fields(4).Value
End If
rs1.MoveNext
Wend
Text1.Text = List1.ListCount
End Sub
Merci de l'aide quel qu'il soit !!