procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('YYYY-MM-DD',now);
end;procedure TForm1.Button1Click(Sender: TObject);
var ADay:TDateTime;
begin
ADay:=StrToDate(Edit1.Text);
Query1.SQL.Text:='insert into test.db (MyDate) values (ADay)';
Query1.ExecSQL;
Query1.Close;
end;
上面的代码是错误的,变量值传不过去。MyDate字段是日期类型。
简单的向数据库中插入日期类型数据,但是不知道在DELPHI中怎样把变量值传给SQL语言中,请大家帮帮我。很简单的一个问题。
begin
Edit1.Text:=FormatDateTime('YYYY-MM-DD',now);
end;procedure TForm1.Button1Click(Sender: TObject);
var ADay:TDateTime;
begin
ADay:=StrToDate(Edit1.Text);
Query1.SQL.Text:='insert into test.db (MyDate) values (ADay)';
Query1.ExecSQL;
Query1.Close;
end;
上面的代码是错误的,变量值传不过去。MyDate字段是日期类型。
简单的向数据库中插入日期类型数据,但是不知道在DELPHI中怎样把变量值传给SQL语言中,请大家帮帮我。很简单的一个问题。
解决方案 »
- 只有dcu文件,没有其他的.dfm,.pas文件,编译的时候提示File not found **.dfm
- 准备用delphi开发snmp程序,请问delphi中有类似winsnmp的api库吗?
- 请教EXE转dll的问题
- 真要命,又来散分了.不过也顺手带了个小问题来了.
- ListBox的多行删除问题,小问题,近来拿分,马上结
- 过节了,CSDN也不送点银子花花?
- 能将delphi 自带的打印控件封装成 ocx吗?
- winzip把一个文件拖到资源管理器里后,就开始解压缩了,怎么实现这种往资源管理器拖文件的功能?
- delphi调用存储过程高手指点.急急.
- delphi中如何对图象淡入淡出?
- dbgrideh怎样用复选框实现批量删除?
- 引用调用问题 DBGrid DrawColumnCell
Query1.SQL.Text:='insert into test.db (MyDate) select ' + ADay;
var ADay:TDateTime;
begin
ADay:=StrToDate(Edit1.Text);
Query1.SQL.Text:='insert into test.db (MyDate) values (:mydate)';
Query1.ParamByName('mydate').value := ADay;
Query1.ExecSQL;
Query1.Close;
end;