cancellare dati [VB]

[magnus]

Per caso avete una funzione che cancelli tutti i dati in tutte le tabelle di un database access ( utilizzando VB )?

Non vorrei fare una query di delete per ogni tabella del DB!

Ciao e grazie!

[IKON]

Dovrebbe funzionare così...........:
--------------------------
Dim db As Database
Dim Tbl As TableDef

Set db = OpenDatabase(file$)

For Each Tbl In db.TableDefs
db.Execute "DELETE * FROM " & Tbl.Name
Next

Set db = Nothing
------------------------------

[magnus]

Al db riesco a connettermi così:

Set cnado = New ADODB.Connection
cnado.Open = "file name=c:\datiBF.udl"
query = "delete * from fatture"
cnado.Execute query
cnado.Close

Come modificare il codice postato?

Con il codice datomi mi da errore di database non riconosciuto ( uso ACCESS 2000 )

Ciao.

[vonkranz]

[supersaibal]Originariamente inviato da magnus
Al db riesco a connettermi così:

Set cnado = New ADODB.Connection
cnado.Open = "file name=c:\datiBF.udl"
query = "delete * from fatture"
cnado.Execute query
cnado.Close

Come modificare il codice postato?

Con il codice datomi mi da errore di database non riconosciuto ( uso ACCESS 2000 )

Ciao. [/supersaibal]

Il tuo codice, cosi' come l'hai postato funziona perfettamente..... solo pero' se hai installato il SP5 di VB...
Ciao

[magnus]

[supersaibal]Originariamente inviato da IKON
Dovrebbe funzionare così...........:
--------------------------
Dim db As Database
Dim Tbl As TableDef

Set db = OpenDatabase(file$)

For Each Tbl In db.TableDefs
db.Execute "DELETE * FROM " & Tbl.Name
Next

Set db = Nothing
------------------------------ [/supersaibal]

Perchè mi viene restituito un errore?

Ecco l'errore:
Tipo definito dall'utente non definito

Devo includere qualche riferimento?

Ciao.

[magnus]

Posso utilizzare l'altro codice postato?