Private Sub add_Click()Dim insertHold As String
With addstr
  .ActiveConnection = currentproject.Connection
  .CursorType = adOpenStatic
  .LockType = adLockReadOnly
End With insertHold = "insert into userinfo(user_name,user_sex,user_phone,user_birthday,user_adress) values('张3',null,null,null,null)"
 atic.Open insertHold, currentproject.Connection
 
End Sub这是增加按钮的代码, formload时 已经连接数据库了,但现在点这个add按钮,就报.ActiveConnection = currentproject.Connection这要求对象另外 rs.requery 一般在什么时候用呢?

解决方案 »

  1.   

    set .ActiveConnection = currentproject.Connection
      

  2.   

    不是这个问题  有with里就不要set了。现在关键是我输入currentproject.时 后面没跳出任何东西
    错误也定为到这,currentproject.要求对象。另外我吧这段代码删掉  执行  说数据库可能关闭了,但我formload时并没关啊。。
    总不至于每次都打开关闭吧
      

  3.   

    学习。UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
      

  4.   

    04你也不知道吗?? 在VBA理输入currentproject.后面会跳出东西来的 但VB里就没
    或者我这种方法根本就不对。那提供一个常用的好吗
      

  5.   

    rs.requery 一般用于数据库更新,比如ado空间链接的数据库添加新的记录,最后添加一条rs.requery 程序行,数据库就可以更新,用法和refresh差不多