?? mdproproviderx.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML dir=ltr>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=gb2312"><title>Provider 和 DefaultDatabase 屬性范例</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h3><a name="mdproproviderx"></a>Provider 和 DefaultDatabase 屬性范例</h3>
<p>
該范例通過打開三個使用不同提供者的 <b>Connection</b> 對象演示 <b>Provider</b> 屬性。還使用 <b>DefaultDatabase</b> 屬性設置 Microsoft ODBC 提供者的默認數據庫。</p>
<pre>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.<span class=cfe><b>DefaultDatabase</b></span> = "pubs"
' 顯示提供者。
MsgBox "Cnn1 provider: " & cnn1.<span class=cfe><b>Provider</b></span> ' 使用 Microsoft Jet 提供者打開連接。
Set cnn2 = New ADODB.Connection
cnn2.<span class=cfe><b>Provider</b></span> = "Microsoft.Jet.OLEDB.3.51"
cnn2.Open "C:\Samples\northwind.mdb", "admin", "" ' 顯示提供者。
MsgBox "Cnn2 provider: " & cnn2.<span class=cfe><b>Provider</b></span> ' 使用 Microsoft SQL 服務器提供者打開連接。
Set cnn3 = New ADODB.Connection
cnn3.<span class=cfe><b>Provider</b></span> = "sqloledb"
cnn3.Open "Data Source=srv;Initial Catalog=pubs;", "sa", "" ' 顯示提供者。
MsgBox "Cnn3 provider: " & cnn3.<span class=cfe><b>Provider</b></span> cnn1.Close
cnn2.Close
cnn3.CloseEnd Sub</pre>
<center> <A HREF="http://www.51windows.Net">www.51windows.Net</A></center>
<SCRIPT LANGUAGE="JavaScript" src="/log/sitelog2.asp"></SCRIPT>
<script src="script.js"></script></BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -