Question

delphi如何把DateTimePicker的日期插入到数据库里？

delphi如何把DateTimePicker的日期插入到数据库里？

想通过“增加”按钮，实现，一按下事件就把DateTimePicker选定的日期插入到数据库里。
比如这种
adoquery1.SQL.Add( 'insert into fm_machinerun(日期)values ( '''+ 'edit2.text '+ ''') ');这些方法。
另外我还加了这句
dm.fm_machinerunADODataSet.Insert;
插入的那句不能与上面一句有冲突。

谢谢

Answer 1

先定义一个变量，再代入
var sOpenDate: string;
sOpenDate:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.DateTime);
sql.Text := 'insert into fm_machinerun(日期) values('''+sOpenDate+''') ';

追问

可以再详细一点吗，怎样定义变量，再从begin到end中间怎么加代码
procedure Tfm_machinerun.BitBtn1Click(Sender: TObject);
begin

end;

追答

procedure Tfm_machinerun.BitBtn1Click(Sender: TObject);
var sOpenDate: string;
begin
sOpenDate:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.DateTime);
adoquery1.SQL.Text := 'insert into fm_machinerun(日期) values('''+sOpenDate+''') ';
......
end;

追问

大哥，没反应啊，可不可以用ADODataSet来替代ADOQuery啊，如果可以，又是如何添加代码呢？

追答

你执行了没？adoquery1.ExecSQL;还是报什么错？

Answer 2

把DateTimePicker中的日期属性转换成字符串，不就可以放到库的字段中了。

追问

没用的，就是不是date类型，我也做不到，不知道是哪里有问题。

追答

DateTimePicker.Date或
DateTimePicker.Time
就是日期类型
查一下它的邦助不就知道了。

Answer 3

插入的时候值错误。
应该是values(formatdatetime('yyyy-mm-dd','+edit2.text+'))

Answer 4

要先输入
with DataModule1.adoquery do
吧~~~~