DateTime og SQLServer

with ADOQuery.Create(nil) do
  try
    SQL.Add('select *');
    SQL.Add('from dbo.TableAntalSpor');
    SQL.Add('where (datofra <= :datofra)');
    SQL.Add('  and (datotol >= :datotil)');
    Parameters.ParamByName('datofra').Value := incDay(Today);
    Parameters.ParamByName('datotil').Value := incDay(Today - 1);
    SQL.Open;
    while not Eof do
    begin
      Next;
    end;
  finally
    Free;
  end;

with Query.Parameteres.ParamByName('datotil') do
begin
  DataType := ftDateTime;
  Value := incDay(Today,-1);
end;

unit UADOQueryHelper;

interface

uses
  DB, ADODB;

type
  TAODQueryHelper = class helper for TADOQuery
  public
    procedure SetParam(const aParam: string;
                      const aDataType: TDataType;
                      const aValue: variant;
                      const aSetNull: boolean = false);
  end;

implementation

uses
  Variants;

{ TAODQueryHelper }

procedure TAODQueryHelper.SetParam(const aParam: string;
                                  const aDataType: TDataType;
                                  const aValue: variant;
                                  const aSetNull: boolean);
begin
  with Parameters.ParamByName(aParam) do
  begin
    DataType := aDataType;
    if aSetNull then
      Value := NULL
    else
      Value := aValue;
  end;
end;

{
Scenarium: Indsæt record i test, testtype_ref er fremmednøgle som kan være null
// her sættes den til fordi variablen testtype_ref er 0

procedure TfrmMain.Button1Click(Sender: TObject);
var
  testtype_ref: integer;
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  try
    testtype_ref := 0; // Nulles

    Query.Connection := MyADOConnection;

    Query.SQL.Add('insert into dbo.test');
    Query.SQL.Add('(navn, testtype_ref)');
    Query.SetParam('values (:navn, :testtype_ref)');
    Query.SetParam('navn',ftString,'Hello world');

    // Sæt param = null hvis argument er true
    Query.SetParam('testtype_ref',ftInteger,testtype_ref,testtype_ref = 0);

    Query.ExecSQL;
  finally
    Query.Free;
  end;
end;
}

end.

SQL.Add('select *');
SQL.Add('from dbo.TabelAntalSPor'); // Angiver ejerskab (dbo)
SQL.Add('where ('DatoFRA >= :FraDato));
SQL.Add('  and (DatoTil <= :FraDato)');