delphi ExecSQL问题
ifMessagebox(Handle,'是否保留删除项','提示',MB_YESNO)=6ThenbeginADOQuery4.Close;ADOQuery4.SQL....
if Messagebox(Handle,'是否保留删除项','提示',MB_YESNO)=6 Then
begin
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('update 积分详细表 set 标记=''删除'' where 积分编号 in ( select 积分编号 from 积分详细表,积分信息表 where 积分详细表.积分编号=积分信息表.编号 and 名称='''+DBGrid2.Fields[0].Text+''' and 客户编号='''+label13.Caption+''')');
ADOQuery4.ExecSQL;
end
else
begin
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('delete from 积分详细表 where 积分编号 in ( select 积分编号 from 积分详细表,积分信息表 where 积分详细表.积分编号=积分信息表.编号 and 名称='''+DBGrid2.Fields[0].Text+''' and 客户编号='''+label13.Caption+''')');
ADOQuery4.ExecSQL;
end;
以上是代码，在Delphi编译没有语法问题，就是sql语言没有执行，不能更新也不能删除，这是为什么 展开
begin
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('update 积分详细表 set 标记=''删除'' where 积分编号 in ( select 积分编号 from 积分详细表,积分信息表 where 积分详细表.积分编号=积分信息表.编号 and 名称='''+DBGrid2.Fields[0].Text+''' and 客户编号='''+label13.Caption+''')');
ADOQuery4.ExecSQL;
end
else
begin
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('delete from 积分详细表 where 积分编号 in ( select 积分编号 from 积分详细表,积分信息表 where 积分详细表.积分编号=积分信息表.编号 and 名称='''+DBGrid2.Fields[0].Text+''' and 客户编号='''+label13.Caption+''')');
ADOQuery4.ExecSQL;
end;
以上是代码，在Delphi编译没有语法问题，就是sql语言没有执行，不能更新也不能删除，这是为什么 展开
1个回答
展开全部
s:='update 积分详细表 set 标记=''删除'' where 积分编号 in ( select 积分编号 from 积分详细表,积分信息表 where 积分详细表.积分编号=积分信息表.编号 and 名称='''+DBGrid2.Fields[0].Text+''' and 客户编号='''+label13.Caption+''')';
showmessage(s);
//把这个显示一下看看就知道了，估计是引号的问题。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
