conversione archivio dbf (dbase III plus) a sqlite

[casey]

Ciao a tutti,
dovrei convertire un archivio clienti di un vecchio programma fatto in dbase III plus sotto dos,
si tratta di un DBF,
mi interesserebbe convertirlo sia in sqlite, che in csv,

ho visto che ci sono dei siti che fanno ciò,
ma siccome si tratta di dati sensibili non mi fido a caricarli su quei siti,
c'e altro modo pee farlo in locale e in modo che i dati restino integri così come sono?

su Lazarus per sqlite sto usando Zeodb,
quindi creo il form e ci metto gli oggetti sul form,
se volessi utilizzare free pascal, quindi con schermate non grafichecome potrei fare?

grazie

[nomorelogic]

se si tratta di una operazione una-tantum potresti aprire file file DBF con Libre Office e poi te lo salvi direttamente in CSV

o si tratta di una operazione che deve essere fatta continuamente?

nomorelogic

[bonmario]

Oltre a quanto scritto da @nomorelogic, in Lazarus c'è questo:
https://wiki.lazarus.freepascal.org/Lazarus_Tdbf_Tutorial

ma non so se si tratta dello stesso tipo di files.
Io lo uso da anni, per un unico semplice progetto.

Ciao, Mario

[casey]

se si tratta di una operazione una-tantum potresti aprire file file DBF con Libre Office e poi te lo salvi direttamente in CSV

o si tratta di una operazione che deve essere fatta continuamente?

nomorelogic

Ho letto su internet che la conversione in csv da libreoffice non è perfetta,

in ogni caso più che csv, a me interesserebbe convertirlo in sqlite

[casey]

Oltre a quanto scritto da @nomorelogic, in Lazarus c'è questo:
https://wiki.lazarus.freepascal.org/Lazarus_Tdbf_Tutorial

ma non so se si tratta dello stesso tipo di files.
Io lo uso da anni, per un unico semplice progetto.

Ciao, Mario

non voglio usare il dbf, che è meno efficiente,
cerco un modo per convertire il database vecchio direttamente in sqlite

altra cosa,
come posso usare zeos in free pascal non essendoci i form?

[DragoRosso]

altra cosa,
come posso usare zeos in free pascal non essendoci i form?

Crea una app console e copiaci dentro questo codice. Nella stessa directory copiaci i due file allegati.

Ciao

Codice: [Seleziona]

program Console_DemoDB;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes, SysUtils, CustApp, odbcconn, SQLDB,  DB,
  ZCompatibility, ZConnection, ZDataset, SQLite3Conn
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
  end;

{ TMyApplication }

var
  ZConnection1: TZConnection;
  ZTable1: TZTable;
procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  { add your program here }
  //Inizializzazione componenti
  ZConnection1 := TZConnection.Create(nil);
  with ZConnection1 do
    begin
      ControlsCodePage := cCP_UTF8;
      AutoEncodeStrings := True;
      ClientCodepage := 'UTF-8';
      Properties.Add('AutoEncodeStrings=True');
      Properties.Add('controls_cp=CP_UTF8');
      Properties.Add('codepage=UTF-8');
      Port := 0;
      Database := '.\db.s3db';
      Protocol := 'sqlite-3';
    end;
  ZConnection1.Connected:= True;
  ZTable1 := tZTable.Create(nil);
  with ZTable1 do
    begin
      Connection := ZConnection1;
      SortedFields := 'ID';
      TableName := 'utenti';
      IndexFieldNames := 'ID Asc';
    end;
  ZTable1.Active:= True;
  //Fine Inizializzazione

  ZTable1.First;
  writeln(ZTable1.FieldByName('Cognome').AsAnsiString,' - ', ZTable1.FieldByName('Nome').AsAnsiString);
  readln();

  //Finalizzazione
  ZTable1.Active:= False;
  ZTable1.Free;
  ZConnection1.Connected := False;
  ZConnection1.Free;
  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end. 

               

[casey]

Crea una app console e copiaci dentro questo codice. Nella stessa directory copiaci i due file allegati.

Ciao

Codice: [Seleziona]

program Console_DemoDB;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes, SysUtils, CustApp, odbcconn, SQLDB,  DB,
  ZCompatibility, ZConnection, ZDataset, SQLite3Conn
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
  end;

{ TMyApplication }

var
  ZConnection1: TZConnection;
  ZTable1: TZTable;
procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  { add your program here }
  //Inizializzazione componenti
  ZConnection1 := TZConnection.Create(nil);
  with ZConnection1 do
    begin
      ControlsCodePage := cCP_UTF8;
      AutoEncodeStrings := True;
      ClientCodepage := 'UTF-8';
      Properties.Add('AutoEncodeStrings=True');
      Properties.Add('controls_cp=CP_UTF8');
      Properties.Add('codepage=UTF-8');
      Port := 0;
      Database := '.\db.s3db';
      Protocol := 'sqlite-3';
    end;
  ZConnection1.Connected:= True;
  ZTable1 := tZTable.Create(nil);
  with ZTable1 do
    begin
      Connection := ZConnection1;
      SortedFields := 'ID';
      TableName := 'utenti';
      IndexFieldNames := 'ID Asc';
    end;
  ZTable1.Active:= True;
  //Fine Inizializzazione

  ZTable1.First;
  writeln(ZTable1.FieldByName('Cognome').AsAnsiString,' - ', ZTable1.FieldByName('Nome').AsAnsiString);
  readln();

  //Finalizzazione
  ZTable1.Active:= False;
  ZTable1.Free;
  ZConnection1.Connected := False;
  ZConnection1.Free;
  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end. 

             

Ti ringrazio,

praticamente così invece di usare FPC,
uso direttamente Lazarua con Zeos installato, giusto?

hai suggerimenti da darmi anche per la conversione del vecchio dbf dbase III Plus a sqlite?

[DragoRosso]

Ti ringrazio,
praticamente così invece di usare FPC,
uso direttamente Lazarua con Zeos installato, giusto?
hai suggerimenti da darmi anche per la conversione del vecchio dbf dbase III Plus a sqlite?

Si, usi Lazarus comunque ma semplicemente creando i "controlli" a runtime. Questo è il modo più semplice.
Una alternativa più prestante (ma un pò più complessa), è quella di usare direttamente le interfaccie.
I componenti non sono altre che incapsulazioni di interfaccie, con le interfaccie sei più diretto.

Per la conversione invece, puoi fare un piccolo programma di conversione con Lazarus, usando il componente indicato da @bonmario per leggere il dbf e ZEOS per scrivere un db SQLite, poi se non sbaglio SQLite ha un metodo diretto per scrivere un csv dei dati del suo db.

Ci sono anche dei tools a pagamento che fanno ciò, ma ultimanete sono un pò fuori dal giro e quindi non saprei darti altre indicazioni.

Ciao

[sergio]

Ciao , se vuoi puoi usare DB browser for Sqlite che titrasforma unfile csv  in un archivio sqlite. Il programma è Free !

[casey]

altra cosa,
come posso usare zeos in free pascal non essendoci i form?

Crea una app console e copiaci dentro questo codice. Nella stessa directory copiaci i due file allegati.

Ciao

Codice: [Seleziona]

program Console_DemoDB;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes, SysUtils, CustApp, odbcconn, SQLDB,  DB,
  ZCompatibility, ZConnection, ZDataset, SQLite3Conn
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
  end;

{ TMyApplication }

var
  ZConnection1: TZConnection;
  ZTable1: TZTable;
procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  { add your program here }
  //Inizializzazione componenti
  ZConnection1 := TZConnection.Create(nil);
  with ZConnection1 do
    begin
      ControlsCodePage := cCP_UTF8;
      AutoEncodeStrings := True;
      ClientCodepage := 'UTF-8';
      Properties.Add('AutoEncodeStrings=True');
      Properties.Add('controls_cp=CP_UTF8');
      Properties.Add('codepage=UTF-8');
      Port := 0;
      Database := '.\db.s3db';
      Protocol := 'sqlite-3';
    end;
  ZConnection1.Connected:= True;
  ZTable1 := tZTable.Create(nil);
  with ZTable1 do
    begin
      Connection := ZConnection1;
      SortedFields := 'ID';
      TableName := 'utenti';
      IndexFieldNames := 'ID Asc';
    end;
  ZTable1.Active:= True;
  //Fine Inizializzazione

  ZTable1.First;
  writeln(ZTable1.FieldByName('Cognome').AsAnsiString,' - ', ZTable1.FieldByName('Nome').AsAnsiString);
  readln();

  //Finalizzazione
  ZTable1.Active:= False;
  ZTable1.Free;
  ZConnection1.Connected := False;
  ZConnection1.Free;
  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end. 

             

Niente da fare,ho copiato il codice, ma via console mi da sempre errore nella USES,
non capisco perchè,
ho provato anche con free pascal direttamente,

cmq c'è un modo per ingrandire quella maledetta finestra di free pascal prima che diventi cieco?

[DragoRosso]

Niente da fare,ho copiato il codice, ma via console mi da sempre errore nella USES,
non capisco perchè,
ho provato anche con free pascal direttamente,

cmq c'è un modo per ingrandire quella maledetta finestra di free pascal prima che diventi cieco?

Che errore nelle USES ?

Ingrandire che cosa ?

Non ho visto dei rifierimenti nei post precedenti a queste tue ultime questioni.

Ciao

[casey]

Niente da fare,ho copiato il codice, ma via console mi da sempre errore nella USES,
non capisco perchè,
ho provato anche con free pascal direttamente,

cmq c'è un modo per ingrandire quella maledetta finestra di free pascal prima che diventi cieco?

Che errore nelle USES ?

