SQLQuery.SQL.Text := 'insert into DC (ZH,Date) values ('+#39+zh+#39+','+DateTimeTostr(now)+')';向date 插入日期时间 出错SQLQuery.SQL.Text := 'insert into DC (ZH,Date) values ('+#39+zh+#39+','+#39+DateTimeTostr(now)+#39+')'; 也一样出错
DC (ZH,Date)表的date是什么类型的,应该是日期型的吧 你这样写:'insert into DC (ZH,Date) values (:zh,:date)'; parameters.parambyname('zh').value := zh; parameters.parambyname('date').value := strtodate(formatdatetime('yyyy-mm-dd',now()));
你这样写:'insert into DC (ZH,Date) values (:zh,:date)';
parameters.parambyname('zh').value := zh;
parameters.parambyname('date').value := strtodate(formatdatetime('yyyy-mm-dd',now()));
编译器不认 未定义
可以用adoquery.parameters.parambyname('zh').value := 所要赋的值.
如果是BDE联接:query1.parambyname('zh').value :=所要赋的值
正好我最近在写相关的程序,问题出的数据类型格式上,要转换一下才行.
begin
SQL.Clear;
sqlstr:='insert into xy_ksmd (sqcx,mdbh,xybh,kslx,zkbz,djczy,djrq) values '+
'('''+sqcx+''','''+mdbh+''','''+xybh+''','''+kslx+''',''0'','''+djczy+
''',:svrtime)';
sql.add(sqlstr);
ParamByName('svrtime').AsDateTime :=svrtime;
ExecSQL;
end;
PS:
svrtime:TDateTime;
TMPQ: TQuery;