[VB]Lecture dans une base de donnée posant problème
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:
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
