我用sql删除语句怎么删除不了数据,并且报告Field stuname not found,我为ADOquery加了afterscroll事件:
edit1.Text:=ADO_info.FieldByName('stunum').AsString;
edit2.Text:=ADO_info.FieldByName('stuname').AsString;
edit3.Text:=ADO_info.FieldByName('stuclass').AsString;
edit4.Text:=ADO_info.FieldByName('stusex').AsString;
其中ado_info是一个ADOQuery,
我的删除语句如下:
s:='delete from stu_info where stunum='''+edit1.text+'''';//根据edit中的数据进行删除
if messagebox(0,'确定要删除数据吗?','删除',MB_OKCANCEL)=1 then
with ADO_info do
begin
close;
sql.clear;
sql.Add('select stunum from stu_info where stunum='+''''+edit1.Text+'''');
open;
if recordcount<>0 then
begin
close;
//ADO_info.Delete;
SQL.Clear;
SQL.Add(s);
// open;
execsql;
close;
sql.clear;
SQL.Add('select stunum,stuname,stuclass,stusex from stu_info');
Open;
end
else
messageDlg('对不起,该记录不存在!',mtinformation,[mbok],0);
end;
大侠们帮帮忙呀,我分不多呀
edit1.Text:=ADO_info.FieldByName('stunum').AsString;
edit2.Text:=ADO_info.FieldByName('stuname').AsString;
edit3.Text:=ADO_info.FieldByName('stuclass').AsString;
edit4.Text:=ADO_info.FieldByName('stusex').AsString;
其中ado_info是一个ADOQuery,
我的删除语句如下:
s:='delete from stu_info where stunum='''+edit1.text+'''';//根据edit中的数据进行删除
if messagebox(0,'确定要删除数据吗?','删除',MB_OKCANCEL)=1 then
with ADO_info do
begin
close;
sql.clear;
sql.Add('select stunum from stu_info where stunum='+''''+edit1.Text+'''');
open;
if recordcount<>0 then
begin
close;
//ADO_info.Delete;
SQL.Clear;
SQL.Add(s);
// open;
execsql;
close;
sql.clear;
SQL.Add('select stunum,stuname,stuclass,stusex from stu_info');
Open;
end
else
messageDlg('对不起,该记录不存在!',mtinformation,[mbok],0);
end;
大侠们帮帮忙呀,我分不多呀
解决方案 »
- Delphi
- label 显示问题
- something about TGIS_LayerVector
- cxGrid动态创建脚注合计
- 获取网页源码中的某一字符串,正则表达式该怎么写?
- 在主form中调用多个frame,只知道不同的frame名字,如何调用?
- 怎样判断DBgrid中一行记录被选中了
- 关于套打的问题
- 奇怪的问题,为什么用ADO直接连接有用户权限的ACCESS数据库连不通?提示工作组文件丢失(没丢)而用ADO+ODBC就可以,能帮我吗?谢谢,参加就给分!
- 如何把一个子程序写到单独的PAS文件里?在主程序中如何调用?
- MDI主窗体的关闭问题
- 在FASTREPORT3.10中如何在预览打印以后自动关闭?
问题在这一句, 不是删除的错误