二台共享的电脑分别运行同一段语句，结果不同！

良斌　发表于：2010-12-21 20:11:09 　

下面这段语句在共享的二台电脑上分别运行，一台电脑可以判别出【菜品更新表】上【数量】，另一台电脑则只能执行 rs!数量 = 0的提示，请教是哪里设置出问题了？

Dim cnxn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

Set cnxn = CurrentProject.Connection

strSQL = "SELECT * FROM 菜品更新表 WHERE 编号 = 1004;"

rs.Open strSQL, cnxn, adOpenKeyset, adLockOptimistic

      If rs!数量 = 0 Then
        MsgBox "抱歉，该菜品已售罄", "64", "[提请注意]"
    Else
       Me.img0.Picture = "D:\餐饮\\照片\炸猪排.JPG"

End If

wang decheng 发表于：2010-12-22 08:15:18

问题在 currentProject.Connection 其含义是打开的本地连接

另一台电脑需要用 "Provider=" 等语句进行连接

良斌发表于：2010-12-22 10:02:00

谢谢wang decheng的指导，但是这里需要打开的正是本地连接（数据库本身的菜品更新表）。同样这个数据库复制到另一台电脑上就是只能执行 rs!数量 = 0的提示。真是百思不得其解，希望得到指教。

良斌发表于：2010-12-26 16:11:39

更改Access选项和重新安装Access后均未见效，最后重新安装系统后，得以恢复。可能是在设置共享项目时出现的问题，虽然不清楚具体是哪个设置出错，还是想告知关心这个问题的朋友，以后遇到这类问题可以借鉴。

朱亦文发表于：2010-12-28 17:16:05

这样代码要简单得多，更明快，不易出错（前提：编号是主键字段）

Dim sl as Integer

sl = DLookup("数量", "菜品更新表", "编号 = 1004")

If sl = 0 Then

MsgBox "抱歉，该菜品已售罄", "64", "[提请注意]"
Else
Me.img0.Picture = "D:\餐饮\\照片\炸猪排.JPG"

End If

一十先生发表于：2010-12-29 08:58:55

两台电脑上access的版本是否相同,我也有过这样的情况,access2003能运行,而access2007却不能运行,百思不得其解!

总记录：5篇页次：1/1 9 1 :

Access交流中心