下面的代码执行以后应该得到
2003-5-6
这个结果呀,可是我得到的确实
1905-6-16
为什么呀?谁帮我解释一下呀!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
A1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
A1.Close;
A1.SQL.Clear;
A1.SQL.Add('insert into TA(riqi) values('+DateToStr(Date())+')');
showmessage(A1.SQL.Text);
A1.ExecSQL;
A1.SQL.Clear;
A1.SQL.Add('select * from TA');
A1.Open;
end;end.
2003-5-6
这个结果呀,可是我得到的确实
1905-6-16
为什么呀?谁帮我解释一下呀!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
A1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
A1.Close;
A1.SQL.Clear;
A1.SQL.Add('insert into TA(riqi) values('+DateToStr(Date())+')');
showmessage(A1.SQL.Text);
A1.ExecSQL;
A1.SQL.Clear;
A1.SQL.Add('select * from TA');
A1.Open;
end;end.
日期变量前面和后面加#