Question

vb中怎么在用一个button实现在有数据库的前提下，新建一个数据库并把原来的覆盖掉

Answer 1

这个代码我也在用 ,看能否帮到你哈
sub Button()
Dim a As New ADODB.Connection
Dim b As New ADODB.Recordset
a.Open 数据库连接
'检查数据库是否存在
Err.Clear
b.Open Source:="select count(*) from 数据表", ActiveConnection:=a
If Err.Number = 0 Then If MsgBox("表格已经存在，确认覆盖吗？", vbYesNo) = vbNo Then Exit Sub
'删除数据库
Set b = Nothing
b.Open Source:="drop table 数据表", ActiveConnection:=a
'创建数据库及字段
Set b = Nothing
b.Open Source:="create table 数据表 ('表格字段')", ActiveConnection:=a
end sub