一个关于数据库中批量删除数据的问题

Question

现在我有一个很急的问题。我做了个数据库。现在要求实现批量删除数据库中的数据。但是我做的程序
只能删除前两条数据。请各位朋友多多帮忙。程序如下：
private sub cmdDelete_click()
    dim sql as string
    sql="select * from A"
    set myrs=new adodb.recordset
    myrs.open sql,myconn,adopendynamic,adlockoptimistic
    do while (not myrs.eof)
        myrs.delete
        myrs.movenext
    loop
    myrs.close
    set myrs=nothing
end sub

Answer 1

myconn.Execute "delete from a"

Answer 2

dim sql as string
    sql="select * from A"
    set myrs=new adodb.recordset    rs.cursorlocation=aduseclient    myrs.open sql,myconn,adOpenForwardOnly,adlockoptimistic    do while (not myrs.eof)
        myrs.delete
        myrs.movenext
    loop
    myrs.close
    datagrid1.refresh

Answer 3

private sub cmdDelete_click()
    dim sql as string
    sql="select * from A"
    set myrs=new adodb.recordset
    '这句将adopendynamic改成adOpenStatic
    myrs.open sql,myconn,adOpenStatic,adlockoptimistic，1
    do while (not myrs.eof)
        myrs.delete
        myrs.movenext
    loop
    myrs.updatebatch  '增加这一句
    myrs.close
    set myrs=nothing
end sub

Answer 4

直接清空表就行
Con.Execute "delete from a"
如果想删除这张表可以：
Con.Execute "drop table a"

Answer 5

private sub cmdDelete_click()
    dim sql as string
    sql="select * from A"
    set myrs=new adodb.recordset
    myrs.open sql,myconn,adOpenStatic, adLockBatchOptimistic, adCmdText
    myrs.MoveFirst
    do while (not myrs.eof)
        myrs.delete
        myrs.movenext
    loop
    myrs.close
    set myrs=nothing
end sub
试试