有什么好的方法删除一个表中所有的数据？

为什么   adoprint.Recordset.Delete   adAffectAllChapters不能用？一运行便出现  
  错误提示：  
                      实时错误   '3219'  
                      在此环境中不允许操作 问题点数：50、回复次数：7Top

1 楼victorycyz（--）回复于 2003-08-02 22:31:40 得分 5

可以直接连到数据库，用connection的execute方法：  
   
  cn.execute   "delete   from   table"Top

2 楼Luo_Yong（初学者）回复于 2003-08-02 23:10:37 得分 3

不知你是什么数据库！  
  你可以将整个表都删了(包括记录在内)  
  然后再重建这个表的记录,(这样速度上相当快的)Top

3 楼zjpwm（天才白痴）回复于 2003-08-03 01:45:49 得分 0

delete   *   from   table删除内容Top

4 楼emerson3000（网上邻居）回复于 2003-08-03 08:34:02 得分 0

access数据库。  
  AdoPrint.RecordSource   =   "delete     from   hjdy"  
  AdoPrint.Refresh  
  执行后，提示：“对象关闭时，不允许操作”。怎么解决？  
  Top

5 楼weill（每天提一问，一天学一点）回复于 2003-08-03 09:45:03 得分 40

为了不和你原来的程序打架，给你一个函数试试，我自个写的，我不玩ACCESS，那东东加密不好，呵，这个函数在SQL里是有用的。  
   
  Private   Function   KSCombSD()  
  Dim   cnn1   As   ADODB.Connection  
  Dim   mycommand   As   ADODB.Command  
  Dim   rstByQuery   As   ADODB.Recordset  
  Dim   strCnn   As   String  
  Set   cnn1   =   New   ADODB.Connection  
  strCnn   =   "DSN=AA;uid=BB;pwd=CC"   '这儿是联接字串，据你的实际改。  
  cnn1.Open   strCnn  
  Set   mycommand   =   New   ADODB.Command  
  mycommand.ActiveConnection   =   cnn1  
  mycommand.CommandText   =   "DELETE   *   FROM   HJDY"  
  Set   rstByQuery   =   New   ADODB.Recordset  
  Set   rstByQuery   =   mycommand.Execute  
  cnn1.Close  
  Set   cnn1   =   Nothing  
  End   Function  
  Top

6 楼weill（每天提一问，一天学一点）回复于 2003-08-03 09:46:21 得分 0

要是没用，别怪我，呵，到底我用的是SQL的数据库。  
  要是有用，你再把上面的代码看明白，然后转化，精减成你自个的代码。Top

7 楼dengyiwolf（七星偃月刀）回复于 2003-08-03 09:55:16 得分 2

可以直接连到数据库  
  用connection的execute方法：  
   
  cn.execute   "delete   *   from   table"  
  Top

相关问题

• 数据库
• cnn1
• adoprint
• rstbyquery
• 表
• adodb
• mycommand
• 方法
• delete
• execute

• 帖主：emerson3000
• victorycyz
• Luo_Yong
• weill
• dengyiwolf

• Visual Basic类图书
• Visual Basic类源码下载