VB创建SQL2000数据库

Question

代码如下：
  Dim iDb As ADODB.Connection, iRe As ADODB.Recordset
    Dim iConcStr$, iSql$, iReturn$, iI&
        
   ' On Error GoTo lbErr
    
    '创建对象
    Set iDb = New ADODB.Connection
    Set iRe = New ADODB.Recordset
    
    '连接数据库服务器,根据你的情况修改连接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=localhost"
    
    iDb.Open iConcStr
    iSql = "create database  DataBaseName"
    iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
问题：如何实现点击第二次创建数据库时给一个提示“DataBaseName数据库已存在”
请大家帮助
谢谢！

Answer 1

'判断数据库是否已经存在
'将idb连接至master数据库
StrSql = "select * from master..sysdatabases where [name] ='DataBaseName'"
If ide.State = adStateOpen Then ide.Close
ide.Open StrSql, idb, adOpenKeyset, adLockReadOnly
If ide.RecordCount > 0 Then 
    msgbox "数据库已经存在！",48,"提示"
else
    '创建
end if
ide.close

Answer 2

在master数据库中有一个sysdatabases 表记录了当前数据库的信息，所以你可以建一个到master的连接，然后select  * from sysdatabases  where   name  ='DataBaseName'如果有返回结果，表明数据库已经存在，否则可以创建数据库

Answer 3

这一句If ide.State = adStateOpen Then ide.Close还是出错

Answer 4

QQ：59804834
    发代码给你，用SQL存储过程创建数据库