求救：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、前后连�
相关问答：
哪里出错了，输出这样的结果？？
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
问题１
我用ADO连接设了用户名密码的数据库
但是我发现我不输入 用户名和密码 都可以连接成功 而且还能把数据读出来
剪了一个名为test数据库 建了一个名为people的表
见了一个 用户名1234 密码1234 的 ......
有一个数据库里只有2W条数据不到，却有500M那么大,怎么回事啊？是ACCESS的数据库。后来我把ACCESS导入到MSSQL中，也占用了500M左右的空间，如果压缩数据库呢？请高手指点
压缩数据库？能做到么...
期待高人指点 我 ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
