返回当前数据库名称?

[简单的事情]

VB+ADO+SERVER2000

[简单的事情]

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

[gump2000]

Connection的DefaultDatabase属性

[dbcontrols]

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

[简单的事情]

?

[gump2000]

什么错误呢？