Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

vba 调用SQL SERVER 存储过程失败,提示运行时错误……

hailuo 等级: 普通会员 积分:0 金币:0 来自:日照Access交流中心 发表于:2019-12-05 21:57:56  
楼主

提示:

运行时错误,'2147217865(80040e37)':

对象名'Ddanganmx'无效。

VBA 代码如下:


Private Sub Com_zhcx_Click()
'=====档案综合查询查询按钮过程===================

Dim Str1 As Long
Dim sqlStr, SQLjiekuanren, SQLdanwei, SQLleixing, Orderby As String
Dim Strjiekuanren, Strdanwei, Strleixing As String

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connStr As String
    
SQLuser = "sa"
userPWD = "123123"
    
connStr = SQLconnectStr()   ‘调用连接字符串函数
conn.Open connStr
conn.CursorLocation = adUseClient

’将需要查询的内容传递给变量
Strjiekuanren = Nz(Me.Zhcx_qymc, "")
Strdanwei = Nz(Me.Combo_cxfkdanwei, "")
Strleixing = Nz(Me.Combo_leixing, "")
‘调用存储过程的语句
sqlStr = "exec usp_XDSQL_ChaXunOffen '" & Strjiekuanren & "','" & Strdanwei & "','" & Strleixing & "'"

Set Me.List_zhcx.Recordset = rs

………………
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub


 

access培训  诚聘access开发人员

    hailuo
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

hailuo 等级:普通会员 积分:0 金币:0 来自:日照Access交流中心 发表于2019/12/5 22:12:48 
1楼 得分: 0

发帖时少了出错的那句,请大家看:

错误提示出现在:

sqlStr = "exec usp_XDSQL_ChaXunOffen '" & Strjiekuanren & "','" & Strdanwei & "','" & Strleixing & "'"
后面的这句
rs.Open sqlStr, conn, adOpenStatic, adLockBatchOptimistic



    hailuo
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
hailuo 等级:普通会员 积分:0 金币:0 来自:日照Access交流中心 发表于2019/12/7 21:20:07 
2楼 得分: 0
关闭本贴。谢谢。

    hailuo
      获得社区协助:请教问题(即发帖)4篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:2篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。