如何知道SQL查询后查询到的数据个数!!!!!

yh1205 2004-08-24 03:13:22
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sjk.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
Dim str As String

If Text1.Text = "" Then MsgBox "用户简称不能为空", vbExclamation + vbOKOnly, "提示": Text1.SetFocus: Exit Sub
If Text2.Text = "" Then MsgBox "用户姓名不能为空", vbExclamation + vbOKOnly, "提示": Text2.SetFocus: Exit Sub
If Text5.Text = "" Then MsgBox "用户密码不能为空", vbExclamation + vbOKOnly, "提示": Text5.SetFocus: Exit Sub
If Combo1.Text <> "标准" And Combo1.Text <> "管理" Then MsgBox "权限应为“标准”或“管理”!", vbExclamation + vbOKOnly, "提示": Exit Sub
str = "select * from 用户 where 简称='" & Text1.Text & "'"
rs.Open str, cn


If rs.RecordCount <> 0 Then
rs.Close
str = "select * from 用户"
rs.Open str, cn, 1, 3
rs.MoveFirst
rs.AddNew
Else
MsgBox "存在相同的用户简称", vbExclamation + vbOKOnly, "提示"
Exit Sub
End If







用recordcount说不行,出错!!!,那用什么呢?
...全文
182 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
superxiaomm 2004-08-24
rs.open这里的问题
回复
gpyrbn 2004-08-24
楼上的做法也是可行的!直接统计出一个记录数来判断是否有重复的记录!另外还可以把记录集的cursorlocation属性设置为客户端游标,如:
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sjk.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
Dim str As String

设置客户端游标 rs.cursorlocation=aduseclient

回复
bladeinside 2004-08-24
设置cn.CursorLocation = adUseClient
回复
LGYAN 2004-08-24
使用:
str = "select count(简称) from 用户 where 简称='" & Text1.Text & "'"
rs.Open str, cn


If rs.fields(0).value =0 Then
rs.Close
str = "select * from 用户"
rs.Open str, cn, 1, 3
rs.MoveFirst
rs.AddNew
Else
MsgBox "存在相同的用户简称", vbExclamation + vbOKOnly, "提示"
Exit Sub
End If
回复
online 2004-08-24
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sjk.mdb;Persist Security Info=False"
cn.Open
设置客户端游标
cn.CursorLocation = adUseClient

MsgBox rs.recordcount
回复
iiboy 2004-08-24
rs.Open str, cn,1,3
回复
netexe 2004-08-24
rs.Open str, cn, 1, 1
回复
sy1573 2004-08-24
recordcount可以的说明你代码有错误
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-24 03:13
社区公告
暂无公告