Question

delphi用SQL语句插入数据，在给参数赋值时出错，没有异常就跳出。

function insertPerson(personData: TReceived):Boolean;
begin
try
with ClientMain.quPerson do
begin
if Active then Close;
with SQL do
begin
Clear;
Add('insert into quPerson(');
Add('MsgType,DataLength,CardReaderTotal,ReceivedTime,');
Add('CardReaderID,CardReaderTemperature,CardReaderState,CardTotal,');
Add('CardID,LocatorID,CardState,WorkAbnormal,AntennaID,LastSignalTime,IntoCRTime,IntoWellTime');
Add(')value(');
Add(':MsgType,:DataLength,:CardReaderTotal,:ReceivedTime,');
Add(':CardReaderID,:CardReaderTemperature,:CardReaderState,:CardTotal,');
Add(':CardID,:LocatorID,:CardState,:WorkAbnormal,:AntennaID,:LastSignalTime,:IntoCRTime,:IntoWellTime');
Add(')');
end;
with Parameters do
begin
Parameters.ParamByName('MsgType').Value := personData.MsgType;
ParamByName('DataLength').Value := personData.DataLength;
ParamByName('CardReaderTotal').Value := personData.CardReaderTotal;
ParamByName('ReceivedTime').Value := personData.ReceivedTime;
ParamByName('CardReaderID').Value := personData.CardReaderID;
ParamByName('CardReaderTemperature').Value := personData.CardReaderTemperature;
ParamByName('CardReaderState').Value := personData.CardReaderState;
ParamByName('CardTotal').Value := personData.CardTotal;
ParamByName('CardID').Value := personData.CardID;
ParamByName('LocatorID').Value := personData.LocatorID;
ParamByName('CardState').Value := personData.CardState;
ParamByName('WorkAbnormal').Value := personData.WorkAbnormal;
ParamByName('AntennaID').Value := personData.AntennaID;
ParamByName('LastSignalTime').Value := personData.LastSignalTime;
ParamByName('IntoCRTime').Value := personData.IntoCRTime;
ParamByName('IntoWellTime').Value := personData.IntoWellTime;
end;
ExecSQL;
end;
except
Result :=false;
end;
Result :=true;
end;

Answer 1

Add(')value('); 这句有错

Values前后应有空格,而且英文错误少了个s

Add(') Values (')

追问

还是插不进去数据呢，在给第一个参数赋值时就跳出来了

追答

except
Result :=false;

你这里这样写看看错误是什么呗,因为你屏掉了异常所以不会显示异常
except
on E:Exception do
ShowMessage(E.message);