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!
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!
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
------------------------------
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.
Il tuo codice, cosi' come l'hai postato funziona perfettamente..... solo pero' se hai installato il SP5 di VB...[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]
Ciao
...and I miss you...like the deserts miss the rain...
Perchè mi viene restituito un errore?[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]
Ecco l'errore:
Tipo definito dall'utente non definito
Devo includere qualche riferimento?
Ciao.
Posso utilizzare l'altro codice postato?