2063
社区成员
- 全部
vba怎么取不到记录集的个数
相关语句如下：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim R As Integer
ConnectString = "DRIVER={SQL Server}; SERVER=192.168.0.1;UID=u1;PWD=u1; DATABASE=database2000"
cn.Open ConnectString
sqlstr = "select * from user_list"
Set rst = cn.Execute(sqlstr)
R = rst.RecordCount
1.为什么R总是等于-1呢？
2.如果user_list表中没有数据或没这个表，cn.Execute(sqlstr)是不是会出错？
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim R As Integer
ConnectString = "DRIVER={SQL Server}; SERVER=192.168.0.1;UID=u1;PWD=u1; DATABASE=database2000"
cn.Open ConnectString
sqlstr = "select * from user_list"
Set rst = cn.Execute(sqlstr)
R = rst.RecordCount
1.为什么R总是等于-1呢？
2.如果user_list表中没有数据或没这个表，cn.Execute(sqlstr)是不是会出错？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zyg0 2005-08-22
cn.Open ConnectString,3,3
指定游标类型是3才能使用这个属性
指定游标类型是3才能使用这个属性
fishmans 2005-08-22
没东西做测试，VBScript应该差不多的
呵呵
呵呵
luhaiping 2005-08-22
谢谢。搞定
fishmans 2005-08-22
<htm>
<script language="vbscript">
sub slinkdb ()
dim cnn
dim rst
set cnn=createobject("adodb.connection")
set rst=createobject("adodb.recordset")
cnn.ConnectionString="Provider = SQLOLEDB.1;Data Source=192.168.0.1;Password=XXX;Persist Security Info=True;User ID=Sm;Initial Catalog=SM"
cnn.CursorLocation=3
cnn.open
rst.open "select * from userinfo",cnn
msgbox rst.recordcount
rst.close
set rst=nothing
cnn.close
end sub
</script>
<head>
</head>
<body>
<input type=button value=连接数据库 onclick=slinkdb()>
</body>
</htm>
看看你少了哪里？
<script language="vbscript">
sub slinkdb ()
dim cnn
dim rst
set cnn=createobject("adodb.connection")
set rst=createobject("adodb.recordset")
cnn.ConnectionString="Provider = SQLOLEDB.1;Data Source=192.168.0.1;Password=XXX;Persist Security Info=True;User ID=Sm;Initial Catalog=SM"
cnn.CursorLocation=3
cnn.open
rst.open "select * from userinfo",cnn
msgbox rst.recordcount
rst.close
set rst=nothing
cnn.close
end sub
</script>
<head>
</head>
<body>
<input type=button value=连接数据库 onclick=slinkdb()>
</body>
</htm>
看看你少了哪里？
luhaiping 2005-08-22
我输入 cn.Open ConnectString,3,3 时
提示的是,userid,passsword
运行时报错，用户3登陆失败
提示的是,userid,passsword
运行时报错，用户3登陆失败
ADO：使用记录集对象Recordset 查询数据库中的数据 在 ADO 程序开发中，记录集对象 Recordset 对象代表...①、记录集对象 Recordset 的属性：⑴ RecordCount 属性：返回记录集中记录的个数；⑵ BOF、EOF 属性：BOF 指示当前记录位置位于记录集对象的第一个记录之前；E...
VBA入门到进阶常用知识代码总结52 第52集 Txt文件的读取 246、 读取txt文件内容方法 Input：从文件中读取指定数量的字符 Input #：把数据读出放在变量里，变量用逗号分隔 Line Input #：取出完整的一行 247、 Input函数读取 Input 函数只用于以 Input...
Excel VBA 中使用集合和字典对比总结 Excel VBA 中使用字典总结 collection（集合）对象 VBA中有一个集合对象（collection），Collection 对象是一组可称为“单元”的有序项目的集合，可以理解为可以随意增减数量的一维数组。 Collection对象提供了一种...
VBA语句集100句 (Word VBA) [转] VBA语句集100句 (Word VBA) http://you613.blog.163.com/blog/static/59514692009116114431678/ - - - - - - - - - - - - - - - - - - - - Application对象 - - - - - - - - - - - - - - - - - - - - (301) ...
Excel VBA语句集300 定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option ...
VBA 语句集400句 定制模块行为(1) ...'标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1(2) On Error Resume Next '忽略...
【LuKS】Vba开发从入门到精通 =.= 第一章VBA语言基础简介 第一节 标识符. 2 第二节 运算符. 2 第三节 数据类型. 2 第四节 变量与常量. 3 第五节 数组. 3 第六节 注释和赋值语句. 3 第七节 书写规范. 3 第八节 判断语句. 4 第九节 循环语句. ...
小白福音——VBA编程常用——命令三百例 ```vbnet * # Excel VBA编程常用语句300句 * ...博主：**代码农夫** 感谢大佬总结并分享出来~ ...# * VBA 语句集 * * (第 1 辑) * ************** **************** ## * 定制模块行为 * ****...
excel vba 数据分析 VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言，其语法结构与Visual Basic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一．定义 标识符是一...
access vba代码大全_这本VBA经典图书终于做活动了，还是5折！ HI~大家好。记得之前一直给大家推荐咱们EH论坛编著的VBA图书《Excel VBA经典代码应用大全》，这书出来有段时间了...复制我你就会爱上我▼http://t.cn/A6zNQZfI2019集大成力作《Excel VBA经典代码应用大全》内容简介...
大数据分析的好帮手 Excel函数应用的顶级实战 Excel数据分析应用+VBA实战 24G课程 ===============课程目录=============== ├<第二章 函数应用篇 01-30> │├2-01 公式求值和F9帮您解析函数的运算逻辑和顺序 │├2-02 相对引用和绝对引用让公式填充如虎添翼 │├2-03 逻辑值既能用来判断，也...
Excel VBA 语句集300 定制模块行为(1) Option Explicit 强制对模块内所有变量进行声明 Option Private Module 标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text 字符串不区分大小写 Option Base ...
Excel VBA语句集 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base...
【知识小集】☞Excel之VBA编程语句集300句 Excel VBA常用300句定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text ‘字符串不...
access vba函数 access vba函数Abs 函数 返回参数的绝对值，其类型和参数相同。 语法Abs(number) 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。说明一...
Access基础教程--第八章 使用VBA编程 本章内容 ◆ VBA编程基础◆ 创建和设计VBA程序◆ VBA程序调试与运行 一、VBA编程基础知识 在执行简单的操作时，宏可以完成，如窗体的打开与关闭、工具栏的显示和隐藏等。对于稍复杂一些的任务，则可用Visual ...
Excel VBA属性、方法、事件大全——Part5（Complete List of Excel VBA attribute/method and event） 对象/属性/方法/事件（Object/Attribute/ Method/Event） 描述（Description） EDate 返回表示某个数据的序列号，该数据代表指定日期 (start_date) 之前或之后的月份数。使用函数 EDATE 可以计算与发行日处于一月...
Excel VBA编程常用语句300句 * VBA 语句集 * * (第 1 辑) * ************** **************** * 定制模块行为 * **************** (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工
Excel VBA属性、方法、事件大全——Part3（Complete List of Excel VBA attribute/method and event） 为了避免虎头蛇尾，趁着今天的最高篇数还没达到时，再发一篇不费脑子的文章。其实，严格来讲，这也是曾经费脑子写代码提取出来的资料。虽然结构不是还可以更完美，但是作为检索工具，应该也能凑活着用。（提示：CTRL...
通过ResultSet获取到rs的记录数的几种方法 JDBC中的ResultSet API没有直接获取记录条数的方法，现介绍几个： 方法一：利用ResultSet的getRow方法来获得ResultSet的总行数 ResultSet rs = ps.executeQuery(sql); rs.last(); //移到最后一行 int rowCount =...
VBA编程常用语句300句 *************** VBA 语句集 ** (第 1 辑) ******************************** 定制模块行为 *****************(1) Option Explicit 强制对模块内所有变量进行声明 Option Private Module 标记模块为私有,仅对同一...
VBA经典常用语句400句 VBA经典常用语句400句 定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不...
