跟踪出来的Sql语句是:
UPDATE T_AJ_YS
SET AJMC = '''"~!@#$%^&*()_+23453fssfsdf第三方第二次功能测试汇总''"~!@#$%^&*()_+',
ZYAQ = 'Sdjfw"eiFUKC',
XCKCHDCFWQK = 'Sdjfwei:'
WHERE AJ_ID = '0209020000908231'
程序的写法是
1:报list index out of bound(-1)的错
DataSet.Connection.ExecuteSQL(
'UPDATE T_AJ_YS ' +
' SET AJMC = ' + SysUtils.QuotedStr(DataSet.FieldByName('AJMC').AsString) + ', ' +
' ZYAQ = ' + SysUtils.QuotedStr(DataSet.FieldByName('ZYAQ').AsString) + ', ' +
' XCKCHDCFWQK = ' + SysUtils.QuotedStr(DataSet.FieldByName('XCKCHDCFWQK').AsString) +
' WHERE AJ_ID = ' + SysUtils.QuotedStr(DataSet.FieldByName('AJID').AsString));
2、报无效的列索引
with TQuery.Create(nil) do
try
Connection := DataSet.Connection;
CommandText :=
'UPDATE T_AJ_YS ' +
' SET AJMC = ' + SysUtils.QuotedStr(DataSet.FieldByName('AJMC').AsString) + ', ' +
' ZYAQ = ' + SysUtils.QuotedStr(DataSet.FieldByName('ZYAQ').AsString) + ', ' +
' XCKCHDCFWQK = ' + SysUtils.QuotedStr(DataSet.FieldByName('XCKCHDCFWQK').AsString) +
' WHERE AJ_ID = ' + SysUtils.QuotedStr(DataSet.FieldByName('AJID').AsString);
Execute;
finally
Free;
end; |