Ingrandire che cosa ?

Non ho visto dei rifierimenti nei post precedenti a queste tue ultime questioni.

Ciao

Scusami amico,
l'errore uses ora non lo ricordo,
quando sono al pc ti faccio sapere.
Cmq il coeice che mi hai allegato, copiato in un file di testo, in modo da utilizzare sqlite via console, mi da quell'errore USES, che poi ti dirò.

Ciò che non riesco ad ingrandire,
è la finestra di FPC,
praticamente per programmare via console.
Per utilizzarla ieri pomeriggio sono quasi diventato cieco.

[casey]

Niente da fare,ho copiato il codice, ma via console mi da sempre errore nella USES,
non capisco perchè,
ho provato anche con free pascal direttamente,

cmq c'è un modo per ingrandire quella maledetta finestra di free pascal prima che diventi cieco?

Che errore nelle USES ?

Ingrandire che cosa ?

Non ho visto dei rifierimenti nei post precedenti a queste tue ultime questioni.

Ciao

allora,
creando un programma cnosole e incolllando il codice che mi hai detto tu,
mi viene fuori l'errore : Fatal: can't find unit Zcompatibility used by console_demo

se cancello zcompatibility,
mi danno errore gli altri ZConnection, ZDataset, SQLite3Conn

[DragoRosso]

allora,
creando un programma cnosole e incolllando il codice che mi hai detto tu,
mi viene fuori l'errore : Fatal: can't find unit Zcompatibility used by console_demo

se cancello zcompatibility,
mi danno errore gli altri ZConnection, ZDataset, SQLite3Conn

Apri "Analizzatore Progetti" e dove c'è la scritta "Pacchetto Richiesto" con il tasto destro del mouse scegli "AGGIUNGI" e poi nell'elenco che appare seleziona "zcomponent".

Ora vedrai che funziona.

Ciao

[casey]

allora,
creando un programma cnosole e incolllando il codice che mi hai detto tu,
mi viene fuori l'errore : Fatal: can't find unit Zcompatibility used by console_demo

se cancello zcompatibility,
mi danno errore gli altri ZConnection, ZDataset, SQLite3Conn

Apri "Analizzatore Progetti" e dove c'è la scritta "Pacchetto Richiesto" con il tasto destro del mouse scegli "AGGIUNGI" e poi nell'elenco che appare seleziona "zcomponent".

Ora vedrai che funziona.

Ciao

scusami, ma questi pacchetti non dovevano essere già aggiunti installando zeos,
e quindi solo richiamati con uses?

Ho un cacchio di problema anche sotto windows quando programmo applicazioni console,
c'è modo di vedere l'applicazione in full screen?

su windows XP funziona premendo ALT INVIO,
su Linux funziona,
sul vecchio DOS pure tutto ok,
ma sotto Windows 7/8/10/11 mi si apre quella schermata piccola, e non si può lavorare così.
Questo problema ce l'ho anche con FreeBasic,
mentre con QB64 nessun problema, funziona magnificamente.
Con C++ mi basta scrivere System('mode 650');
compilare , e va in full screen.

Con free pascal proprio non riesco.


in qualche post fa chiedevo come convertire dei vecchi archivi dbf in sqlite,
alla fine ci sono riuscito con il programma FULL CONVERT, che però è a pagamento.
Converte qualsiasi archivio in qualsiasi altro formato,
ve lo consiglio, funziona benissimo.

Ho ripreso a programmare da poco, e devo dire che mi è tornata un pò questa passione che avevo perso tempo fa,
anche se sono rimasto parecchio indietro rispetto agli anni 90 quando ero al TOP, considerato un grande esperto,
devo dire che amo il PASCAL,
però mi sono trovato in queste settimane così per riprendere la mano, a convertire vecchi gestionali DOS che avevo programmato io stesso all'epoca con dbase III plus,
e li ho rifatti sia in QB64 che in FREE PASCAL,
funzionano benissimo entrambi, molto meglio di come funzionavano all'epoca con il dbase che era interpretato e lento,
e così mi sono messo a fare un paragone,
e vi posso dire che i programmi in QB64 li ho realizzati molto più velocemente, e con la metà delle righe rispetto a free pascal.
Come detto, amo il free pascal, ma mi sono reso conto che amo molto di più QB64,
tutto è molto più rapido e semplificato con esso,
è chiaro che non ha tutte le funzioni che ha il free pascal, che è immenso, ma alla fine ha tutto ciò che serve.
Peccato che non ci sia un RAD simile a LAZARUS che invece di Free Pascal usi QB64,
una specie di visual basic 6 sotto licenza GPL, multipiattaforma.
So che esiste Visual Basic .net express, che è gratuito,
ma ormai il visual basic non ha più nulla a che vedere con la versione 6 e QB64,
ha perso la sua immediatezza e facilità,
è più simile a C# che al Visual Basic 6,
e poi non ho mai amato i software che pesano diversi giga.