Obsah sekce:

Jak zobrazit UTC z archivních souborů jako formátovaný datum a čas?

Export dat z databáze do textového souboru (csv)

SQL skript pro nastavení neukončených alarmů v tabulce alarmů do stavu ukončených alarmů

Jak zobrazit UTC z archivních souborů jako formátovaný datum a čas?

SQL příkaz pro převod Juliánského data z položky UTC v archivních tabulkách do podoby formátovaného data a času.

V databázových tabulkách vytvářených sekcemi archive a alarm je čas záznamu zapisován jako Juliánské datum doplněné o zlomek časového kroku (údaj za dvojtečkou). Pro zobrazování je ale určitě přehlednější používat formátovaný datum a čas podle národních zvyklostí. Následující SQL příkaz demonstruje, jak převést Juliánské datum do formátované podoby. Syntax T-SQL (MS SQL Server)

SELECT UTC, CAST((CAST(LEFT(UTC, 16) AS FLOAT) - 2415020.5) AS DATETIME) AS MyDate FROM Table

Syntax pro MDB databázi (MS Access)

SELECT UTC, CDate(CDbl(Left(UTC,7) & ',' & Mid(UTC,9,8)) - 2415018.5) AS MyDate FROM Table

Výsledkem tohoto dotazu bude tedy tabulka, která bude v prvním sloupci zobrazovat původní podobu Juliánského data a ve druhém sloupci formátovaný datum a čas.

Pokud tedy bude chtít získat pásmový čas záznamu, budou dotazy vypadat takto: Syntax T-SQL (MS SQL Server)

SELECT UTC, CAST((CAST(LEFT(UTC, 16) AS FLOAT) - (UTC_BIAS + DST_BIAS)/1440.0 - 2415020.5) AS DATETIME) AS MyDate FROM Table

Syntax pro MDB databázi (MS Access)

SELECT UTC, CDate(CDbl(Left(UTC,7) & ',' & Mid(UTC,9,8)) - (UTC_BIAS + DST_BIAS)/1440.0 - 2415018.5) AS MyDate FROM Table

Export dat z databáze do textového souboru (csv)

Příklad ukazuje export dat z databáze získaných SQL dotazem do textového souboru. Soubor s příponou CSV lze načíst přímo do tabulkového kalkulátoru Excel.

Předpokládejme existenci přístroje sql s názvem sql a přístroje file s názvem f.

procedure Export( Query, Path, Separator : string; FHeader : boolean );
const
  r = 'rs';
var
  c        : cardinal;
  s        : string;
  line     : string;
  header   : string;
  ok, null : boolean;
