Aus SQLite Datenbank in FastReport schreiben

[Degoeller]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
slDBpath: string;
sldb: TSQLiteDatabase;
sSQL: String;
ts: TStringStream;
begin

slDBPath := ExtractFilepath(application.exename)+ 'FWRuppertsweiler.db';
sldb := TSQLiteDatabase.Create(slDBPath);

try
sSQL := 'DROP TABLE IF EXISTS RuppertsweilerTable ;';
sldb.execsql(sSQL);

sSQL := 'CREATE TABLE RuppertsweilerTable ([ID] INTEGER PRIMARY KEY, [Straße] VarChar(255) null,';
sSQL := sSQL + '[Ort] VarChar(255) null, [Wann] VarChar(30) null, [Anrufer] VarChar(100),';
sSQL := sSQL + '[Was] Var Char(500) null, [Wieviele] VarChar(3) null, [Art] VarChar(100) null, [NR] VarChar(5) null);';

sldb.execsql(sSQL);

//begin a transaction
sldb.BeginTransaction;

sSQL := 'INSERT INTO Ruppertsweilertable (Anrufer,Wann,Straße,Art,Wieviele,Ort,Was,Nr) VALUES ("'+EdtAnrufer.Text+'",';
sSQL := sSQL + '"'+EdtDatUhr.Text+'","'+EdtStraße.Text+'","'+EdtArt.Text+'","'+EdtAnzahl.Text+'","'+EdtOrt.Text+'",';
sSQL := sSQL + '"'+MemoKurze_Beschreibung.Lines.Text+'","'+EdtNr.Text+'");';
//do the insert
sldb.ExecSQL(sSQL);

//end the transaction
sldb.Commit;


   frxReport1.Preview := frxPreview1;
   frxReport1.PrepareReport();
   frxReport1.ShowPreparedReport;

finally
ts.Free;
end;
end;

Vielleicht hilfst es weiter wenn Ihr den dazugehörigen Quellcode habt?