如何判断一个数据库是否存在?

Question

存储过程：
sp_databases
列出驻留在 Microsoft® SQL Server™ 实例中的数据库或可以通过数据库网关访问的数据库。

Answer 1

Private Sub Command1_Click()
   Dim sCnn As String
   Dim cnn As New ADODB.Connection
   Dim cmd As New ADODB.Command
   Dim rst As ADODB.Recordset
   
   
   sCnn = "Provider=sqloledb; Data Source=server_mis; Initial Catalog=master; User Id=sa;Password=;"
   cnn.Open sCnn
   cmd.CommandType = adCmdStoredProc
   cmd.CommandText = "sp_databases"
   cmd.ActiveConnection = cnn
   Set rst = cmd.Execute
   rst.Filter = "Database_Name = 'somedatabase'"
   MsgBox ("'somedatabase'ÊÇ·ñ´æÔÚ£º" & (Not rst.EOF))
End Sub

Answer 2

Private Sub Command1_Click()
   Dim sCnn As String
   Dim cnn As New ADODB.Connection
   Dim cmd As New ADODB.Command
   Dim rst As ADODB.Recordset
   
   
   sCnn = "Provider=sqloledb; Data Source=server_mis; Initial Catalog=master; User Id=sa;Password=;"
   cnn.Open sCnn
   cmd.CommandType = adCmdStoredProc
   cmd.CommandText = "sp_databases"
   cmd.ActiveConnection = cnn
   Set rst = cmd.Execute
   rst.Filter = "Database_Name = 'somedatabase'"
   MsgBox ("'somedatabase'是否存在：" & (Not rst.EOF))
End Sub

Answer 3

if dir(要验证的数据库路径和名称)="" then
    msgbox "数据库不存在"
endif

Answer 4

Private Sub Command1_Click()
  Dim sCnn As String
  Dim cnn As New ADODB.Connection
  dim strsql as string
  Dim rst As ADODB.Recordset
  
  
  sCnn = "Provider=sqloledb; Data Source=server_mis; Initial Catalog=master; User Id=sa;Password=;"
  cnn.Open sCnn
  strsql="select * from sysdatabases where name='Test'"
  Set rst = cnn.Execute(strsql)
  if rst.recordcount>0 then
      msgbox "Test is not EXITS"
  else
      msgbox "Test is EXITS"
  endifEnd Sub