Access数据库数据删除不了 - 编程论坛

#2

ZHRXJR2017-08-24 11:01

RST.Open SQL, CNN, 1, 3
修改为
RST.Open SQL, CNN, 3, 2 看看

#3

zzh492017-08-24 12:02

回复 2楼 ZHRXJR

谢谢老师，试了，还是删除不了。
打开方式是Access2016，这个有关系吗？不懂！

[此贴子已经被作者于2017-8-24 12:14编辑过]

#4

ZHRXJR2017-08-24 22:59

有没有错误提示？一般删除一条记录，使用下面的语句：

程序代码：

Call OpenCNN    '这个是连接数据库的吗，怎么感到不对劲，不知道你的这个 OpenCNN 是不是一个函数或过程，不是的话，肯定不行的，按下面代码，应该没有问题。
Dim Cnn As New ADODB.Connection, RS As New ADODB.Recordset   '定义ADO对象
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\数据库名.accdb;Jet OLEDB:Database Password=;"    '连接2007以上版本的Access数据库的语句，修改数据表名称就可以
Cnn.Open   '打开数据库
SQL = "Select * from 数据表 where 序号=" & ListView1.SelectedItem & ""  '连接数据表的SQL语句
RS.Open SQL, Cnn, 3, 2    '打开记录集
RS.Delete    '删除记录
RS.Close
Set RS = Nothing
Cnn.Close

#5

zzh492017-08-25 06:30

回复 4楼 ZHRXJR

谢谢版主老师！已经好了。