求救：VB循环ACCESS字段，并赋值，，，
rsr.Open "select * from sky_user", Conn2, 1, 3
Do While Not rsr.EOF
rsr("CK") = "？"
rsr.MoveNext
Loop
rsr.Update
rsr.Close
这样不行哦，，
怎么解决呢？
VB code:
Do While Not rsr.EOF
rsr("CK") = "？"
rsr.Update
rsr.MoveNext
Loop
rsr.Close
rsr.Open "select * from sky_user", Conn2, 1, 3 ‘这行出错了，提示“实时错误'3709';连接无法用于执行此操作，在此上下文中它可能已被关闭或无效。”
急救，谢谢~！
Set Connr = New Connection
mystr = App.Path
If Right(mystr, 1) <> "\" Then mystr = mystr & "\" 'Provider=Microsoft.Jet.OlEDB.4.0;
Connr.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=admin.mdb;Persist Security Info=False;Jet OLEDB:Database Password=gp8586"
Connr.Open
Set rsr = New Recordset
If rsr.State <> adStateClosed Then rsr.Close
rsr.Open "select * from sky_user", Conn2, 1, 3
Do While Not rsr.EOF
rsr("CK") = "？"
rsr.Update
rsr.MoveNext
Loop
rsr.Close
这是我的代码，请指点一下，谢谢
1、路径写法有问题
2、前后连�
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
