一些语句的转换

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也行不通?


...全文
175 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