Bonjour,

J'ai un problème très ennuyeux qui m'arrive en ce moement.
J'utilise un logiciel pour classer mes DVD et il se trouve que ce logiciel au départ réalisé par un pote à été modifié par mes soins (je n'y connais pas grand chose et j'ai appris sur le tas quelques trucs) pour y ajouter des fonctions.
Ce logiciel fonctionnait bien jusqu'à il y a quelques jours lorsqu'un collègue de travail me donne un logiciel et qu'en installant ce dernier, il me change quelques fichier (dll je supposeà dans le dossier system32 de windows. Depuis, mon logiciel ne fonctionne plus.
Il crée bien des bases de données temporaires (je les vois apparaitre dans le dossier temporaire mais lorsqu'il essai de lire dedans, il tourne en rond dans une boucle. Lorsque je le lance dans Visual Studio, je vois que là où il devrait lire dnas la base de donnée, il n'y arrive pas et me donne "un objet est requis" et il continue la boucle.
Sauriez-vous d'où vient ce problème ?
Pourriez-vous m'expliquer ce qui ne va pas ?

Voici une partie du 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
' ouverture de la base de donnée
 
    Set ct = New ADODB.Connection
 
    ct.Provider = "Microsoft.Jet.Oledb.4.0"
    ct.ConnectionString = AdresseBdd & NomBdd
    ct.Open
 
'creation des 4 autres bases de données (acteur, réalisateur, type, pays)
    Set at = New ADODB.Connection
 
    at.Provider = "Microsoft.Jet.Oledb.4.0"
    at.ConnectionString = AdresseBdd & "acteur.mdb"
    at.Open
 
    Set rt = New ADODB.Connection
 
    rt.Provider = "Microsoft.Jet.Oledb.4.0"
    rt.ConnectionString = AdresseBdd & "realisateur.mdb"
    rt.Open
 
    Set tt = New ADODB.Connection
 
    tt.Provider = "Microsoft.Jet.Oledb.4.0"
    tt.ConnectionString = AdresseBdd & "typ.mdb"
    tt.Open
 
    Set pt = New ADODB.Connection
 
    pt.Provider = "Microsoft.Jet.Oledb.4.0"
    pt.ConnectionString = AdresseBdd & "pays.mdb"
    pt.Open
 
' Remplissage de la liste
 
    Set rc = New ADODB.Recordset
    Set aaa = New ADODB.Recordset
    Set rrr = New ADODB.Recordset
    Set ttt = New ADODB.Recordset
    Set ppp = New ADODB.Recordset
 
    Dim acteurlu As String
    acteurlu = ""
 
    aaa.Open "SELECT don1 FROM tout ORDER BY don1", at, adOpenDynamic, adLockOptimistic
    rrr.Open "SELECT don1 FROM tout ORDER BY don1", rt, adOpenDynamic, adLockOptimistic
    ttt.Open "SELECT don1 FROM tout ORDER BY don1", tt, adOpenDynamic, adLockOptimistic
    ppp.Open "SELECT don1 FROM tout ORDER BY don1", pt, adOpenDynamic, adLockOptimistic
 
    'remplissage d'acteur
    rc.Open "SELECT acteur1 FROM DivX ORDER BY acteur1", ct, adOpenDynamic
    Do Until rc.EOF
        If Len(rc!Acteur1) >= 1 Then
            aaa.AddNew
            aaa!don1 = rc!Acteur1
            rc.MoveNext
            aaa.MoveNext
        Else
            rc.MoveNext
        End If
    Loop
    rc.Close
Merci