您的位置：程序门 -> vb -> 基础类

microsoft jet数据库引擎找不到输入表或查询

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

microsoft jet数据库引擎找不到输入表或查询

发表于：2007-04-17 22:12:47 楼主

rs1.open "select * from 销售员信息管理表 order by 销售员编号 ", cnn, adopenkeyset, adlockoptimistic

发表于：2007-04-17 22:47:451楼得分:0

光这段代码没有问题～

发表于：2007-04-17 23:04:392楼得分:0

private sub comdtj_click（)
'添加用户
dim bh as long
rs1.open "select * from 销售员信息管理表 order by 销售员编号 ", cnn, adopenkeyset, adlockoptimistic
if rs1.recordcount > 0 then
if rs1.eof = false then rs1.movelast
bh = val（rs1.fields（ "销售员编号 ")) + 1
xsybh.text = format（bh, "00 ")
else
xsybh.text = "01 "
end if
yhm.setfocus
rs1.close
end sub
这是全部

下一篇：这个是什么意思啊!
上一篇：如何将button控件数组按数量动态排列成几行？

其他资讯