vb中有没有删除数据库文件的命令

来源:百度知道 编辑:UC知道 时间:2024/06/17 20:22:47
比如我想删除NEWDB.MDB这个文件。
因为我每次程序运行时数据库都是重新创建的,要是不删除原来的数据库文件运行就会出错,有没有什么办法在程序结束时把这个文件删掉?
用了KILL,出现实时错误70 拒绝的权限。

zdingyun 我没有使用Adodc1控件

关闭数据库连接后,删除即可,和删除普通文件是一样的。

删除文件我倒是知道
kill命令

kill "c:\NEWDB.MDB"

Private Sub Form_Unload(Cancel As Integer) '窗口结束后
kill app.path & "NEWDB.MDB" '删除本程序下的NEWDB.MDB文件
End Sub ’结束

drop datebase [数据库名字]

Option Explicit
Dim tblName As String
Private Sub Command1_Click() '从数据库内删除一个表
On Error GoTo userErr
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hxrkgl1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "drop table " & tblName
Adodc1.Refresh
Exit Sub
userErr:
End Sub

Private Sub Command2_Click() '从数据库内删除一个表的记录
On Error GoTo userErr
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hxrkgl1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "delete * from " & tblName
Adodc1.Refresh