Titolo: Rapido Trasferimento Dati
Categoria: Codice |
|
Ultimo Aggiornamento: 30/03/04 |
Quando dovete convertire una base dati da una versione precedente, o volete fare un backup rapido, ecco due metodi veloci da usare e sempre utili:
`Metodo DB_ESPORTA
`Nexus srl 30-3-2004
C_LONGINT($quantetabelle_l;quantirecords_l;$i;$j)
C_POINTER($pointer_p)
$quantetabelle_l:=Count tables
For ($i;1;$quantetabelle_l)
SET CHANNEL(10;Table name($i)+"_"+String($i))
$pointer_p:=Table($i)
DEFAULT TABLE($pointer_p->)
ALL RECORDS
$quantirecords_l:=Records in selection
FIRST RECORD
MESSAGE("Esporta "+Table name($i))
For ($j;1;$quantirecords_l)
GOTO XY(2;2)
MESSAGE(String($j)+"/"+String($quantirecords_l))
SEND RECORD
NEXT RECORD
End for SET CHANNEL(11)
End for `Metodo DB_IMPORTA
`Nexus srl 30-3-2004
C_LONGINT($quantetabelle_l;$i;$j)
C_POINTER($pointer_p)
$quantetabelle_l:=Count tables
For ($i;1;$quantetabelle_l)
SET CHANNEL(10;Table name($i)+"_"+String($i))
$pointer_p:=Table($i)
DEFAULT TABLE($pointer_p->)
$j:=0
MESSAGE("Importo "+Table name($i))
While (ok=1)
$j:=$j+1
RECEIVE RECORD
If (ok=1)
GOTO XY(2;2)
MESSAGE("Record "+String($j))
SAVE RECORD
End if End while SET CHANNEL(11)
End for
Inviato da: Umberto Migliore |
|
Visite: 17195 |
Se accedi con utente e password, puoi aggiungere dei commenti.