Einfache Datenbank mit libSQL

[OG Karotte]

Hast Du die Pfade zu den Zeos-Quellcode-Dateien unter Tools - Optionen - Bibliothek (also Bibliothek bzw. Suchpfad) eingetragen?

[holle]

ja das hat gefehlt. jetzt habe ich aber eine neue fehlermeldung:

Code:

Im Projekt mMP3.exe ist eine Execption der Klasse EZSQLException aufgetreten. Meldung: 'SQL Error: near ")": sytax error'

Was ist denn da jetzt schon wieder falsch? ich habe mir mal die erstellte datenbank mit einem programm angesehen, die ist in ordnung.

marcel

[OG Karotte]

Wo genau tritt denn der Fehler auf???

Beim Erstellen der Tabellen oder kommt da später noch irgend etwas???

[haentschman]

...laß mal die [ ] weg...

[holle]

ohne [] entsteht der gleiche fehler, es wird aber keine ordentliche datenbank mehr erstellt. die entstandene datei kann ich nicht öffnen.

marcel

[OG Karotte]

Zitat von haentschman:

...laß mal die [ ] weg...

warum ??? Die gehören schon dazu.

@holle: Ist der von Dir gepostete Code auch der der den Fehler verursacht, oder kommt der Fehler evtl. an ein anderen Stelle???

[holle]

hier die komplette unit. bis zum showMessage(''); kommt er gar nicht.

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ZConnection, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ZAbstractTable;

type
  TfrmMain = class(TForm)
    ZConnection: TZConnection;
    ZQuery: TZQuery;
    ZTable: TZTable;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  with ZConnection do begin
    Protocol := 'sqlite-3';
    Database := 'database.db';
    Connect;
  end;

  with ZQuery do begin
    SQL.Add('CREATE TABLE [tblTracks] (');
    SQL.Add('[ID] INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,');
    SQL.Add('[Artist] VARCHAR(255) NULL,');
    SQL.Add('[Album] VARCHAR(255) NULL,');
    SQL.Add('[Track] INTEGER NULL,');
    SQL.Add('[Title] VARCHAR(255) NULL,');
    SQL.Add(');');
    ExecSQL;
  end;

  showMessage('') ;

  with ZTable do begin
    TableName := 'tblTracks';
    Active := true;
  end;
end;

end.

marcel

[Dax]

Kein Wunder, dein SQL ist

SQL-Code:

CREATE TABLE [tblTracks] (
  [ID] INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
  [Artist] VARCHAR(255) NULL,
  [Album] VARCHAR(255) NULL,
  [Track] INTEGER NULL,
  [Title] VARCHAR(255) NULL, --oh schau mal, ein satzzeichen
);

[OG Karotte]

AAARRRGGGHHH, 37 mal den Code gelesen und 37 mal dieses blöde Komma übersehen

[Edit] und das Ding ist sogar in meinem Beispiel mit drin (gibt's hier kein "Ich nehm' mir'n Strick und erschiess mich"- Smiley [/Edit]

[Edit] Fehler (Komma) im Beitrag #8 wurde entfernt (Danke Phoenix)[/Edit]

[holle]

verdammter copy and waste quelltext
DANKE