Delphi EOleexception 第一行:‘0’附近有语法错误
发布网友
发布时间：2024-02-02 20:40
共3个回答
热心网友
时间：2024-02-23 03:56
应该是 sql.add('insert into varview (RunSign,ChargingSign,DisChargingSign,OverASign,OverVSign,UnderVSign) values('''+inttostr(f1)+''','''+inttostr(f2)+''','''+inttostr(f3)+''','''+inttostr(f4)+''','''+inttostr(f5)+''','''+inttostr(f6)+''')');
少了一个右括号
本身sql.add() 这里一对括号
Insert into varview () values () 这里也有两队括号.
你问这种问题本身没什么意义，写错谁都有可能。
你的问题是，你不知道怎么去调试。
你可以这样写
var sql :string;
sql='insert into varview (RunSign,ChargingSign,DisChargingSign,OverASign,OverVSign,UnderVSign) values('''+inttostr(f1)+''','''+inttostr(f2)+''','''+inttostr(f3)+''','''+inttostr(f4)+''','''+inttostr(f5)+''','''+inttostr(f6)+'''';
然后
with adoquery1 do
begin
close;
sql.clear;
sql.add(sql);
execsql;
end;
断点放在execsql这一行，监控sql语句，拷贝下来在数据库工具上执行就知道哪里错了
小技巧：在调试时，可以按住Ctrl，鼠标左键点击sql，然后你就可以拷贝sql语句了
热心网友
时间：2024-02-23 03:56
可以通过加Try..except..end获取到错误信息，再做处理：
try
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from varview');
open;
end;
if adoquery1.isempty then
with adoquery1 do
begin
close;
sql.clear;
sql.add('insert into varview (RunSign,ChargingSign,DisChargingSign,OverASign,OverVSign,UnderVSign) values('''+inttostr(f1)+''','''+inttostr(f2)+''','''+inttostr(f3)+''','''+inttostr(f4)+''','''+inttostr(f5)+''','''+inttostr(f6)+'''');
execsql;
end
else
with adoquery1 do
begin
close;
sql.clear;
sql.add('update varview set RunSign='''+inttostr(f1)+''',ChargingSign='''+inttostr(f2)+''',DisChargingSign='''+inttostr(f3)+''',OverASign='''+inttostr(f4)+''',OverVSign='''+inttostr(f5)+''',UnderVSign='''+inttostr(f6)+'''');
execsql;
end;
Except
on E:Except do
showmessage(e.message);
end;
热心网友
时间：2024-02-23 03:57
