try 数据库操作 except On E: Exception do 显示 E.Message; end;
可以具体点么? strsql := ' UPDATE HS_OP_TRAINNUM_INFO SET IS_VERIFY = ''1'' where ' + 'TRAINNUM_INFO_ID = ' + #39 + str_trainnumid + #39; if not execadoquery(strsql,QryOpenDb) then begin ShowMessage('sss'); exit; end;我想在SHOWMESSAGE中弹出数据库的错误信息,怎么操作呢!
try execadoquery(strsql,QryOpenDb); except On E: Exception do showmessage(e.message); end;一遍来讲,这个try语句是放在你的execadoquery里面的,在里面直接show就行了,而不是在外面
数据库操作
except
On E: Exception do
显示 E.Message;
end;
strsql := ' UPDATE HS_OP_TRAINNUM_INFO SET IS_VERIFY = ''1'' where ' +
'TRAINNUM_INFO_ID = ' + #39 + str_trainnumid + #39;
if not execadoquery(strsql,QryOpenDb) then begin
ShowMessage('sss');
exit;
end;我想在SHOWMESSAGE中弹出数据库的错误信息,怎么操作呢!
execadoquery(strsql,QryOpenDb);
except
On E: Exception do
showmessage(e.message);
end;一遍来讲,这个try语句是放在你的execadoquery里面的,在里面直接show就行了,而不是在外面