社区
数据库(包含打印,安装,报表)
帖子详情
如何调用返回值类型为recordset的函数?
oldsky
2003-09-08 10:25:05
我遇到如下问题:
Dim rst As New adodb.Recordset
Set rst = ReadTQStyle() 'ReadTQStyle函数返回类型为recordset
Debug.Print rst.RecordCount '报错:对象关闭时,操作不允许
...全文
75
11
打赏
收藏
如何调用返回值类型为recordset的函数?
我遇到如下问题: Dim rst As New adodb.Recordset Set rst = ReadTQStyle() 'ReadTQStyle函数返回类型为recordset Debug.Print rst.RecordCount '报错:对象关闭时,操作不允许
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
xingnup
2003-09-11
打赏
举报
回复
你应该贴ReadTQStyle函数的代码出来大家才能帮你分析.
tfront
2003-09-09
打赏
举报
回复
为什么不把函数直接写成Public Function ReadTQStyle() As Adodb.RecordSet
返回值也不用写rs.clone,直接Set ReadTQStyle=rs就可以了。
oldsky
2003-09-09
打赏
举报
回复
ReadTQStyle()
函数F8单步调没问题
xingnup
2003-09-08
打赏
举报
回复
应该是你的函数返回Recordset失败了.或返回的Recordset未打开.
betagain
2003-09-08
打赏
举报
回复
ReadTQStyle(里面少东西?)
lxcc
2003-09-08
打赏
举报
回复
Public Function ReadTQStyle() As Object
Dim strSql As String
strSql = "SELECT * FROM YourTable WHERE con..."
On Error Resume Next
rs.Open strSql, cn, 1, 3
If Err.Number <> 0 Then
'MsgBox "应用程序出错,错误提示:" & Err.Description
Exit Function
End If
Set ReadTQStyle= rs.Clone
rs.Close
End Function
lxcc
2003-09-08
打赏
举报
回复
Public Function ReadTQStyle() As Object
Dim strSql As String
strSql = "SELECT * FROM YourTable WHERE con..."
On Error Resume Next
rs.Open strSql, cn, 1, 3
If Err.Number <> 0 Then
'MsgBox "应用程序出错,错误提示:" & Err.Description
Exit Function
End If
Set ReadTQStyle= rs.Clone
rs.Close
End Function
wumy_ld
2003-09-08
打赏
举报
回复
把ReadTQStyle()的代码贴出来看看,应该是那里面有问题
dary_zhou
2003-09-08
打赏
举报
回复
我建义你用F8进行调试一下,看问题出在哪里
还有一种可能就是你的记录集打开方试如果不是1,1那rst.RecordCount 这个属性就会是-1
szyhy810518
2003-09-08
打赏
举报
回复
建议用函数参数传递Recordset对象
Public Function ReadTQStyle(objRs as adodb.recordset) As boolean
Dim strSql As String
strSql = "SELECT * FROM YourTable WHERE con..."
On Error Resume Next
objRs.Open strSql, cn, 1, 3
If Err.Number <> 0 Then
ReadTQStyle=false
else
ReadTQStyle=true
End If
End Function
pyhjy
2003-09-08
打赏
举报
回复
连接对象connection的execute方法的返回值是recordset
二手房销售管理信息系统
'
返回值
:超过
返回值
为True,否则为false ' ****************************************************************************** Public Function ISEquelLen(ByVal txt As TextBox, intlen As Integer) As Boolean ...
ADODB.
Recordset
作为
函数
参数传递的
类型
不匹配错误
代码如下:第7行出现了 “
类型
不匹配”(Type dismatch)的运行时错误,代码13,...原因可能是因为
调用
的
函数
没有
返回值
,所以需要Call一下。 Public Sub GetFromAccess() Dim myCmd As New ADODB.Command Dim myR...
ADO对象之
Recordset
用法总结
在ADO程序中,记录集(
Recordset
)对象代表一个表的记录集合或者是一个SQL命令或存储过程执行结果。简单地说:记录集实际上缓存了从数据库获得的记录,应用程序可以从记录集中获得每条记录的字段。
Recordset
对象的...
vb
调用
oracle
函数
返回值
,vb
调用
Oracle
函数
返回数据集的例子-数据库专栏,ORACLE...
——————————————————————————————————– vb 代码: private sub command1_click() on error goto cursorerr: dim cnn as new adodb.connection dim rst as new adodb.
recordset
...
【转】WinCC VBscript常用标准
函数
总结
在WinCC软件中使用VBS进行编程的时候常常使用的标准
函数
整理如下: 数值型
函数
:abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值 直接表示:&...
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章