各位前辈，真诚请教+救命。

把 set barcode=nothing 去掉试试。
你的Dim barcode As New ADODB.Recordset是模块级变量吗？

解决方案 »

  1.   

    把 set barcode=nothing 去掉试试。
    (不行！)
    模块级变量？
    在“通常“上DIM的变量啊！我还有6个ADODB.Recordset都是在这里DIM的。
    所以才奇怪！
      

  2.   

    没有笔误吧？
    你加上OPTION EXPLICIT在程序开始处再调试试。
      

  3.   

    没有笔误吧？
    你加上OPTION EXPLICIT在程序开始处再调试试。(加了！还是一样啊？)怎么办啊！天啊。我明天就要交货了，叫了货就可以离开这倒霉公司！！！！！！！！！！！！！！！！！
      

  4.   

    “对象变量或with块变量未设置”
    一般是Dim barcode As New ADODB.Recordset时没有加 New 造成的
    至于你的情况，实在是让人困惑！
      

  5.   

    据说Dim barcode As New ADODB.Recordset这样不是很好的风格，试一下
    Dim barcode As ADODB.Recordset
    然后再Set barcode As New ADODB.Recordset
      

  6.   

    不行啦！provastrel你的根本就不行嘛！
    pandawind(熊猫) 
    会不会是我sql server有问题？但是我曾经删掉一个可以用的表，用这个表的名字代替BARCODE但是一样是这样的问题。
      

  7.   

    hehe,然后再Set barcode = New ADODB.Recordset
    另外：你确定你应用的是你需要的ADO版本
      

  8.   

    prowastrel
    调试了说是无效的外部过程。
      

  9.   

    ms ado data control 6.0 (sp4)
      

  10.   

    你把你的源码发给我吧
    [email protected]
      

  11.   

    if barcode.state=1 then
                 barcode.close
                 set barcode=nothing
              endif
    ' 加下面一句
      set barcode= new ADODB.Recordset          With barcode
                 Set .ActiveConnection = db
                     .CursorType = adOpenKeyset
                     .LockType = adLockOptimistic
                     .Open "select * from barcode" 
              End With
      

  12.   

    回pandawind
      我发了给你了。
      

  13.   

    回thorkhan的话：一样啊！天啊。
      

  14.   

    To jung2002(一笑百媚生)
    我理解有誤﹐Sorry
    我在編寫數据庫程序時也是這樣﹐怎么沒有錯誤﹐是不是上下文程序關聯有錯誤﹖