Discussion :

[abdouvitch]

Bonsoir

J'ai un projet VB6 qui fonctionne très bien sur la machine de mon ami mais pour la mienne non. en cliquant sur le bouton déployer il m'affiche cette erreur:
Runtime Error 3170: Couldn't find installable ISAM
Après une petite recherche sur le net j'ai découvert que le problème est relié avec la base de données Access mais j'ai pas trouvé une solution.
la connexion de la base de donnée est une connexion ADO
voilà le résultat du debug :


Quelqu'un pourrait il m'aider à solutionner merci d'avance

[argyronet]

Bonjour,

J'ai déplacé votre message car cela ne concerne pas le Runtime...

Quel est votre version de Windows et d'Access (si toutefois vous avez Access sur votre poste)...?

Argy

[abdouvitch]

Windows XP (machine virtuelle) et access 2003 ...

[argyronet]

Bien...

Avez-vous installé les pilotes ISAM ?
https://www.microsoft.com/fr-fr/down...s.aspx?id=5793

=> préalablement, après avoir vérifié la version : https://support.microsoft.com/en-us/kb/301202/fr

Argy

[abdouvitch]

l'installation des pilotes ISAM à échoué. Ce programme n'est pas compatible avec le Windows XP
Des informations concernant la version :

[argyronet]

La réponse est sans doute ici :
https://support.microsoft.com/en-us/kb/899861

enfin là, si vous ne lisez pas l'anglais :
https://support.microsoft.com/fr-fr/kb/899861

Argy

[abdouvitch]

J'ai suivi mot par mot cet article mais malheureusement le problème persiste.
NB: Le dossier servicepackfiles n'existe pas même en réinstallant le système d'exploitation.

[argyronet]

Humm, et en chargeant un code similaire dans Excel par exemple, via ADO, est-ce que vous avez la même erreur...?

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
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub Test_ADO()
 
Const DB_PATH                                          As String = "Z:\Tests\Comptoir.mdb"
Const CONNECTION_STRING                                As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_PATH & ";"
Const MY_QUERY                                         As String = "SELECT * FROM Clients WHERE [Code client]='ALFKI'"
 
Dim oCnx                                               As ADODB.Connection
Dim oRs                                                As ADODB.Recordset
 
    On Error GoTo L_ErrTest_ADO
 
    Set oCnx = New ADODB.Connection
    oCnx.Open CONNECTION_STRING
 
    Set oRs = New ADODB.Recordset
    With oRs
        Set .ActiveConnection = oCnx
        .Source = MY_QUERY
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .Open
 
        If Not .EOF Then
            MsgBox "Le code 'ALFKI' fait référence au client : " & .Fields("Société") & ".", vbInformation
        Else
            MsgBox "Le code 'ALFKI' fait référence à aucun client !", vbExclamation
        End If
        .Close
    End With
    oCnx.Close
    Set oCnx = Nothing
    Set oRs = Nothing
 
    On Error GoTo 0
L_ExTest_ADO:
    Exit Sub
 
L_ErrTest_ADO:
    MsgBox Err.Description, 48, Err.Source
    Resume L_ExTest_ADO

Argy