begin
  if sql.OpenRecordset( r, Query ) then
    ok = f.Create( Path );
    if FHeader then
      sql.ShowRecordset( r );
    end;
    ok = sql.MoveToFirstRecord( r );
    while ok do
      (* Read current record's data *)
      c = 1;
      line = '';
      while sql.GetData( r, c, s, null ) do
        line = line + iif( c > 1, Separator, '' ) + s;
        if FHeader then
          ok = sql.GetColumnProperty( c, 'name', s ); 
          header = header + iif( c > 1, Separator, '' ) + s;
        end; (* if *)
        c = c + 1;
      end; (* while *)

      (* Write columns header to target file *)
      if FHeader then
        f.WrStr( header ); f.WrLn();
        FHeader = false;
      end; (* if *)

      (* Write current record to target file *)
      f.WrStr( line ); f.WrLn();
      
      ok = sql.MoveToNextRecord( r );
    end; (* while *)

    f.Close();
    sql.CloseRecordset( r );
  end; (* if *)
end_procedure;

Download: ExportDatabaseDataToCSVFile.zip

SQL skript pro nastavení neukončených alarmů v tabulce alarmů do stavu ukončených alarmů

Pokud potřebujete nastavit v tabulce alarmů neukončené alarmy do stavu ukončených alarmů, můžete použít následující skript.

Před spuštěním skriptu nastavte jméno tabulky alarmů, zapisované hodnoty datových elementů a jméno operátora do parametrů @Alarms, @F_VALUE_N, @F_VALUE_B, @F_VALUE_S a SET @F_OPERATOR.

/*===============================================
 Zjištění období, kdy platí letní čas
 ==============================================*/
DECLARE @DSTStart DATETIME
DECLARE @DSTEnd DATETIME

-- Začátek DST
DECLARE @DSTStartWeek SMALLDATETIME
SET @DSTStartWeek = '03/01/' + Convert(VARCHAR,Year(Getutcdate()))
SELECT @DSTStart =
  CASE Datepart(dw,@DSTStartWeek)
    WHEN 1 THEN Dateadd(HOUR, 170, @DSTStartWeek)
    WHEN 2 THEN Dateadd(HOUR, 314, @DSTStartWeek)
    WHEN 3 THEN Dateadd(HOUR, 290, @DSTStartWeek)
    WHEN 4 THEN Dateadd(HOUR, 266, @DSTStartWeek)
    WHEN 5 THEN Dateadd(HOUR, 242, @DSTStartWeek)
    WHEN 6 THEN Dateadd(HOUR, 218, @DSTStartWeek)
    WHEN 7 THEN Dateadd(HOUR, 194, @DSTStartWeek)
  END

-- Konec DST
DECLARE @DSTEndWeek SMALLDATETIME
SET @DSTEndWeek = '11/01/' + Convert(VARCHAR,Year(Getutcdate()))
SELECT @DSTEnd =
  CASE Datepart(dw, Dateadd(WEEK, 1, @DSTEndWeek))
    WHEN 1 THEN Dateadd(HOUR,   2, @DSTEndWeek)
    WHEN 2 THEN Dateadd(HOUR, 146, @DSTEndWeek)
    WHEN 3 THEN Dateadd(HOUR, 122, @DSTEndWeek)
    WHEN 4 THEN Dateadd(HOUR,  98, @DSTEndWeek)
    WHEN 5 THEN Dateadd(HOUR,  74, @DSTEndWeek)
    WHEN 6 THEN Dateadd(HOUR,  50, @DSTEndWeek)
    WHEN 7 THEN Dateadd(HOUR,  26, @DSTEndWeek)
  END


/*===============================================
  Ukončení alarmů
===============================================*/

DECLARE @Alarms AS VARCHAR(128)
DECLARE @F_VALUE_N AS FLOAT
DECLARE @F_VALUE_B AS BIT
DECLARE @F_VALUE_S AS VARCHAR(255)
DECLARE @F_OPERATOR AS VARCHAR(255)
DECLARE @sql AS NVARCHAR(MAX)
DECLARE @Params NVARCHAR(MAX);

/*********************************************** 
  Nastavení parametrů:
  - jméno tabulky alarmů 
  - zapisované hodnoty
  - jméno operátora
***********************************************/

SET @Alarms = 'alAlarms'  -- Tabulka alarmů
SET @F_VALUE_N = 0        -- Numerické hodnoty
SET @F_VALUE_B = 0        -- Logické hodnoty  
SET @F_VALUE_S = ''       -- Textové hodnoty
SET @F_OPERATOR = NULL    -- Jméno operátora

SET @Params = '@DSTStart DATETIME, @DSTEnd DATETIME, @F_VALUE_N FLOAT, @F_VALUE_B BIT, @F_VALUE_S VARCHAR(255), @F_OPERATOR VARCHAR(255)'
SET @sql =
  N'UPDATE a SET 
    a.FINISHED = 2,
    a.F_UTC = Str(CAST(Getutcdate() AS float) + 2415020.5, 16, 8) + '':'' + RIGHT( ''0000000'' + LTRIM((STR(r.RN,8,0))), 8),
    a.F_UTC_BIAS = a.S_UTC_BIAS,
    a.F_DST_BIAS = CASE WHEN Getutcdate() BETWEEN @DSTStart AND @DSTEnd THEN -60 ELSE 0 END,
    a.F_VALUE_N = CASE WHEN a.VALUE_TYPE = 1 THEN @F_VALUE_N ELSE a.F_VALUE_N END,
    a.F_VALUE_B = CASE WHEN a.VALUE_TYPE = 2 THEN @F_VALUE_B ELSE a.F_VALUE_B END,
    a.F_VALUE_S = CASE WHEN a.VALUE_TYPE = 3 THEN @F_VALUE_S ELSE a.F_VALUE_S END,
    a.F_OPERATOR = @F_OPERATOR 
  FROM ' + @Alarms + ' a INNER JOIN (SELECT ROW_NUMBER() OVER (ORDER BY S_UTC ASC) AS RN, S_UTC FROM ' + @Alarms + ' WHERE FINISHED = 0) r ON a.S_UTC = r.S_UTC 
  WHERE FINISHED = 0'

EXEC sp_executesql @sql, @Params, @DSTStart = @DSTStart, @DSTEnd = @DSTEnd, @F_VALUE_N = @F_VALUE_N, @F_VALUE_B = @F_VALUE_B, @F_VALUE_S = @F_VALUE_S, @F_OPERATOR = @F_OPERATOR