Question

vb删除access中符合条件的记录

我用vb编写代码，想要删除数据库access中符合条件的所有记录。比如年龄为30岁的所有人的记录。请问高手，代码该怎么编写？等下加分哈

Answer 1

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.4.0;data source=数据库名.mdb"
rs.Open "select * from 表 where 年龄=30", conn, 1, 3
rs.Delete
rs.Update
rs.Close
可一次删除所有符合条件的资料，其中“年龄=30”也可以使用在其它地方取得（比如：文本）！
不懂了再问我吧

追问

我刚开始就是这样写的。但是出现实时错误 3021 BOF或者EOF中一个为真，或者当前的记录已被删除…… 。点调试后，光标指向rs.delete

Answer 2

用docmd

例如：
string="delete from 表名 where 年龄>30"
docmd.runsql string

Answer 3

delete from 标明 where 年龄=30
至于vb执行sql语句,你应该知道吧.

追问

如果30岁的有很多人呢？

追答

晕.你没学过sql么?
这个是年龄=30的所有的人

追问

显示错误，其实我早就按照你的思路去做了，只是不行。调试时 显示rs.delete 背景变黄色

追答

晕.我这个是直接删除,你还移动指针干嘛?
conn.execute(sql)就行了.