龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

在抓取资料库之资料前先计算资料总笔数

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：
SubForm1_Load()
　　DimdbAsDatabase
　　DimdsAsSnapshot
　　DimiNumAsInteger'总笔数
　　DimwsqlAsString'SQL字串
　　
　　wsql="SelectCount(*)fromAuthorsWhereAU_ID>10"
　　Setdb=OpenDatabase("c:vbiblio.mdb")
　　Setds=db.CreateSnapshot(wsql)
　　iNum=ds(0)
　　MsgBox"总笔数为" Str$(iNum)
　　EndSub
　　
　　怎么样，是不是一样呢，只差在一个是ADO，一个是DAO而已！->

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

密码解密 vnc服务器配置 并发下载 单元 用处 禁用Tab键 非成员函数 下载 将视频转成 ipv6 睡眠排序法 linux实用工具 sz命令 空格 树形结构读取 视频媒 中文文 怎么使用l 可逆加密算法 截取字符 图片自适应 虚拟继承 php php enco 视频插件 球体体积 Cookie.py 多次 RPM卸载 判 302 以做 中文转全拼 zip扩展安装 执行函数 if jxl包 高亮 Copy-On-Writ ini文件操作类 数据库表 status INTERSECT 线性方程 渐进式 同步显示 比例缩小 空值排序 跳出框架 安装ie confi 时间转换 清除标签 java反射机制 中国天气网 生命期 php php文本 表达式查 跨站 utf8_unicode 画

赞助商链接