Discussion :

[TaymouWan]

Bonjour à tous,
j'ai un code sur vb6, ça marchait très bien sur win XP. Sur win7 ça bloque
voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim recADO As ADODB.Recordset
'remplir recADO
If Not (recADO.BOF And recADO.EOF) Then
 Tb.Seek "=",  recADO("var1"),  recADO("var2"),  recADO("var3"),  recADO("var4")
End If

the "seek" function generates this error " err.number=10000 err.description=Access Violation".
De cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim recADO As ADODB.Recordset
Dim ado1,ado2,ado3,ado4 as string
'remplir recADO
ado1 =  recADO("var1")
ado2 =  recADO("var2")
ado3 =  recADO("var3")
ado4 =  recADO("var4")
If Not (recADO.BOF And recADO.EOF) Then
 Tb.Seek "=", ado1, ado2, ado3, ado4
End If

Il fonctionne très bien
quelqu'un peut il m'aider comprendre quel est le problème ??

[Mat.M]

Salut
si tu as une erreur c'est parce que tu passes un ou des paramètres qui équivaut à une instance nulle à la méthode seek.
En affectant à des strings même si recADO() retourne une chaine vide ,le paramètre passé n'équivaut pas à une instance nulle.

Sinon il faudrait faire une mise à jour vraisemblablement de MDAC Microsoft Data Access Component qui installe les dll COM du moteur ADO de bdd.
Ces dll peuvent se télécharger sur le site de Microsoft.

[TaymouWan]

Bonjour Mat.M,
Merci de me réponder mais en fait je suis sur que le contenu de mes variable n'est pas nul car j'affiche leur contenu avant de les affecter à la fonction seek.
et pour le MDAC , je travaille sur win 7 qui ne supporte plus le MDAC mais plutot le windows dac pour lequelle je trouve aucun update ou mise à jour

[ProgElecT]

.........
et pour le MDAC , je travaille sur win 7 qui ne supporte plus le MDAC
...........

Si, cela peut fonctionner sous Windows 7, Il faut faire une installation et non un copier/coller de l'exécutable.
Par la suite, pour un autre programme utilisant ces DLLs, un copier/coller que de l'exécutable ne posera plus de problème.

[TaymouWan]

Merci bien ProgElecT
mais je comprends pas parfaitement ce que vous voulez dire
Est ce que vous pouver m'expliquer davantage ?

[ProgElecT]

Il faut passer par l'Assistant Empaquetage & déploiement livré avec VB6, ou employer Inno Setup et son complément ISTools que tu peux charger dans les outils DVP ICI

[TaymouWan]

pour installer quoi ?