請教各位大大，Variant type 不能接受Date的型態值嗎？？
以下的Code會無法Insert成功...錯誤訊息為[應用程式目前的操作所使用的值是個錯誤的類型]
[code delphi]
qyTemp.Parameters.ParamByName('OrderDate').Value:= Date; //Default Today
[/code]
OrderDate在資料庫的型態為SmallDateTime。
查看Help的Variant type conversions，也沒提到DateTime的型態。
小弟不才，請各位大大指教。

剛在網路上爬文，聽說TADOQuery會有這種問題，改用TADODataSet就可以了，但是我試了一下還是不行

環境
Win2000 MS SQL 2000
WinXP Delphi 6.0 UP2 MDAC 2.8SP1

qyTemp.Parameters.ParamValues['OrderDate'] := Date;
===================引 用 wwwbbs 文 章===================
請教各位大大，Variant type 不能接受Date的型態值嗎？？
以下的Code會無法Insert成功...錯誤訊息為[應用程式目前的操作所使用的值是個錯誤的類型]
[code delphi]
qyTemp.Parameters.ParamByName('OrderDate').Value:= Date; //Default Today
[/code]
OrderDate在資料庫的型態為SmallDateTime。
查看Help的Variant type conversions，也沒提到DateTime的型態。
小弟不才，請各位大大指教。

豬寶寶的寫法
給您參考看看
PRD_DATA 是ADOQUERY
豬寶寶反而不會用TADODataSet =.="
請問有人知道TADODataSet 適用的時機嗎?
個人在寫的程式 都是只有ADOCONNECT ADOQUERY就KO掉了
從來沒用過ADODATASET..想問也沒人可以問>"<

[code delphi]
PRD_DATA.SQL.Clear;
PRD_DATA.SQL.Text:='CREATE TABLE AABBCC ( '
'[SEQ] [bigint] IDENTITY(1,1) NOT NULL, '
'[DATE] [smalldatetime] NULL, '
'[LINE] [varchar](4) NOT NULL, '
'[BANO] [varchar](12) NOT NULL '
' CONSTRAINT [PK_AABBCC_DATA] PRIMARY KEY CLUSTERED( '
' [BANO] ASC,'
' [SEQ] ASC ) WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY])';

PRD_DATA.ExecSQL; //建立暫存的TABLE

PRD_DATA.Close;
PRD_DATA.SQL.CLEAR;
PRD_DATA.SQL.Text:='INSERT INTO ' CG_DATA ' (DATE,BANO,LINE) VALUES (:DATE,:BANO,:LINE)';

PRD_DATA.Close;
PRD_DATA.Parameters.ParamByName('DATE').Value:=Today;
PRD_DATA.Parameters.ParamByName('BANO').Value:='ABC'
PRD_DATA.Parameters.ParamByName('LINE').Value:='111';
PRD_DATA.ExecSQL;
[/code]

還有另一個偷懶的寫法
效能可能比較差

[code delphi]
PRD_DATA.SQL.Clear;
PRD_DATA.SQL.Text:='CREATE TABLE AABBCC ( '
'[SEQ] [bigint] IDENTITY(1,1) NOT NULL, '
'[DATE] [smalldatetime] NULL, '
'[LINE] [varchar](4) NOT NULL, '
'[BANO] [varchar](12) NOT NULL '
' CONSTRAINT [PK_AABBCC_DATA] PRIMARY KEY CLUSTERED( '
' [BANO] ASC,'
' [SEQ] ASC ) WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY])';
PRD_DATA.ExecSQL; //建立暫存的TABLE

PRD_DATA.Close;
PRD_DATA.SQL.Text:='SELECT * FROM AABBCC WHERE 1=2';
PRD_DATA.Open;

PRD_DATA.Append;
PRD_DATA.FieldByName('DATE' ).Value:=Today;
PRD_DATA.FieldByName('BANO' ).Value:='111'
PRD_DATA.FieldByName('LINE' ).Value:='111';
PRD_DATA.Post;

[/code]

編輯記錄

採用Stallion版主的方法解決了...好奇怪喔!!爲啥會這樣呀!!

感謝版主相助，也謝謝豬寶寶的幫忙。

===================引 用 Stallion 文 章===================
qyTemp.Parameters.ParamValues['OrderDate'] := Date;

弟也遇到這樣的問題，不過很怪得是，弟要將excel欄位資料轉入資料庫，b2 c2的欄位都是空字串，b2轉就不會有錯誤，轉到c2就會出現這樣的訊息，請問大大知道為啥會這樣嗎？很想知道原因在哪?


===================引 用 Stallion 文 章===================
qyTemp.Parameters.ParamValues['OrderDate'] := Date;
===================引 用 wwwbbs 文 章===================
請教各位大大，Variant type 不能接受Date的型態值嗎？？
以下的Code會無法Insert成功...錯誤訊息為[應用程式目前的操作所使用的值是個錯誤的類型]
[code delphi]
qyTemp.Parameters.ParamByName('OrderDate').Value:= Date; //Default Today
[/code]
OrderDate在資料庫的型態為SmallDateTime。
查看Help的Variant type conversions，也沒提到DateTime的型態。
小弟不才，請各位大大指教。

------
今天的事，留到後天再說....

編輯記錄