Quando ero una bambina passavo l&309#;estate a raccogliere i pinoli e a schiacciarli sul balcone di casa. Ricordo le mie manine completamente nere e il sapore dolce dei pinoli sporchi. Mia Mamma non ha MAI preparato il pesto (anzi non ha MAI usato i pinoli in nessuna ricetta!) ed io ho provato un paio di volte, ma con scarsi risultati. Mi piace il tuo modo tradizionale di preparare il pesto. Grazie e proprio un bel post!!!
您好,我看了您的文章大受启发,现在我在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
类型不符合啊。
We’ve arrvied at the end of the line and I have what I need!
Your post has moved the debate foawdrr. Thanks for sharing!
博客开放友情链接了,需要的朋友可以留言。
我们网站的博客导航已添加了贵站,欢迎去看看
我看看呢。
人的一切痛苦,本质上是对自己无能的愤怒。这句话说得挺好

一直很喜欢这句话呢。
web前端网(infofuns.com),希望与贵站友链
Kudos to you! I hadn’t thuhgot of that!
PHP程序员,雷雪松(Raykaeso)的个人博客是一个优秀的IT技术博客。前来访问学习,希望能互加友情链接。
人的一切痛苦,本质上是对自己无能的愤怒,一个特立独行的程序员。这句话说得挺好
谢谢。
Quando ero una bambina passavo l&309#;estate a raccogliere i pinoli e a schiacciarli sul balcone di casa. Ricordo le mie manine completamente nere e il sapore dolce dei pinoli sporchi. Mia Mamma non ha MAI preparato il pesto (anzi non ha MAI usato i pinoli in nessuna ricetta!) ed io ho provato un paio di volte, ma con scarsi risultati. Mi piace il tuo modo tradizionale di preparare il pesto. Grazie e proprio un bel post!!!
您好,我看了您的文章大受启发,现在我在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块 没有设置,请问要 添加哪 个引用才能正常运行啊?
哪一句出错了呢。
BS low – ratoinality high! Really good answer!