一些语句的转换

[naka]

连接SQL的数据，后来改为ACCESS数据库
一些语句该做何修改呢？
语句一：
For Each cl In rs.rdoColumns
KLimit = KLimit + 1
Next
ReDim d(KLimit)

rs.rdoColumns在ACCESS行不通，怎么改呢？
语句二：
If MyRs.RowCount >= 1 Then
MyRs.RowCount 也是行不通
语句三：
MySql = "UPDATE opuser SET password = '" & Trim(txtNew.Text) & "' where name = '" & waiwainame & "'"
Set rs = mycn.Execute(MySql)
这句话怎么运行时老是提示update附近有语法错误呢？可是没有阿
难道这个语句在SQL行得通在ACCESS也行不通？

[faysky2]

三个语句分别都提示什么错误？
执行语句三前，把sql语句打印出来看看是否正确

MySql = "UPDATE opuser SET password = '" & Trim(txtNew.Text) & "' where name = '" & waiwainame & "'"
Debug.Print MySql '<--------------打印到立即窗口看结果是什么样子
Set rs = mycn.Execute(MySql)

• 打赏
• 举报

回复 赞

[naka]

faysky2,那个问题解决了，好像是因为password是access的保留字符
我换个名字就好了

• 打赏
• 举报

回复 赞

[naka]

1和2呢

• 打赏
• 举报

回复 赞

[faysky2]

1和2提示的是什么错误？

• 打赏
• 举报

回复 赞

[faysky2]

你用的是RDO，工程里是否已经引用了RDO？
把语句三中的 password 和name 用[]括起来再试 ： [password] [name]

• 打赏
• 举报

回复 赞

[naka]

faysky2,已经引用了
用[]括起来也不行，还是一样的出错

• 打赏
• 举报

回复 赞

[naka]

faysky2,1和2换另一种方式也解决了

• 打赏
• 举报

回复 赞

[naka]

faysky2,给你发信息了

• 打赏
• 举报

回复 赞