mdproactiveconx.htm

来自「ADO使用手册,非常详细」· HTM 代码 · 共 65 行

HTM
65 行
字号 
<!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>ActiveConnection、CommandText、CommandTimeout、CommandType、Size 和 Direction 属性范例</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h3><a name="mdproactiveconx"></a>ActiveConnection、CommandText、CommandTimeout、CommandType、Size 和 Direction 属性范例</h3>
<p>
该范例使用 <b>ActiveConnection</b>、<b>CommandText</b>、<b>CommandTimeout</b>、<b>CommandType</b>、<b>Size</b> 和 <b>Direction</b> 属性执行存储过程。</p>
<pre>Public Sub ActiveConnectionX()   Dim cnn1 As ADODB.Connection
   Dim cmdByRoyalty As ADODB.Command
   Dim prmByRoyalty As ADODB.Parameter
   Dim rstByRoyalty As ADODB.Recordset
   Dim rstAuthors As ADODB.Recordset
   Dim intRoyalty As Integer
   Dim strAuthorID As String
   Dim strCnn As String   ' 定义存储过程的命令对象。
   Set cnn1 = New ADODB.Connection
   strCnn = "Provider=sqloledb;" &amp; _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn1.Open strCnn
   Set cmdByRoyalty = New ADODB.Command
   Set cmdByRoyalty.<span class=cfe><b>ActiveConnection</b></span> = cnn1
   cmdByRoyalty.<span class=cfe><b>CommandText</b></span> = "byroyalty"
   cmdByRoyalty.<span class=cfe><b>CommandType</b></span> = adCmdStoredProc
   cmdByRoyalty.<span class=cfe><b>CommandTimeout</b></span> = 15
      
   ' 定义存储过程的输入参数。
   intRoyalty = Trim(InputBox( _
      "Enter royalty:"))
   Set prmByRoyalty = New ADODB.Parameter
   prmByRoyalty.Type = adInteger
   prmByRoyalty.<span class=cfe><b>Size</b></span> = 3
   prmByRoyalty.<span class=cfe><b>Direction</b></span> = adParamInput
   prmByRoyalty.Value = intRoyalty
   cmdByRoyalty.Parameters.Append prmByRoyalty
  
   ' 通过执行该命令创建记录集。
   Set rstByRoyalty = cmdByRoyalty.Execute()
      
   ' 打开作者表以便显示作者姓名。
   Set rstAuthors = New ADODB.Recordset
   rstAuthors.Open "authors", strCnn, , , adCmdTable
   
   ' 打印记录集中的当前数据，从作者表中添加作者姓名。
   Debug.Print "Authors with " &amp; intRoyalty &amp; _
      " percent royalty"
   Do While Not rstByRoyalty.EOF
      strAuthorID = rstByRoyalty!au_id
      Debug.Print , rstByRoyalty!au_id &amp; ", ";
      rstAuthors.Filter = "au_id = '" &amp; strAuthorID &amp; "'"
      Debug.Print rstAuthors!au_fname &amp; " " &amp; _
         rstAuthors!au_lname
      rstByRoyalty.MoveNext
   Loop   rstByRoyalty.Close
   rstAuthors.Close
   cnn1.Close
   
End 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>

mdproactiveconx.htm - 源码说明

本页面展示了「ADO使用手册,非常详细」中的 mdproactiveconx.htm 源码文件，采用 HTM 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ADO相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?