[VB6]+[ACCESS2000] Aggiornamento Database

[orione91]

Ho 3 file in c:
- book3.xls
- book2.csv
- db1.mdb

L'idea e' quella di aggiornare db1.mdb, con i dati contenuti in book2.csv, con un pulsante in book3.xls.
Il database contiene la tavola "Sheet1" ed e' stato costruito partendo da book2.csv.
Sono a questo punto:

Private Sub CommandButton1_Click() 'versione forum
pathfiles = "c:\"
file = "c:\book2.csv"
ws = "book2"
ChDir pathfiles
Workbooks.Open Filename:=file
Sheets(ws).Select

Windows("book3.xls").Activate

Windows("book2.csv").Activate
Sheets("book2").Select
Sheets("book2").Copy After:=Workbooks("book3.xls").Sheets(1)
Windows("book2.csv").Activate
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
'Import in Access
Dim db As Object, table As Object, lastrow As Long, i As Long
Set db = dbEngine.Workspaces(0).OpenDatabase("c:\db1.mdb")
Set table = db.TableDefs("Sheet1").openrecordset
Worksheets("book2").Select

lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
            table.movelast   'Goes to the last record in the table
            table.AddNew     'add new record
            table!Giorno = Range("a" & i).Value
            table!Ora = Range("b" & i).Value
            table.Update
            
        Next i
db.Close
        Dim ff
        For ff = 1 To 5
         Beep
        Next ff
End Sub

ma a
Set db = dbEngine.Workspaces(0).OpenDatabase("c:\db1.mdb")
mi da "Run-time error '424': object required"

Ho controllato i percorsi e i nomi dei files.

No fatemi usare

Workbooks.OpenDatabase FileName:="C:\db1.mdb"

perche' il database che dovro' usare adesso ha 461000 records.


Qualche suggerimento?
Grazie,
Orn91

[yyzyyz]

su vb6 > progetto > riferimenti aggiungi la voce
"Microsoft DAO 3.51 Object Library"
poi dovrebbe andare , notte.

[orione91]

Originariamente inviato da yyzyyz
su vb6 > progetto > riferimenti aggiungi la voce
"Microsoft DAO 3.51 Object Library"
poi dovrebbe andare , notte.

Ok, funziona.
Thanks.
Ho dovuto aggiungere anche
"Microsoft Access 8.0 Object Library"