1,216
社区成员
发帖
与我相关
我的任务
分享各位高手您好：最近我编程了一个软件，该程序在XP下可以运行，但是在98下不行……
具体情况是：
首先用一查询语句 检查 今天是否已经有该记录
dim rs as adodb.recordset
dim rs = new adodb.recordset
rs.open main where 质量=质量+ '"& rsmain &"' where 日期=#'" & date &"'#_ and 名称='"& 汽油 &"'",adocnn
if rs.eof =true then
addnew
……
rs.updata
else
"updata main set 质量=质量+ '"& rsmain &"' where 日期=#'" & date &"'#_ and 名称='"& 汽油 &"'",adocnn,optis……，state……
更新“质量”字段。
出错说明：
该程序在XP下，工作正常；但在98下rs.eof 始终为true，每次都添加一新记录，并不累加“质量”字段。
我已经在98上安装 mdac_type.exe
相逢即为朋友，请各位朋友帮帮忙！！
首先用一查询语句 检查 今天是否已经有该记录
dim rs as adodb.recordset
dim rs = new adodb.recordset
rs.open main where 质量=质量+ '"& rsmain &"' where 日期=#'" & date &"'#_ and 名称='"& 汽油 &"'",adocnn
if rs.eof =true then
addnew
……
rs.updata
else
"updata main set 质量=质量+ '"& rsmain &"' where 日期=#'" & date &"'#_ and 名称='"& 汽油 &"'",adocnn,optis……，state……
更新“质量”字段。
出错说明：
该程序在XP下，工作正常；但在98下rs.eof 始终为true，每次都添加一新记录，并不累加“质量”字段。
我已经在98上安装 mdac_type.exe
相逢即为朋友，请各位朋友帮帮忙！！
...全文
请发表友善的回复…
发表回复
dengyiwolf 2003-08-26
- 打赏
- 举报
rs.CursorLocation =adUseClient
rs.cursortype=adopenstatic
rs.cursortype=adopenstatic
hxy2003 2003-08-26
- 打赏
- 举报
在98下装ADO 要与XP的版本一样啊
zymfy 2003-08-26
- 打赏
- 举报
rs.CursorLocation =adUseClient
设置一下记录集的游标
设置一下记录集的游标
lzj34 2003-08-26
- 打赏
- 举报
mdac_type.exe是多少版
XUZIFENG 2003-08-26
- 打赏
- 举报
或把 IF RS.EOF=TRUE THEN 改成 IF RS.EOF THEN 试试
RS.EOF 已含 TRUE 或 FALSE
RS.EOF 已含 TRUE 或 FALSE
