[VB] Recuperare i dati di un db access

[ZioAlfredo]

Grazie ad un noto provider italiano (di cui non faccio il nome), ho la bellezza di 6 database access (100 tabelle) corrotti. Tali database pur avendo i dati correttamente all'interno il sito funziona e i dati con visual basic li vedo correttamente, ma non riesco + ad aprirli. Access mi da errore : AOINDEX non è un indice di questa tabella ...

Quello che chiedo è se qualcuno conosce qualche metodo via codice visual basic per prendere le tabelle dal db corrotto via ado/dao ... e salvare le tabelle in un nuovo db ???

Grazie a chi mi aiuta ...
Sono stato spiegato ?

[vonkranz]

Puoi fare quello che chiedi molto piu' semplicemente con Access.
Apri un DB nuovo e vuoto, e poi usi la funzione di Import messa a disposizione da Access stesso.

[ZioAlfredo]

Se era cos'ì semplice ... l'avrei già fatto il db corrotto non me lo permette.

A me serve un sistema via codice VB.

Stò provando qualcosa del genere, ma mi va in errore :

Dim dbsource As Database
Dim dbDest As Database
Dim tbSource As TableDef
Dim quSource As QueryDef
Dim rlSource As Relations

Dim sdbSource As String
Dim sdbDest As String

sdbSource = "C:\Access_Recovery\articoli.mdb"
sdbDest = "C:\Access_Recovery\articoli_new.mdb"

Set dbsource = OpenDatabase(sdbSource)
Set dbDest = CreateDatabase(sdbDest, dbLangGeneral)

' Esegue un'iterazione in ogni elemento.
For Each tbSource In dbsource.TableDefs
dbDest.TableDefs.Append tbSource
dbDest.TableDefs.Refresh
Next