社区
数据库(包含打印,安装,报表)
帖子详情
在运行到下面这一句 Dim objrs As New ADODB.Recordset 时
skywen
2003-09-29 04:45:41
出现这样的错误:
class does not support Automation or does not support expected interface
请问这是什么原因?谢谢
...全文
52
8
打赏
收藏
在运行到下面这一句 Dim objrs As New ADODB.Recordset 时
出现这样的错误: class does not support Automation or does not support expected interface 请问这是什么原因?谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
skywen
2003-09-30
打赏
举报
回复
安装了Mdac2.7之后 就不出这问题了。
zhangqs
2003-09-30
打赏
举报
回复
你把ado的版本改为2.0肯定没问题
zsq70
2003-09-29
打赏
举报
回复
Dim rstemp As ADODB.recordset
set rstemp = new adodb.recordset
busisoft
2003-09-29
打赏
举报
回复
选择 工程-》属性-》生成-》在“命令行参数”中去掉自动登陆的用户名,或密码。在可执行文件中does not support Automation。
armu80830
2003-09-29
打赏
举报
回复
引用的ado版本问题
j4sxw
2003-09-29
打赏
举报
回复
代码贴出来
nieer
2003-09-29
打赏
举报
回复
安装ADO2.7吧.
Jackile
2003-09-29
打赏
举报
回复
把你实现数据库操作的完整代码贴一下!
DataGrid分页
VB DataGrid分页 请看: 数据库:test2000.m
db
表:numbe
rs
字段:Id(自动编号),anumber(数字) 因为DataGrid控件我们采用直接绑定记录集来显示数据.所以分页处理我们采用了间接的办法,定义另一个记录集
obj
rs
,将分页后的记录集付给
obj
rs
.然后绑定DataGrid ''效果还不错 , 我加了详细地注释,像pagesize, AbsolutePage的用法可参考msdn VB中新建工程,form中添加DataGrid控件,按钮cmdPrevious和cmdNext,文本框txtPage ''引用microsoft active data
obj
ect 2.x
obj
ect library Option Explicit
Dim
conn As
ADO
DB
.Connection
Dim
lCurrentPage As Long Private Sub cmdNext_Click() lCurrentPage = lCurrentPage + 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub cmdPrevious_Click() If lCurrentPage > 1 Then lCurrentPage = lCurrentPage - 1 Call Loadcontrol(lCurrentPage) End If End Sub Private Sub Form_Load() Set conn =
New
ADO
DB
.Connection conn.Cu
rs
orLocation = adUseClient conn.Open "PROVIDER=Microsoft.Jet.OLE
DB
.4.0;Data Source=" & App.Path & "\test2000.m
db
;" lCurrentPage = 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub Loadcontrol(lPage As Long)
Dim
ado
Primary
RS
As
ADO
DB
.
Recordset
Dim
lPageCount As Long
Dim
nPageSize As Integer
Dim
lCount As Long ''每页显示的纪录 nPageSize = 10 Set
ado
Primary
RS
=
New
ADO
DB
.
Recordset
ado
Primary
RS
.Open "select * from numbe
rs
", conn,
adO
penStatic, adLockOptimistic
ado
Primary
RS
.PageSize = nPageSize ''页数 lPageCount =
ado
Primary
RS
.PageCount If lCurrentPage > lPageCount Then lCurrentPage = lPageCount End If
ado
Primary
RS
.AbsolutePage = lCurrentPage ''定义另一个记录集
Dim
obj
rs
As
New
ADO
DB
.
Recordset
''添加字段名称 For lCount = 0 To
ado
Primary
RS
.Fields.Count - 1
obj
rs
.Fields.Append
ado
Primary
RS
.Fields(lCount).Name, adVarChar,
ado
Primary
RS
.Fields(lCount).DefinedSize Next ''打开记录集
obj
rs
.Open ''将指定记录数循环添加到
obj
rs
中 For lCount = 1 To nPageSize
obj
rs
.Add
New
obj
rs
!id =
ado
Primary
RS
!id
obj
rs
!anumber =
ado
Primary
RS
!anumber
ado
Primary
RS
.MoveNext Next ''绑定 Set DataGrid1.DataSource =
obj
rs
''在文本框显示页数 txtPage = lPage & "/" &
ado
Primary
RS
.PageCount End Sub Private Sub Form_Unload(Cancel As Integer) If Not conn Is Nothing Then conn.Close End If Set conn = Nothing End Sub ‘文本框中输入页数,回车跳转到指定位置 Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer) lCurrentPage = Val(txtPage.Text) Call Loadcontrol(lCurrentPage) End Sub
ASP代码实现自动清除替换ACCESS(M
DB
)数据库的日文字符的
此
时
我们通常能想到的想法是找一个exe程序,把这个问题解决掉。我原来用C#写过这样一个类似的程序。 Google里面应该能找到我以前写的那个。就不说了。 后来某一天,我发现ASP就能实现。我当
时
真的觉得自己太屎了。 不过ASP的这种方法很不好。容易造成系统崩溃(如果数据库大)。 所以只是写在这里。算是抛砖引玉。 ‘
下面
我解释一下下: Function TransferJapanDc9CnIn
DB
() On Error Resume Next Err.Clear
Dim
obj
RS
,i Set
obj
RS
=Server.Create
Obj
ect(“
ADO
DB
.
Recordset
”
Dim
obj
Rs
as
new
RecordSet
和
Dim
obj
Rs
as
RecordSet
的比较
敲实例4遇到问题的思考,多一个
new
大有学问。 在内存中分配空间的
时
间和实例化的
时
间不同: 对于
Dim
obj
Rs
as
new
RecordSet
,当第一次使用
obj
Rs
的
时
候,才在内存中分配空间和实例化。 对于
Dim
obj
Rs
as
RecordSet
,声明
obj
Rs
为
RecordSet
类类型变量,和声明普通变量一样,此
时
已经在内存中分配存储空间了。当使用Set o
vb 获取mysql表第一行数据_vb如何将远程获取的数据插入本机数据表中
双击按钮添加如下代码Private Sub Command1_Click()
Dim
obj
RemoteConn As
New
ADO
DB
.Connection
Dim
obj
LocalConn As
New
ADO
DB
.Connection
Dim
obj
Rs
As
ADO
DB
.
Recordset
Dim
st
rS
ql As...
access vba 用
recordset
读取表中数据的简单方法
'strQuery是表名,查询名等 Public Function Get
rs
(Byval strQuery as string) as
ADO
DB
.
Recordset
Dim
obj
Rs
As
New
ADO
DB
.
Recordset
on Error GoTo Error_Get
rs
obj
Rs
.open strQuery,CurrentProject.connection '
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章