ADO dateTime problem

rs.Parameters.ParamByName('dt').AsDateTime := now;

eller : rs.Parameters.ParamByName('dt').AsTimeStamp := DateTimeToTimeStamp(now);

Men asDateTime eksisterer ikke i Parameter i TadoQuery...?

TParameter = class(TCollectionItem)
  private
    FParameter: _Parameter;
    function GetAttributes: TParameterAttributes;
    function GetDataType: TDataType;
    function GetName: WideString;
    function GetNumericScale: Byte;
    function GetParameter: _Parameter;
    function GetParameterDirection: TParameterDirection;
    function GetPrecision: Byte;
    function GetProperties: Properties;
    function GetSize: Integer;
    function GetValue: Variant;
    procedure SetAttributes(const Value: TParameterAttributes);
    procedure SetDataType(const Value: TDataType);
    procedure SetName(const Value: WideString);
    procedure SetNumericScale(const Value: Byte);
    procedure SetParameterDirection(const Value: TParameterDirection);
    procedure SetPrecision(const Value: Byte);
    procedure SetSize(const Value: Integer);
    procedure SetValue(const Value: Variant);
    function GetParameters: TParameters;
  protected
    procedure AssignTo(Dest: TPersistent); override;
    function GetDisplayName: string; override;
    function IsEqual(Value: TParameter): Boolean;
  public
    procedure Assign(Source: TPersistent); override;
    procedure AppendChunk(Val: OleVariant);
    procedure LoadFromFile(const FileName: string; DataType: TDataType);
    procedure LoadFromStream(Stream: TStream; DataType: TDataType);
    property ParameterObject: _Parameter read GetParameter;
    property Parameters: TParameters read GetParameters;
    property Properties: Properties read GetProperties;
  published
    property Name: WideString read GetName write SetName;
    property Attributes: TParameterAttributes read GetAttributes write SetAttributes default [];
    property DataType: TDataType read GetDataType write SetDataType default ftUnknown;
    property Direction: TParameterDirection read GetParameterDirection write SetParameterDirection default pdInput;
    property NumericScale: Byte read GetNumericScale write SetNumericScale default 0;
    property Precision: Byte read GetPrecision write SetPrecision default 0;
    property Size: Integer read GetSize write SetSize default 0;
    property Value: Variant read GetValue write SetValue;
  end;

Så prøv at sæt Datatype til noget dato noget

Ellers er det "den lange vej" og få lavet din dato og tid i det format som MSSQL kan forstå ! ( den er ikke særlig flexibel hvad datokonvertering angår ) prøv evt. at drope tiden og kun en dato.

DateTimeToString(Strx,'MM-DD-YYYY',Now);

f.eks.

Prøvede lige vha. komponenter på formen; altså connection og en query, der virker det fint med rs.parameters[0].value:=now;
Det er fordi at jeg bare opretter en query sikkert, men kigger videre på det.
øh..?

PS: det med strenge har jeg faktisk styr på (se spørgsmål) det har kørt fint i 2 år, men jeg synes det er fusk. Bruger {td 'yyyy-MM-dd hh:mm.ss.zzz' } og {d 'yyyy-mm-dd'}
på MSSQL og bare strenge uden td/d på alt andet end Access som ved datoer i select xxx where xxx bruger #dd/mm/yyyy (efter windows shortdate format)

Jeg løste mit problem:
Når jeg lavede min connection gav jeg den ikke noget navn.

Altså:
    connection.name:='xx';
Får koden i button1 til at virke!

Men tak martinlind, pointene synes jeg tilfalder mig selv, men brok dig hvis du vil have nogle alligevel ;-o)

Nej, der var jeg lidt for hurtig, det er nu ikke grunden.

Hmm, mærkeligt, det name du har sat er det Componet navnet eller hva' for det plejer man da ikke at skulle sætte :(

Fint nok med point's

Ja det var komponent navnet...men en fodfejl fik mig til at tro det hjalp.

Jeg har faktisk fundet ud af at det er provideren der er afgørende.
Når jeg bruger SQLOLEDB.1 virker det, men sådan som jeg opretter forbindelse (ODBC) så sættes den til MSDASQL.1

Derfor virkede det med en komponent på formen.

Nu fandt jeg løsningen:
http://coding.derkeiler.com/Archive/Delphi/borland.public.delphi.database.ado/2006-07/msg00003.html

Altså:

    rs.Parameters.ParamByName('dt').Value:=Date;
    rs.Parameters.ParamByName('dt').ParameterObject.Type_ := adDBTimeStamp;

Tak for hjælpen martinlind

--nop