[vb6 accees 2000] Cancellare tutti i record

[axsw]

Da vb6.
1°a domanda: come faccio a cancellare tutti i record di una tabella?
2°a domanda:Come faccio a copiare un database da una cartella all'altra?

[diegocoz]

risposta 1: delete * from tabella
risposta 2: via codice credo tu debba semplicemente utilizzare i metodi CopyFile del vb, per copiare l'mdb come un qualsiasi file:

Dim fso As New FileSystemObject
fso.CopyFile "c:\file.mdb", "c:\nuovacartella\"

Ciao

[axsw]

Ti ringrazio Diego

[diegocoz]

prego

[axsw]

Ho provato in questo modo ma non funge, non cancella nulla

Private Sub Command1_Click()
 Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
    Set myrecord = mydata.OpenRecordset("clienti")
  SQL = "DELETE * FROM clienti"
 mydata.Close
End Sub

[GudFella]

Private Sub Command1_Click()
 Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
 SQL = "DELETE * FROM clienti"
 mydata.execute SQL
 mydata.close
End Sub

[axsw]

Urca diego non funziona nemmeno la 2° risposta si vede che sono sfigato.
Mi dà questo errore
fso As New FileSystemObject
Tipo definito dall'utente non definito
Oltre ad essere sfigato probabilmente le mie conoscenze sono limitate.
grazie lo stesso

[diegocoz]

In effetti finchè la "delete" non la esegui sarà dura che cancelli qualcosa...

[diegocoz]

Bè hai ragione in parte: la Filesystemobject la devi includere nei riferimenti del progetto, oppure puoi fare la createobject

    Set fso = CreateObject("Scripting.FileSystemObject")

......

    Set fso = Nothing

Ciao

[axsw]

Gudfella
Ora funziona.
PS. gran bel Film
OK diego ora provo.