VB创建SQL2000数据库

 
  代码如下：  
      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数据库已存在”  
  请大家帮助  
  谢谢！  
   
  问题点数：50、回复次数：8Top

1 楼ljhdi（ ）回复于 2005-02-25 10:53:37 得分 4

用错误处理行不？Top

2 楼zj8092（秋风）回复于 2005-02-25 10:56:24 得分 0

我是个菜鸟，这样做好象不好吧Top

3 楼Leftie（左手,为人民币服务）回复于 2005-02-25 10:58:42 得分 20

'判断数据库是否已经存在  
  '将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  
  Top

4 楼aohan（aohan）回复于 2005-02-25 10:58:45 得分 15

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

5 楼myhgyp（也许是这样的，信不信由你）回复于 2005-02-25 11:30:08 得分 1

同意楼上和楼上的楼上Top

6 楼zj8092（秋风）回复于 2005-02-25 12:34:22 得分 0

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

7 楼w3k（网络3K）回复于 2005-02-25 12:50:18 得分 10

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

8 楼zj8092（秋风）回复于 2005-02-25 13:07:15 得分 0

问题解决结贴Top

相关问题

• 数据库
• 连接
• idb
• 创建
• iconcstr
• databasename
• isql
• sysdatabases
• ire
• adodb

• 帖主：zj8092
• ljhdi
• Leftie
• aohan
• myhgyp
• w3k

• Visual Basic类图书
• Visual Basic类源码下载