在VB里连接ACCESS数据库，下面提示有错，子程序或函数未定义，怎么改

Posted 2023-05-17

Private Sub Command3_Click() '删除
Dim s As String
On Error GoTo DelErr
'创建删除确认窗口
s = MsgBox("确定删除这组记录么?", vbQuestion + vbOKCancel, "删除确定")
If s = 1 Then '确定删除记录数据

BeginTrans
Data1.Recordset.Delete ' 删除记录
CommitTrans

Data1.Recordset.MoveNext '移至下一组记录
'是否还有记录
If Data1.Recordset.RecordCount > 0 Then
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If

End If

End If

Exit Sub
DelErr:
Rollback '恢复错误
MsgBox Err.Description
End Sub

参考技术A 将BeginTrans，CommitTrans，Rollback删除。这些是数据库连接对象用的，要先数据库连接对象才能用，作为方法使用。本回答被提问者采纳 参考技术B s = MsgBox("确定删除这组记录么?", vb'确定删除记录数据 BeginTrans Data1.Recordset.Delete ' 删除请再提供下面过程或的代码: BeginTrans 参考技术C 请再提供下面过程或的代码:
BeginTrans
CommitTrans
Rollback 参考技术D BeginTrans
CommitTrans
Rollback
这些是什么呢？
还有信息太少！

教你如何解决access数据库连接错误

参考技术A access数据库连接错误解决办法步骤一：请检查conn.asp中的连接字符是否正确，如果没有错误，还提示数据库连接出错，请往下看access数据库连接错误解决办法步骤二：把数据库下载到本地（默认数据库
database/#newasp.mdb），用ACCESS打开，压缩修复数据库（打开ACCESS
--
工具
--
数据库实用工具
--
压缩和修复数据库）；然后重新上传access数据库连接错误解决办法步骤三：如果以前操作无误，照样出现数据库连接出错，那么就是权限问题了，下面以2003为例请对C:\WINDOWS
目录给
users用户加上读取权限（千万不要给完全权限，有读的权限就行了），加上权限后，如果数据库连接正确就OK了如果问题还没有解决，请查看：C:\WINDOWS\Temp
目录权限，给users
用户加上特别的权限，其它权限都可以去掉。可能你不知道这个特别权限不知道怎么加，方法如下：选择temp目录--右键--属性--安全--添加--高级--立即查找--选择Users用户--确定返回到安全选项，选择Users用户
--
高级
--
选择Users“编辑”
--
选择如下权限,其它权限全部取消以上详细的为大家介绍了解决access数据库连接错误的办法，希望能给大家带来帮助。