TA的每日心情 | 郁闷 2023-1-3 14:11 |
---|
签到天数: 1 天 [LV.1]初来乍到
|
我的代码是这样写的:
MS:=TMemoryStream.Create;
SL:=TStringList.Create;
Sname:='@'+datetimetostr(Now); //进碱水槽
SQLTxT:= 'INSERT INTO TRAYDATA_UNFINISH (BATCH, INTIME,SSTIME) '
+'values (:BATCH,:INTIME,:SSTIME) '; //插入当前数据
IB_Currency.SQL.Add(SQLTxT);
IB_Currency.ParamByName('BATCH').Value:=inttostr(i);
SL.Add(datetimetostr(Now));
MS.Clear;
MS.Position:=0;
SL.SaveToStream(MS);
IB_Currency.ParamByName('SSTIME').LoadFromStream(MS,ftBlob);
IB_Currency.ParamByName('INTIME').Value:=Now;
IB_Currency.ExecSQL;
IB_Currency.Transaction.Commit;
这个方法在Delphi中是可行的,但是在Lazarus里就报下面的错误:
Engine Code: 335544569 Incompatible column/host variable data type
Dynamic SQL Error
-SQL error code = -303
-feature is not supported
-BLOB and array data types are not supported for move operation
不知道有没有大佬能帮忙解答
|
|