您好,我看了您的文章大受启发,现在我在ACCESS中用的 Dim CONN As ADODB.Connection
Dim RS As ADODB.Recordset
RS.CursorType = 3’此句很重要,务必要写。
On Error Resume Next
CONN.Open “Provider=sqloledb;Server=LENOVO-55Q4LWP8;Database=管理;Uid=sa;Pwd=iadmin;”
If Err.Number 0 Then
MsgBox “连接数据库错误。原因是:” & Err.Description
Exit Sub
End If
Err.Clear
RS.Open “订单计价 @客户编号='” & Me.客户编号.txt & “‘”, CONN, 1, 1
If Err.Number 0 Then
MsgBox “执行存储过程时失败。原因是:” & Err.Description
Exit Sub
End If
Err.Clear
on error goto 0
If RS.RecordCount > 0 Then
‘有查询到的结果,你自行处理
‘你的处理代码……….
End If
RS.Close
Set RS = Nothing
CONN.Close
Set CONN = Nothing
这段代码 提示 块没有定义 或 WITH块 没有设置,请问要 添加哪 个引用才能正常运行啊?
兄弟,交换链接吗?
看看你的网站。
http://www.hostusvps.com
类型不符合啊。
博客开放友情链接了,需要的朋友可以留言。
我们网站的博客导航已添加了贵站,欢迎去看看
我看看呢。
人的一切痛苦,本质上是对自己无能的愤怒。这句话说得挺好

一直很喜欢这句话呢。
web前端网(infofuns.com),希望与贵站友链
PHP程序员,雷雪松(Raykaeso)的个人博客是一个优秀的IT技术博客。前来访问学习,希望能互加友情链接。
人的一切痛苦,本质上是对自己无能的愤怒,一个特立独行的程序员。这句话说得挺好
谢谢。
您好,我看了您的文章大受启发,现在我在ACCESS中用的 Dim CONN As ADODB.Connection
Dim RS As ADODB.Recordset
RS.CursorType = 3’此句很重要,务必要写。
On Error Resume Next
CONN.Open “Provider=sqloledb;Server=LENOVO-55Q4LWP8;Database=管理;Uid=sa;Pwd=iadmin;”
If Err.Number 0 Then
MsgBox “连接数据库错误。原因是:” & Err.Description
Exit Sub
End If
Err.Clear
RS.Open “订单计价 @客户编号='” & Me.客户编号.txt & “‘”, CONN, 1, 1
If Err.Number 0 Then
MsgBox “执行存储过程时失败。原因是:” & Err.Description
Exit Sub
End If
Err.Clear
on error goto 0
If RS.RecordCount > 0 Then
‘有查询到的结果,你自行处理
‘你的处理代码……….
End If
RS.Close
Set RS = Nothing
CONN.Close
Set CONN = Nothing
这段代码 提示 块没有定义 或 WITH块 没有设置,请问要 添加哪 个引用才能正常运行啊?
哪一句出错了呢。