一些语句的转换

naka 2006-04-22 11:26:11
连接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也行不通?


...全文
145 8 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
naka 2006-04-23
faysky2,给你发信息了
  • 打赏
  • 举报
回复
naka 2006-04-23
faysky2,1和2换另一种方式也解决了
  • 打赏
  • 举报
回复
naka 2006-04-22
faysky2,已经引用了
用[]括起来也不行,还是一样的出错
  • 打赏
  • 举报
回复
faysky2 2006-04-22
你用的是RDO,工程里是否已经引用了RDO?
把语句三中的 password 和name 用[]括起来再试 : [password] [name]
  • 打赏
  • 举报
回复
faysky2 2006-04-22
1和2提示的是什么错误?
  • 打赏
  • 举报
回复
naka 2006-04-22
1和2呢
  • 打赏
  • 举报
回复
naka 2006-04-22
faysky2,那个问题解决了,好像是因为password是access的保留字符
我换个名字就好了
  • 打赏
  • 举报
回复
faysky2 2006-04-22
三个语句分别都提示什么错误?
执行语句三前,把sql语句打印出来看看是否正确

MySql = "UPDATE opuser SET password = '" & Trim(txtNew.Text) & "' where name = '" & waiwainame & "'"
Debug.Print MySql '<--------------打印到立即窗口看结果是什么样子
Set rs = mycn.Execute(MySql)
  • 打赏
  • 举报
回复
发帖
VB基础类

7637

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2006-04-22 11:26
社区公告
暂无公告