参数中有这行:
pIsTW IN EMS_PACKAGE.TInt1 :=0我在Delphi的StoreProc中建立与使用的参数如下:CreateParam(ftBCD,'PISTW', ptInput);
if pISTW then ParamByName('PISTW').AsBCD :=1
else ParamByName('PISTW').asBCD :=0;
EDatabase error: BCD overflow用FtInteger也不行。
pIsTW IN EMS_PACKAGE.TInt1 :=0我在Delphi的StoreProc中建立与使用的参数如下:CreateParam(ftBCD,'PISTW', ptInput);
if pISTW then ParamByName('PISTW').AsBCD :=1
else ParamByName('PISTW').asBCD :=0;
EDatabase error: BCD overflow用FtInteger也不行。
if pISTW then
spPSIS.Parameters.CreateParameter(''PISTW'', ftBCD, pdInput, 1, 1)
else
spPSIS.Parameters.CreateParameter(''PISTW'', ftBCD, pdInput, 1, 0);