SQLite select geht nicht

[Delphi.Narium]

Sagen wir mal so:

Wenn ich zur Entwicklungszeit nicht weiß, wie das SQL zur Laufzeit aussehen wird, dann muss ich es natürlich zur Laufzeit erstellen und kann es nicht als Konstante, Resource ... ablegen

Bei meinem Delphi ruft der Setter für SQL.Text übrigens implizit ein Clear auf

[haentschman]

Zitat:

SQL immer als Ressource, tztz.

Wie meinst du das?

Zitat:

Wenn ich zur Entwicklungszeit nicht weiß, wie das SQL zur Laufzeit aussehen wird, dann muss ich es natürlich zur Laufzeit erstellen und kann es nicht als Konstante, Resource ... ablegen

Auch Kostanten oder Ressourcen kann man dynamisch im QT zusammenbauen.

[hoika]

Hallo,
wäre mir viel zu aufwendig.
schon alleine das Debuggen stelle ich mir nicht so einfach vor.

DB-Service-Methode
z.B.
Select Id,Name,Vorname From Person
Where Id=:Id

Wie baust du das mit Ressourcen?

var
Res_Select, Res_Person_Id: String;
sSQL: String;
begin
Res_Select := LoadFromResource();
sSQL:= Res_Select+','+Res_Person_Id+','+Res_Person_Name usw?

[haentschman]

Zitat:

Wie baust du das mit Ressourcen?

...einfach.

1: gemeinsam für alle SQL. Auf dem Datenmodul z.B.

Delphi-Quellcode:

function TDatabaseIB.GetSQLByName(SQLName: string): string;
var
  SQLStream: TResourceStream;
  SQLStrings: TStringList;
begin
  Result := '';
  SQLStrings := TStringList.Create;
  try
    SQLStream := TResourceStream.Create(HInstance, SQLName, PWideChar(conDatabaseResourceGroupString[FDatabaseProperties.DBMS]));
    try
      try
        SQLStrings.LoadFromStream(SQLStream);
        Result := SQLStrings.Text;
      except
        Result := '';
      end;
    finally
      SQLStream.Free;
    end;
  finally
    SQLStrings.Free;
  end;
end;

2. Im QT (Beispiel)

Delphi-Quellcode:

function TDatabaseIB.GetLastRead(ParameterID: Integer): TDateTime;
var
  Qry: TUniQuery;
begin
  Qry := CreateQuery;
  try
    Result := 0;
    Qry.SQL.Text := GetSQLByName('SER_GET_LAST_READ'); // ! mehrzeiliges SQL weil viele Felder oder so
    Qry.ParamByName('PI').AsInteger := ParameterID;
    Qry.Open;
    Result := Qry.Fields[0].AsDateTime;
  finally
    Qry.Free;
  end;
end;

oder zusammenbauen wie gehabt

Delphi-Quellcode:

Qry.SQL.Text := GetSQLByName('SER_GET_LIST_LOGMESSAGE');
    if (MessageState <> msAll) or (TimeRange <> trAll) then
    begin
      Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_WHERE'));
      if MessageState <> msAll then
      begin
        Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_STATE'));
        Qry.ParamByName('MS').AsInteger := Ord(MessageState);
        HasMessageState := True;
      end;
      case TimeRange of
        tr24h:
          begin
            if HasMessageState then
            begin
              Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_AND'));
            end;
            Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_TIME'));
            Qry.ParamByName('TI').AsDateTime := Now - 1;
          end;
        tr7d:
          begin
            if HasMessageState then
            begin
              Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_AND'));
            end;
            Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_TIME'));
            Qry.ParamByName('TI').AsDateTime := Now - 7;
          end;
      end;
    end;
    Qry.SQL.Add(GetSQLByName('SER_GET_LIST_LOGMESSAGE_ORDER'));
    Qry.Open;

oder ausfüllen mit Format

Delphi-Quellcode:

Device := aList[0]; // ersten nehmen wegen ID
      InList := Copy(InList, 1, Length(InList) - 1); // letztes Komma entfernen
      Qry.SQL.Text := Format(GetSQLByName('SER_EDIT_DEVICES_ACTIVE'), [InList]);
      Qry.ParamByName('MDI').AsInteger := Device.MasterDeviceID;
      Qry.ExecSQL;

InList könnte auch die Feldnamensliste sein...

Zitat:

Select Id,Name,Vorname From Person
Where Id=:Id

Die SQL Datei wird z.B. mit Notepad erstellt und wird auf der Platte in deinem beliebigen Ordner gespeichert. Diese Datei wird in der *.rc Datei aufgelistet damit der Compiler weiß wo die Qellen sind.
Die SQL liegen als SQL Dateien auf der Festplatte und sind aber, bedingt, mit einem zum DBMS passenden SQL Editor testbar. Die IDE compiliert das automatisch zur Ressource.
https://www.delphipraxis.net/49505-s...einbinden.html

Hilfsmittel zum Erstellen der Dateien: https://www.delphipraxis.net/190316-...e-creator.html

Zitat:

schon alleine das Debuggen stelle ich mir nicht so einfach vor.

Nur das SQL liegt "extern" und nicht verstreut in Querys auf den Datemmodulen. Debuggen ist wie gehabt.

Zitat:

dass es eine Klasse oder sonstwie

Ich persönlich benutze ein Interface für verschiedene DBMS.

[Jasocul]

Zitat von Delphi.Narium:

Wenn ich zur Entwicklungszeit nicht weiß, wie das SQL zur Laufzeit aussehen wird, dann muss ich es natürlich zur Laufzeit erstellen und kann es nicht als Konstante, Resource ... ablegen

Richtig. Aber dann bastel ich mir doch lieber eine Klasse, die das für mich erledigt.
Für mehr oder weniger feste Statements sind Ressourcen schon ein guter Weg, den ich auch verwende.

[Delphi.Narium]

Sagen wir mal so: Konstante und Resource impliziert für mich, dass wird zur Entwicklungszeit festgelegt und ändert sich dann nicht mehr.

Zur Laufzeit erstellen impliziert für mich, dass es eine Klasse oder sonstwie sinnvoll und geeignete Methode gibt, die den Aufbau der Statements übernimmt.