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 |
Partager