社区
数据库(包含打印,安装,报表)
帖子详情
在运行到下面这一句 Dim objrs As New ADODB.Recordset 时
skywen
2003-09-29 04:45:41
出现这样的错误:
class does not support Automation or does not support expected interface
请问这是什么原因?谢谢
...全文
54
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
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 '
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...
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章