你把字符串连错了 如下: var sSql : String ; begin sSql := Format('Insert Into ***(时间) Values(%s)',[DateTimeToStr(now)]) ; With AdoQry do begin if Active then Close ; Sql.clear ; Sql.Add(sSql) ; Prepared ; ExecSql ; end ;
----------------------------------------------