在数据库没有记录的时候,txtmsg的记录为-1,如何显示正常代码如下

fanghong007 2004-03-02 11:42:26
Set objcn = New ADODB.Connection
'建立数据库连接
With objcn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=f:\sales.mdb;" & _
"Persist Security Info=False"
.Open
End With
'创建断开连接的客户端记录集
Set objrs = New ADODB.Recordset
With objrs
.CursorLocation = adUseClient '指定使用客户端光标
.LockType = adLockBatchOptimistic '锁类型为开放
.Open "select * from product", objcn
Set .ActiveConnection = Nothing
End With
'关闭数据库连接
objcn.Close '文本框绑定略
txtmsg = "当前记录:" & .AbsolutePosition & "/" & .RecordCount
...全文
33 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

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

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