G
guth
Unregistered / Unconfirmed
GUEST, unregistred user!
var
sj:string;
sj:=datetimetostr(date); //一个"时间"字段
AdoConnection1.Open;
AdoConnection1.BeginTrans;
AdoConnection1.Execute('insert into A表 select null,账号,户名,余额,'+sj+',备注 from B表 where substring(结果,1,1)='+'''0''');
if XXX then
AdoConnection1.CommitTrans;
else
......
为什么A表中的“时间”字段均是“1905-6-10”,而不是当天的日期,高手们请解答一下。
sj:string;
sj:=datetimetostr(date); //一个"时间"字段
AdoConnection1.Open;
AdoConnection1.BeginTrans;
AdoConnection1.Execute('insert into A表 select null,账号,户名,余额,'+sj+',备注 from B表 where substring(结果,1,1)='+'''0''');
if XXX then
AdoConnection1.CommitTrans;
else
......
为什么A表中的“时间”字段均是“1905-6-10”,而不是当天的日期,高手们请解答一下。