Devart Forums

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Uni, SQLiteUniProvider;

var
  UniConnection: TUniConnection;
  UniQuery: TUniQuery;
begin
  UniConnection := TUniConnection.Create(nil);
  try
    UniConnection.ConnectString := 'Provider Name=SQLite;Data Source=:memory:';
    UniConnection.Connect;
    WriteLn('SQLite version: ' +  UniConnection.ClientVersion); //3.8.5
    WriteLn('UniDAC Version: ' + UniDACVersion); //5.5.12
    UniConnection.ExecSQL('create table visits(id integer, from_visit integer)');
    UniConnection.ExecSQL('create table path(id integer, from_visit integer)');
    UniConnection.ExecSQL('insert into visits values(27585, 1)');
    UniConnection.ExecSQL('insert into path values(1, 1)');
    UniQuery := TUniQuery.Create(nil);
    try
      UniQuery.Connection := UniConnection;
      UniQuery.SQL.Text := 'with recursive path as (select id, from_visit from visits where visits.id=27585 union all select visits.id, visits.from_visit from path join visits on (path.from_visit = visits.id) ) select * from path';
      UniQuery.Open;
      WriteLn('Record Count: ' + IntToStr(UniQuery.RecordCount)); //1
    finally
      UniQuery.Free;
    end;
  finally
    UniConnection.Free;
    readln;
  end;
end.