超难解决的逻辑错误问题? 急急急

超难解决的逻辑错误问题? 急急急 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061222173752156.html
 
  我的程序面板上放有:DBGrid,AdoQuery等,还有“下一条记录”,“上一条记录”,“删除当前记录”等按扭,程序启动时DBGrid为空,此时点击上面任何一按扭,程序报错退出。  
  以“删除”按纽为例,我的程序如下:  
  procedure   TForm1.Button5Click(Sender:   TObject);  
  begin  
  adoquery1.open;                                                                        
    if   adoquery1.RecordCount=0   then                                        
      MessageBox(0,'SetCommMask   Error   !','Notice',MB_OK)  
    else  
  if   Application.MessageBox('是否删除当前记录?','提示',mb_yesno)=id_yes   then  
  ADOQuery1.Delete;  
  end;  
  为了执行是否adoquery1.RecordCount=0,必须adoquery1.open,但是当   adoquery1.RecordCount=0时,Adoquery1.SQL.Text:=''此时就不能和数据库想连,当然就不能去计算Recordcount,想了一天了,脑袋都大了,哪位大哥帮帮我啊,感激涕零。  
  如果问题没搞清,QQ:110546987在线等到,[email protected].谢谢

没看明白说得是什么?

procedure   TForm1.Button5Click(Sender:   TObject);  
  begin  
  adoquery1.close;  
  adoquery1.sql.clear;  
  adoquery1.add('select   *   from   table   where   .....');  
  adoquery1.open;                                                                        
    if   adoquery1.RecordCount=0   then                                        
      MessageBox(0,'SetCommMask   Error   !','Notice',MB_OK)  
    else  
  if   Application.MessageBox('是否删除当前记录?','提示',mb_yesno)=id_yes   then  
  begin  
    ADOQuery1.close;  
    ADOQuery1.sql.clear;  
    ADOQuery1.sql.add('delete   table   where   ....');  
    ADOQuery1.execsql;  
  end;  
  end;

你可能感兴趣的:(问题)