adodisconnectionn中commandtimeout和disconnectionntimeout属性的区别

来源：蜘蛛抓取(WebSpider) 时间：2015-01-16 03:44 标签： connection
夜的第七章 夜的第七章mv 夜的第七章歌词 喜欢1个对象 处对象 面向对象 找对象 面..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口ActiveConnection、CommandText、CommandTimeout、CommandType、Size 和 Direction 属性范例- Microsoft ADO 程序员参考 - 开发手册速查_it168学院频道
ActiveConnection、CommandText、CommandTimeout、CommandType、Size 和 Direction 属性范例
该范例使用 ActiveConnection、CommandText、CommandTimeout、CommandType、Size 和 Direction 属性执行存储过程。
Public Sub ActiveConnectionX()
Dim cnn1 As ADODB.Connection
Dim cmdByRoyalty mand
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=" & _
"Data Source=Initial Catalog=User Id=Password=; "
cnn1.Open strCnn
Set cmdByRoyalty = mand
Set cmdByRoyalty.ActiveConnection = cnn1
cmdByRoyalty.CommandText = "byroyalty"
cmdByRoyalty.CommandType = adCmdStoredProc
cmdByRoyalty.CommandTimeout = 15
' 定义存储过程的输入参数。
intRoyalty = Trim(InputBox( _
"Enter royalty:"))
Set prmByRoyalty = New ADODB.Parameter
prmByRoyalty.Type = adInteger
prmByRoyalty.Size = 3
prmByRoyalty.Direction = 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 " & intRoyalty & _
" percent royalty"
Do While Not rstByRoyalty.EOF
strAuthorID = rstByRoyalty!au_id
Debug.Print , rstByRoyalty!au_id & ", ";
rstAuthors.Filter = "au_id = '" & strAuthorID & "'"
Debug.Print rstAuthors!au_fname & " " & _
rstAuthors!au_lname
rstByRoyalty.MoveNext
rstByRoyalty.Close
rstAuthors.Close
cnn1.CloseDelphi――ADO组件的使用_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者贡献于
评价文档：
3页¥2.001页免费10页1下载券21页1下载券44页1下载券7页1下载券2页1下载券65页1下载券1页免费1页免费
喜欢此文档的还喜欢63页免费34页免费43页1下载券58页免费44页1下载券
Delphi――ADO组件的使用|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：1.01MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢

我要回帖

更多关于 connection 的文章

 

随机推荐