UC知道vb问题 （删除记录）
来源：百度知道 编辑：UC知道 时间：2024/04/28 06:42:29
Private Sub Command2_Click()
Dim rs As Recordset
Set rs = db.OpenRecordset("select * from 库存 where 编号 =" & lv1.SelectedItem.Text)
rs.Delete
End Sub
这个是一个删除按钮 编译的时候提示说对象变量或with块变量未设置 是怎么回事呢？
lv1是一个显示数据库的listview
不行啊 我也连接数据库了 也引用了DAO 3.6 可是还是有错误 错误提示参数不足 期待是1 着是怎么回事呢？
Dim rs As Recordset
Set rs = db.OpenRecordset("select * from 库存 where 编号 =" & lv1.SelectedItem.Text)
rs.Delete
End Sub
这个是一个删除按钮 编译的时候提示说对象变量或with块变量未设置 是怎么回事呢？
lv1是一个显示数据库的listview
不行啊 我也连接数据库了 也引用了DAO 3.6 可是还是有错误 错误提示参数不足 期待是1 着是怎么回事呢？
你缺少 与数据库的 连接
试试
Dim rs As Recordset
set db＝OpenDatabase（”C：＼VB＼SAMPLE．MDB”）。
Set rs = db.OpenRecordset("delete * from 库存 where 编号 =" & lv1.SelectedItem.Text)
Set rs = db.OpenRecordset("select * from 库存 where 编号 =" & lv1.SelectedItem.Text)
rs.Delete
rs.update
rs.close
使用：
db.execute "delete * from 库存 where 编号 =" & lv1.SelectedItem.Text