Hilfe bei sqlite und Zeos Komponente gesucht

[Shubit]

Damit nicht jeder immer andere Variablennamen verwendet geb ich mal einen Anfang vor.

Delphi-Quellcode:

  gCon := TZConnection.Create(nil);
  Q := TZQuery.Create(nil);

  with gCon do
  begin
    Protocol := 'sqlite-3';
    Database := 'asdf.db';
    Connect;
  end;

  Q.Connection := gCon;

Dabei sind

Delphi-Quellcode:

    gCon: TZConnection;
    Q: TZQuery;

private Variablen einer der Klasse in der das ganze geschehen soll.
Die Klasse soll dann später für das Handle einer "Vokabeldatenbank" zuständig sein, sodass ich beim interface nicht mehr mit sqlite beschäftigen muss.

1. private

Delphi-Quellcode:

function TableExists(mTable: String): Boolean;
begin
Q.SQL.Add('SHOW TABLE STATUS LIKE `'+mTable+'`');
Q.ExecSQL;
end;

Wo steht der Rückgabewert und lese ich diesen aus (ins result)

2. gleiches Problem wie bei 1. nur das ich diesmal die Zeilen einer Tablle zählen würde
Q.SQL.Add('SELECT count(*) from `'+mTable+'`');

[DeddyH]

Delphi-Quellcode:

function TableExists(mTable: String): Boolean;
begin
  Q.SQL.Add('SHOW TABLE STATUS LIKE `'+mTable+'`');
  Q.Open;
  //wenn ein Ergebnis kommt, steht es nun auf dem ersten Datensatz, ansonsten ist EOF true
  while not Q.EOF do
    begin
      //soll den Wert des ersten Feldes des aktuellen Datensatzes ausgeben
      ShowMessage(Q.Fields[0].AsString);
      //nächster Datensatz
      Q.Next;
    end;
  Q.Close;
end;

[mkinzler]

Wenn schon add, dann vorher löschen aber besser
Q.SQL.Text := 'SHOW TABLE STATUS LIKE `'+mTable+'`'; Zudem würde sich die Verwendung von (SQL-)Parametern anbieten.

BTW.: Ohne Grundlagenwissen (Tutorials) ist die ganze Chose ein Himmelfahrtskommando!

[Shubit]

Delphi-Quellcode:

procedure TVocabularyBook.TableExists(mTable: String);
begin
  Q.SQL.Text := 'SHOW TABLE STATUS LIKE `'+mTable+'`;';
  Q.Open;
  //wenn ein Ergebnis kommt, steht es nun auf dem ersten Datensatz, ansonsten ist EOF true
  while not Q.EOF do
    begin
      //soll den Wert des ersten Feldes des aktuellen Datensatzes ausgeben
      ShowMessage(Q.Fields[0].AsString);
      //nächster Datensatz
      Q.Next;
    end;
  Q.Close;
end;

Jetzt meckert er beim Q.Open aber das er ZDbcSqLiteUtils.pas nicht findet. Ich hab auch schon nachgeschaut, ich hab zwar eine ZDbcSqLiteUtils.dcu aber keine ZDbcSqLiteUtils.pas
Ich benutze übrigens Delphi 2010 mit zeos 7.0.0 alpha.

[mkinzler]

Die DCU wird dann von einer anderen Delphiversion stammen

[Shubit]

nein die hab ich selbst kompiliert ...

[pmoegenb]

Zitat von Shubit:

Jetzt meckert er beim Q.Open aber das er ZDbcSqLiteUtils.pas nicht findet. Ich hab auch schon nachgeschaut, ich hab zwar eine ZDbcSqLiteUtils.dcu aber keine ZDbcSqLiteUtils.pas
Ich benutze übrigens Delphi 2010 mit zeos 7.0.0 alpha.

Die Datei müsste sich im Unterverzeichnis src\dbc befinden.

[Shubit]

danke, behoben

Jetzt kommt der Fehler "SQL Error: SQL logic error missing database"

[Shubit]

was mach ich nun?

[Shubit]

Delphi-Quellcode:

  Q.SQL.Text := 'SELECT count(*) FROM sqlite_master WHERE name="main";';
  Q.Open;
  if Q.Fields[0].AsInteger > 0 then
  begin
    Q.Close;
    Q.SQL.Text := 'SELECT v_build FROM main;';
    Q.Open;
    if not Q.EOF then
      b := vBuild > Q.FieldByName('v_build').AsInteger
    else
      b := true;

    if b then
      UpdateSQL()
  end
  else
  begin
    Q.Close;
    Q.SQL.LoadFromFile('C:\Users\Marvin\Desktop\structure.sql');
    Q.Open;
  end;

Das zweite Q.Open (Zeile 7) verursacht ebenfalls den Fehler "SQL Error: SQL logic error missing database". Woran liegt das?