[VB6] Anno nuovo database nuovo

[XVincentX]

Mi rendo conto che il titolo del topic è *generico*, ma non avevo niente di meglio
in pratica mi piacerebbe fare ogni primo giorno di anno nuovo, il database X venga copiato, messo in una cartella e rinominato X200Z, dove Z è l'anno vecchio
Esempio pratico
Oggi è 31/12/3000
Ho il database provas.mdb
Passa un giorno
01/01/3001
provas.mdb viene copiato nella cartella anni e rinominato in provas2003.mdb
Automaticamente il file provas.mdb viene svuotato e pronto per un nuovo anno
Potete aiutarmi?

[MMarzia]

nel titolo della discussione vanno indiati linguaggio e versione, leggi il regolamento

[XVincentX]

Sorry sono una frana me ne ero dimenticato

[MMarzia]

Originariamente inviato da XVincentX
Sorry sono una frana me ne ero dimenticato

sì ma.. il linguaggio?

[scarob]

Potrebbe interessare anche me.
Linguaggio VB6 e database ACCESS.
Aspetto risposte

[XVincentX]

Originariamente inviato da scarob
Potrebbe interessare anche me.
Linguaggio VB6 e database ACCESS.
Aspetto risposte

idem

[Jupy64]

Ciao, di modi ce ne sono diversi..uno veloce potrebbe essere quello di avere un database vuoto e quando serve ti fai una copia di quel database e quello in uso lo rinomini come piace a te!
Comunque io una situazione simile, salvo il database corrente in una cartella diversa e creo il nuovo database da codice.
Vedi tu cosa preferisci fare...

[XVincentX]

Credo sia meglio la seconda opzione.
Non conosco però il codice per spostare il database...
per crearlo forse si potrebbe fare

create db IMPEGNI
create table id as counter
'no proprio non me lo ricordo

Puoi aiutarmi?
Grazieee

[Jupy64]

Ciao, usi ADO o DAO?
Intanto ti dico per ADO. Nel tuo progetto devi far riferimento alla libreria Microsoft ADO Ext. e Microsoft ActiveX Data Objects:

Private Sub CreaNewDb()
   Dim cm As ADODB.Command
   Dim cat As ADOX.Catalog
   Set cat = New ADOX.Catalog
   cat.Create "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=NomeNewDb.mdb"
   Set cm = New ADODB.Command
   cm.ActiveConnection = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=NomeNewDb.mdb"
   cm.CommandText = "CREATE TABLE PROVA (UNO VARCHAR(20),DUE VARCHAR(10) NOT NULL,TRE DATE);"
   cm.Execute
   Set cm = Nothing
   Set cat = Nothing
End Sub

comunque l'sql per create database e tabelle è:

CREATE DATABASE NOMEDATABASE
CREATE TABLE NOMETABELLA (NomeColonna TipoDati,...)