Question

怎样在delphi里直接写sql语句插入一条带日期数据到数据库？

adoquery1.SQL.Add('insert into vacation(编号,开始时间,结束时间,原因,用户编号)values(li_id,'''+ls_type+''',ldate_begin,ldate_end,'''+ls_reason+''','''+ls_user_id+''')'); 怎样在delphi里直接写sql语句插入一条带日期数据到数据库？比如： 其中的ldate_begin,ldate_end怎么赋值。

Answer 1

对于SqlServer 数据库，可以如下操作。
在窗体上放一个TDateTimePicker控件，用于日期选择，
然后直接用 Insert into语句就可以
var SaveSql:String;
SaveSql:='Insert into kc_rkdmx(单号,入库日期,制单人) values('
+''''+LEdit_dh.Text+''''+','
+''''+DateToStr(TDateTimePicker.Date)+''''+','//日期数据
+''''+UserName+''''+')'；
ADOQ_Save.Close;
ADOQ_Save.SQL.Clear;
ADOQ_Save.SQL.Add(SaveSql);
ADOQ_Save.ExecSQL;

Answer 2

不知你用的是何,数据库如果是oracle8i的话先用alter session set nls_date_format = 'yyyy-mon-dd hh24:ss';把这名语句嵌到程序中语句.接着用to_date数据库函数更改时间格式,例如:to_date('2002-04月03日 19:55:43'),这个要把它作为String加入到SQLString中. 查看原帖>>

求采纳