返回当前数据库名称?

VB+ADO+SERVER2000 问题点数：50、回复次数：5Top

1 楼gump2000（阿甘）回复于 2002-04-22 10:04:55 得分 20

Connection的DefaultDatabase属性Top

2 楼dbcontrols（泰山__抛砖引玉）回复于 2002-04-22 10:20:59 得分 20

Provider   和   DefaultDatabase   属性范例  
  该范例通过打开三个使用不同提供者的   Connection   对象演示   Provider   属性。还使用   DefaultDatabase   属性设置   Microsoft   ODBC   提供者的默认数据库。  
   
  Public   Sub   ProviderX()  
   
          Dim   cnn1   As   ADODB.Connection  
          Dim   cnn2   As   ADODB.Connection  
  Dim   cnn3   As   ADODB.Connection  
   
          '   使用   Microsoft   ODBC   提供者打开连接。  
          Set   cnn1   =   New   ADODB.Connection  
          cnn1.ConnectionString   =   "driver={SQL   Server};"   &   _  
                  "server=bigsmile;uid=sa;pwd=pwd"  
          cnn1.Open   strCnn  
          cnn1.DefaultDatabase   =   "pubs"  
           
          '   显示提供者。  
          MsgBox   "Cnn1   provider:   "   &   cnn1.Provider  
   
          '   使用   Microsoft   Jet   提供者打开连接。  
          Set   cnn2   =   New   ADODB.Connection  
          cnn2.Provider   =   "Microsoft.Jet.OLEDB.3.51"  
          cnn2.Open   "C:\Samples\northwind.mdb",   "admin",   ""  
   
          '   显示提供者。  
          MsgBox   "Cnn2   provider:   "   &   cnn2.Provider  
   
        '   使用   Microsoft   SQL   服务器提供者打开连接。  
          Set   cnn3   =   New   ADODB.Connection  
          cnn3.Provider   =   "sqloledb"  
          cnn3.Open   "Data   Source=srv;Initial   Catalog=pubs;",   "sa",   ""  
   
          '   显示提供者。  
          MsgBox   "Cnn3   provider:   "   &   cnn3.Provider  
   
          cnn1.Close  
          cnn2.Close  
          cnn3.Close  
   
  End   Sub  
  Top

3 楼zjhnwlh（清嘴）回复于 2002-04-22 16:47:47 得分 0

DefaultDatabase属性在本机上可以,但编绎之后,在其它计算机上运行错误.Top

4 楼zjhnwlh（清嘴）回复于 2002-04-23 08:38:53 得分 0

?Top

5 楼gump2000（阿甘）回复于 2002-04-23 09:40:04 得分 10

什么错误呢？  
  Top

相关问题

• 属性
• 连接
• microsoft
• server
• cnn
• 提供者
• defaultdatabase
• adodb
• msgbox
• 打开连接

• 帖主：zjhnwlh
• gump2000
• dbcontrols
• gump2000

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