Einzelnen Beitrag anzeigen

OG Karotte
(Gast)

n/a Beiträge
 
#8

Re: Einfache Datenbank mit libSQL

  Alt 7. Jan 2008, 20:07
Also wie gesagt ich arbeite schon länger mit ZEOS und SQLite und alles ohne Probs.

Wo hast Du denn das Problem???

Verbindung mit SQLite???

Erstellen einer DB???

oder was

Kopiere die sqlite.dll z.B. in deinen Projektpfad (z.B. D:\Meine Projekte\Mein DBProjekt\)
Platziere die ZEOS-Connection Komponente auf eine Form.


Delphi-Quellcode:
procedure Tfrm_Main.Create;
var
  sql_tmp: TZQuery;
begin
    with MyCon do begin // ZEOS Connection
      Protocol := 'sqlite-3';
      Database := 'MyDB.db'; // evtl. mit Pfadangaben; DB wird erstellt, wenn nicht vorhanden
      Connect; // verbinden
    end;
    
    // Erstellen von Tabellen
    sql_tmp := TZQuery.Create(self);
    with sql_tmp do begin
      Connection := MyCon;
      // Tabelle 1
      SQL.Add('CREATE TABLE [tblirgendwas] (');
      SQL.Add('[ti_ID] INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,');
      SQL.Add('[ti_Text] VARCHAR(255) NULL,');
      SQL.Add(');');
      // Tabelle 2
      SQL.Add('CREATE TABLE [tblwasanderes] (');
      SQL.Add('[tw_ID] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,');
      SQL.Add('[tw_Title] VARCHAR(255) NULL,');
      SQL.Add('[tw_Description] TEXT NOT NULL,');
      SQL.Add('[tw_Category] INTEGER NULL,');
      SQL.Add('[tw_Keyword] VARCHAR(255) NULL');
      SQL.Add(');');
      // Ausführen
      ExecSQL;
    end;
    FreeAndNil(sql_tmp);
end;
Hoffe das hilft Dir ein wenig...

[edit=Phoenix]Tippfehler im Auftrag von OP korrigiert. Mfg, Phoenix[/edit]
  Mit Zitat antworten Zitat