📄 mdproversionx.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>Version 属性范例</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h3><a name="mdproversionx"></a>Version 属性范例</h3>
<p>
该范例使用 <b>Connection</b> 对象的 <b>Version</b> 属性显示当前的 ADO 版本。同时还使用几个动态属性显示当前的 DBMS 名称和版本、OLE DB 的版本、提供者名称和版本、驱动程序名称和版本以及驱动程序 ODBC 的版本。</p>
<pre>Public Sub VersionX() Dim cnn1 As ADODB.Connection ' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = “driver={SQL Server};server=srv;” & _
“user id=sa;password=;database=pubs;”
cnn1.Open strCnn
strVersionInfo = "ADO Version: " & cnn1.<span class=cfe><b>Version</b></span> & vbCr & _
"DBMS Name: " & cnn1.Properties("DBMS Name") & vbCr & _
"DBMS Version: " & cnn1.Properties("DBMS Version") & vbCr & _
"OLE DB Version: " & cnn1.Properties("OLE DB Version") & vbCr & _
"Provider Name: " & cnn1.Properties("Provider Name") & vbCr & _
"Provider Version: " & cnn1.Properties("Provider Version") & vbCr & _
"Driver Name: " & cnn1.Properties("Driver Name") & vbCr & _
"Driver Version: " & cnn1.Properties("Driver Version") & vbCr & _
"Driver ODBC Version: " & cnn1.Properties("Driver ODBC Version") MsgBox strVersionInfo cnn1.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 + -