用什么查询语句或函数可以知道是否存在一个数据库？如我在程序里用Create Database创建了一个数据库，为了避免才次创建同一个数据库，请

Question

用什么查询语句或函数可以知道是否存在一个数据库？如我在程序里用Create Database创建了一个数据库，为了避免才次创建同一个数据库，请问有什么方法可以检测到一个数据库是否已经存在？检测一个表是否存在可以用SELECT Table_name
                 FROM information_schema.tables
                 WHERE table = 'MyTable'
那么数据库呢？谢谢

Answer 1

Sub creatmdb() '创建数据库
If Dir("e:\new.mdb") <> "" Then Kill "e:\new.mdb"
Dim mycat As New ADOX.Catalog
mycat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=e:\new.mdb"
MsgBox "创建数据库 e:\new.mdb 成功！"
End Sub

Answer 2

用DIR呀.
If Dir("f:\test.mdb") <> "" Then
    '创建数据库
Else
    MSGBOX "文件已经存在"
End If

Answer 3

IF NOT OBJECT_ID('Master..YourTableName') IS NULL
    PRINT 'Table is exists!'
ELSE
    CREATE TABLE YourTableName (...)

Answer 4

IF (SELECT COUNT(*) FROM sysdatabases WHERE [name] = 'YourTableName') <> 0
     PRINT '已存在!'
   

Answer 5

If Dir("c:\test.mdb") <> "" Then
    '创建数据库
Else
    MSGBOX "文件已经存在"
End If

Answer 6

IF   (SELECT COUNT(*) FROM sysdatabases WHERE [name] = 'mydbtest') =0
create database Mydbtest
on (name = mydbTest_data,
filename='f:\vbprogram\database\mydbtest.mdf',
size = 1,
filegrowth = 10%)
log on(name = mydbtest_log,
filename='f:\vbprogram\database\mydbtest.ldf',
size = 1,
filegrowth = 10%)