编程论坛
400万+工程师在用
400万+工程师在用

电子发烧友网工程师

17年用户 16436经验值
擅长:可编程逻辑 MEMS/传感技术 测量仪表 模拟技术 控制/MCU RF/无线
私信 关注

Version 属性范例 (VB)

2009-1-8 10:31

<p><font face="Verdana">Version 属性范例 (VB)</font></p><font face="Verdana">
<p><br/>本范例使用 Connection 对象的 Version 属性来显示当前 ADO 版本。还使用若干动态属性来显示: </p>
<p>当前 DBMS 名称和版本。</p>
<p><br/>OLE DB 版本。</p>
<p><br/>提供者名称和版本。</p>
<p><br/>ODBC 版本。</p>
<p><br/>ODBC 驱动程序名称和版本。 <br/>Public Sub VersionX()</p>
<p>&nbsp;&nbsp;&nbsp; Dim cnn1 As ADODB.Connection</p>
<p>&nbsp;&nbsp;&nbsp; ' Open connection.<br/>&nbsp;&nbsp;&nbsp; Set cnn1 = New ADODB.Connection<br/>&nbsp;&nbsp;&nbsp; strCnn = "driver={SQL Server};server=srv;" &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "user id=sa;password=;database=Pubs;"<br/>&nbsp;&nbsp;&nbsp; cnn1.Open strCnn<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; strVersi &amp; cnn1.Version &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "DBMS Name: " &amp; cnn1.Properties("DBMS Name") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "DBMS Version: " &amp; cnn1.Properties("DBMS Version") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "OLE DB Version: " &amp; cnn1.Properties("OLE DB Version") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "Provider Name: " &amp; cnn1.Properties("Provider Name") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "Provider Version: " &amp; cnn1.Properties("Provider Version") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "Driver Name: " &amp; cnn1.Properties("Driver Name") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "Driver Version: " &amp; cnn1.Properties("Driver Version") &amp; vbCr &amp; _<br/>&nbsp;&nbsp;&nbsp; "Driver ODBC Version: " &amp; cnn1.Properties("Driver ODBC Version")</p>
<p>&nbsp;&nbsp;&nbsp; MsgBox strVersionInfo</p>
<p>&nbsp;&nbsp;&nbsp; cnn1.Close</p>
<p>End Sub</p>
<p></font>&nbsp;</p>

更多回帖

打开APP