求救：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、前后连�
相关问答：
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
有一个数据库里只有2W条数据不到，却有500M那么大,怎么回事啊？是ACCESS的数据库。后来我把ACCESS导入到MSSQL中，也占用了500M左右的空间，如果压缩数据库呢？请高手指点
压缩数据库？能做到么...
期待高人指点 我 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
问题是这样的,现在有一个工资表,是EXCEL的,我要把它导入ACCESS,因为 要查询每个人的工资,根据不同的编号可以查询到相对的人,
用ASP 怎么将EXCEL导入到ACCESS,而且每月都有不同的表,
引用
其实就是把EXCEL当成数 ......
