用Tquery删除paradox记录时碰到的问题。急！帮帮忙！

我用tquery   删除paradox记录时，总是出现error   creating   cursor   handle的错误，但是要删除的记录还是被删除了，请问，这是什么原因，怎样取消错误。  
   
  query1.SQL.Clear;  
      query1.SQL.Add('delete   from   "lib.db"');  
      query1.SQL.Add('where   藏书号   =   "'   +   dbstr   +   '"');  
      query1.ExecSQL   ;  
      query1.Open;  
      datasource1.DataSet   :=query1;  
  //dbstr   是我存放要删除记录的藏书号的变量。  
  我在sql   builder中   若直接写   delete   from   "lib.db"   where   藏书号="00001"也会出现同样的错误，但是00001记录仍然被删除。  
  各位大侠救救我。 问题点数：20、回复次数：4Top

1 楼netlib（河外孤星）回复于 2002-05-28 21:07:45 得分 0

query1.SQL.Clear;  
      query1.SQL.Add('delete   from   lib');  
      query1.SQL.Add('where   藏书号   =   '''   dbstr   +   '''');  
      query1.ExecSQL   ;  
      query1.Open;  
      datasource1.DataSet   :=query1;Top

2 楼eltonxxx（elton）回复于 2002-05-28 21:11:02 得分 0

为什么直接用lib?我并没有在   Tquery里定义lib啊。Top

3 楼lxpbuaa（桂枝香在故国晚秋）回复于 2002-05-28 21:11:57 得分 20

query1.SQL.Clear;  
      query1.SQL.Add('delete   from   lib.db');  
      query1.SQL.Add('where   藏书号   =   '''   +   dbstr   +   '''');  
      query1.ExecSQL   ;      
      query1.Close;  
      query1.SQL.Clear;  
      query1.SQL.Add('Select   *   from   lib.db');      
      query1.Open;        
      datasource1.DataSet   :=query1;  
   
   
  —————————————————————————————————  
  MaximStr   :=   '宠辱不惊，看庭前花开花落，去留无意；  
                            毁誉由人，望天上云卷云舒，聚散任风。';  
  if   Not   Assigned(I)   then  
      I   :=   TI.Create(Nil);  
  I.Maxim   :=   MaximStr;  
  I.Explain   :=   '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';  
  I.Desire   :=   '加不加分随你';  
  —————————————————————————————————  
           
   
  Top

4 楼archy（archy）回复于 2002-05-28 21:23:06 得分 0

liveRequest属性设为trueTop

相关问题

• db
• sql
• query1
• 删除
• tquery
• dbstr
• 记录
• execsql
• 错误
• datasource1

• 帖主：eltonxxx
• lxpbuaa

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载