有没有办法判断某数据库是否已经存在？

Question

if exists(select 1 from master..sysdatabases where name = 'TESTDB')
  print 'TESTDB Exist'

Answer 1

高手们，在VB中的代码判断怎么写呢，而不是直接在SQLSERVER中。这样的语句肯定是不行的啊。

Answer 2

'引用Microsoft ActiveX Data Objects 2.5 Library
Dim conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim strConnect As String, strSelect As String
strConnect = "Driver={SQL Server};Server=TCL;Database=master;" & _
    "UID=sa;PWD=;"      '连接字符串
conn.ConnectionString = strConnect
conn.Open
strSelect = "select count(*) from master..sysdatabases where name='TESTDB'"
Set Rs = conn.Execute(strSelect)
If Rs(0) = 1 Then
    MsgBox "该数据库存在！"
Else
    MsgBox "该数据库不存在！"
End If
Rs.Close
Set Rs = Nothing
conn.Close
Set conn = Nothing