vb删除数据库

Dim filePath As String = "C:\path\to\your\database.mdb"
If System.IO.File.Exists(filePath) Then
    System.IO.File.Delete(filePath)
    Console.WriteLine("Database file deleted successfully.")
Else
    Console.WriteLine("Database file does not exist.")
End If

Dim connectionString As String = "Server=your_server;Database=master;Integrated Security=True;"
Using connection As New SqlConnection(connectionString)
    connection.Open()
    Dim command As New SqlCommand("DROP DATABASE your_database_name", connection)
    Try
        command.ExecuteNonQuery()
        Console.WriteLine("Database deleted successfully.")
    Catch ex As Exception
        Console.WriteLine("Error deleting database: " & ex.Message)
    End Try
End Using