Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev

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: 16814

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
303 utenti registrati

Pagina servita il 29/03/24 alle 13:25:43 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad