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:
Merci de l'aide quel qu'il soit !!
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
Partager