ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 6216|回复: 3

请问用ADO如何执行存储过程?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-6-7 17:01 | 显示全部楼层 |阅读模式
请问用ADO如何执行SQL SERVER的存储过程,以及MDB的宏?

TA的精华主题

TA的得分主题

发表于 2003-6-10 15:45 | 显示全部楼层
如果参数是一篇1千字的文章怎么办?

TA的精华主题

TA的得分主题

发表于 2003-6-10 12:17 | 显示全部楼层
简单!只要使用ADO.connection: cnn.execute +"字符串" “字符串”的内容就是,你需要执行的sp名称和参数(如果你的sp需要带参数的话)。

TA的精华主题

TA的得分主题

发表于 2003-6-7 20:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
参数存储过程如何赋值?adp 如何调用存储过程?《ADP》 作者:ec 2003-3-17 9:52:10 〖摘自 access911.126.com 文章区〗 参数存储过程如何赋值? adp 如何调用存储过程? adp 代码如下: ---------------------------------------- Public Function DoProcedure() Dim cmdByRoyalty As ADODB.Command Dim prmByRoyalty As ADODB.Parameter Dim rstByRoyalty As ADODB.Recordset Dim intRoyalty As String Set cmdByRoyalty = New ADODB.Command cmdByRoyalty.CommandText = "存储过程名" cmdByRoyalty.CommandType = adCmdStoredProc intRoyalty = Trim(InputBox("输入参数:")) '你可以直接写参数,不用调用 input Set prmByRoyalty = cmdByRoyalty.CreateParameter("aab", adChar, adParamInput, 255) cmdByRoyalty.Parameters.Append prmByRoyalty prmByRoyalty.value = intRoyalty Set cmdByRoyalty.ActiveConnection = CurrentProject.Connection Set rstByRoyalty = cmdByRoyalty.Execute End Function asp 代码如下: ---------------------------------------- set objconn=server.CreateObject ("ADODB.Connection") objconn.Open "provider=sqloledb;data source=10.163.184.228;initial catalog=pubs;user id=sa;password=123;" set cmd=server.CreateObject("adodb.command") set cmd.ActiveConnection=objconn cmd.CommandType=4 '4表示是存贮过程 cmd.CommandText="存贮过程名" cmd.Parameters.append cmd.CreateParameter(@aulname,200,1) '存贮过程的调用在asp中,参数一般是用数字表示,参数表看下面最后的附录: cmd("@aulname")="white" set rs=cmd.Execute() 附一个参数表: 参许参数值的类型的意义如下: 名称值 整数值 功能   adDBTimeStamp 135 日期时间数据类型   adDecimal 14 十进制整数值   adDouble 5 双精度小数值   adError 10 系统错误信息 AdGUID 72 全域性唯一识别字(Globally unique identifier) adDispath 9 COM/OLE自动对象(Automation Object) adInteger 3 4字节有符号整数 adIUnknown 13 COM/OLE对象 adLongVarBinary 205 大型2字节值 adLongVarChar 201 大型字符串值 adLongVarWChar 203 大型未编码字符串 adNumeric 131 十进制整数值 adSingle 4 单精度浮点小数 adSmallInt 2 2字节有符号整数 adTinyInt 16 1字节有符号整数 adUnsignedBigInt 21 8字节无符号整数 adUnsignedInt 19 4字节无符号整数 adUnsignedSmallInt 18 2字节无符号整数 adUnsignedTinyInt 17 1字节无符号整数 adUserDefined 132 用户自定义数据类型 adVariant 12 OLE对象 adVarBinary 204 双字节字符变量值 adVarChar 200 字符变量值 advarchar 202 未编码字符串变量值 adWchar 130 未编码字符串      方向值的意义如上: 名称值 整数值 功能 adParamInput 1 允许数据输入至该参数当中 adParamOutput 2 允许数据输出至该参数当中 adParamInputOutput 3 允许数据输入、输出至该参数当中 adparamReturnValue 4 允许从一子程序中返回数据至该参数当中 最好是先添加参数列表,后赋值,这样更加灵活。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 11:44 , Processed in 0.026838 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表