如何一次性删除Recordset记录集中数据?

Question

dim aa as command
aa.commandtext="delete * from recordset"
aa.execute

Answer 1

dim rst as new adodb.recordset
dim cnn as new adodb.connection
cnn.open ""
rst.open "delete from XXXX",cnn,,,cmdtext
cnn.close

Answer 2

Dim cmd As New Commandcmd.CommandText="Delete From table_xxx"
cmd.Execute

Answer 3

Dim db As New Connection
db.CursorLocation =adUseClient 
db.open "..."
db.Execute "delete * from 表名 where ...."

Answer 4

db.open " ..."
db.Execute "Delete * From yourTable where ...."

Answer 5

rs.open "delete from XXXX",cnn,,,cmdtext

Answer 6

我是通过数据环境建立Dataevrionment1中的一个command对象CMDxxx
如何一性删除它的recordset(RsCmdxxx)中的记录？

Answer 7

在原来的SQL中添加使记录数为0 的条件，然后REFRESF

Answer 8

dim re as new adodb.recordset
dim db as new adodb.connection
dim connstr as string 
private form_load()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User & ID=sa;Initial Catalog=hoteldb;Data Source=ntserver;Connect      &   Timeout=30"
if db.state =0 then
db.open connstr
 re.CursorLocation = adUseClient
   re.Open "select 字段  from your_table".........
end if
end sub
private command1_click()
dim i,sum as integerif re.recordcount<>0 then
re.movefirst
i=0
for i=0 to recordcount-1
re.delete
re.update
re.movenext
next i
sum=re.recordcount
end if 
if sum=0 then
msgbox"已成功地删除记录集中所有记录",vbOKOnly + & vbInformation, "worning"
end if

Answer 9

感谢SZGW所提供的方法但szgw的方法是逐条删除，这样做在记录较多的情况下很影响速度，有没有一次性删除的方法？

Answer 10

dim re as new adodb.recordset
dim db as new adodb.connection
dim connstr as string 
private form_load()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User & ID=sa;Initial Catalog=hoteldb;Data Source=ntserver;Connect      &   Timeout=30"
if db.state =0 then
db.open connstr
 re.CursorLocation = adUseClient
   re.Open "UPDATE you_table SET 字段 = Null"
'如删除所有则为
're.Open "Delete * From you_table"
   rs.close
end if
end sub
'没试过,你自己试吧

Answer 11

recordset.delete adAffectAllChapters
可以一次刪除所有記錄，因為默認為當前記錄，即adAffectCurrent

Answer 12

执行 recordset.delete adAffectAllChapters 时，为何显示：
'  实时错误 3219
  操作在该内容中不被允许 '
---------------------------------------------------------
以上是我程序中的代码，请指点：DataEnvironment1.rsCmdDstmp.Open
If DataEnvironment1.rsCmdDstmp.RecordCount > 0 Then
DataEv1.rsCmdDstmp.Delete adAffectAllChapters
End if

Answer 13

为什么一定要用dataenvironment呢？

Answer 14

recordset.Delete adAffectGroup 
adAffectGroup 删除满足当前 Filter 属性设置的记录。使用该选项须将 Filter 属性设置为有效的预定义常量之一。 应该不支持adAffectAllChapters吧

Answer 15

众位高手，首先谢过，请问如何一次性删除Recordset记录集中数据?急 ！急 ！急！