把删除数据库的代码分享给大家,在设置系统多账套管理时会用到:
if dr("服务器类型") = "SQL服务器" then
Dim str As String = Connections("当前数据源名称").ConnectionString.replace(";Initial Catalog=" & dr("数据库名称") & ";Data Source=",";Initial Catalog=master;Data Source=")
If Connections.Contains("临时") Then
Connections.Delete("临时")
End If
Connections.add("临时",str)
'----断开数据库时无法删除物理文件mdf及日志文件,应使用master,并改为单用户模式,再删除数据库
Dim cmd0 As New SQLCommand
cmd0.C
cmd0.CommandText = "ALTER DATABASE [" & dr("数据库名称") & "] SET SINGLE_USER With ROLLBACK IMMEDIATE"
cmd0.ExecuteNonQuery
'----删除数据库
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "drop DATABASE " & dr("数据库名称")
cmd.ExecuteNonQuery
end if