在运行到下面这一句 Dim objrs As New ADODB.Recordset 时

skywen 2003-09-29 04:45:41

出现这样的错误：

class does not support Automation or does not support expected interface

请问这是什么原因？谢谢

...全文

50 8 打赏收藏转发到动态举报

写回复

用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

打赏
举报

把你实现数据库操作的完整代码贴一下！

VB DataGrid分页请看：数据库：test2000.mdb 表：numbers 字段：Id(自动编号)，anumber(数字) 因为DataGrid控件我们采用直接绑定记录集来显示数据.所以分页处理我们采用了间接的办法，定义另一个记录集objrs，将分页后的记录集付给objrs.然后绑定DataGrid ''效果还不错 , 我加了详细地注释，像pagesize, AbsolutePage的用法可参考msdn VB中新建工程,form中添加DataGrid控件,按钮cmdPrevious和cmdNext，文本框txtPage ''引用microsoft active data object 2.x object library Option Explicit Dim conn As ADODB.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 ADODB.Connection conn.CursorLocation = adUseClient conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;" lCurrentPage = 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub Loadcontrol(lPage As Long) Dim adoPrimaryRS As ADODB.Recordset Dim lPageCount As Long Dim nPageSize As Integer Dim lCount As Long ''每页显示的纪录 nPageSize = 10 Set adoPrimaryRS = New ADODB.Recordset adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic adoPrimaryRS.PageSize = nPageSize ''页数 lPageCount = adoPrimaryRS.PageCount If lCurrentPage > lPageCount Then lCurrentPage = lPageCount End If adoPrimaryRS.AbsolutePage = lCurrentPage ''定义另一个记录集 Dim objrs As New ADODB.Recordset ''添加字段名称 For lCount = 0 To adoPrimaryRS.Fields.Count - 1 objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize Next ''打开记录集 objrs.Open ''将指定记录数循环添加到objrs中 For lCount = 1 To nPageSize objrs.AddNew objrs!id = adoPrimaryRS!id objrs!anumber = adoPrimaryRS!anumber adoPrimaryRS.MoveNext Next ''绑定 Set DataGrid1.DataSource = objrs ''在文本框显示页数 txtPage = lPage & "/" & adoPrimaryRS.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

此时我们通常能想到的想法是找一个exe程序，把这个问题解决掉。我原来用C#写过这样一个类似的程序。 Google里面应该能找到我以前写的那个。就不说了。后来某一天，我发现ASP就能实现。我当时真的觉得自己太屎了。不过ASP的这种方法很不好。容易造成系统崩溃（如果数据库大）。所以只是写在这里。算是抛砖引玉。 ‘下面我解释一下下： Function TransferJapanDc9CnInDB() On Error Resume Next Err.Clear Dim objRS,i Set objRS=Server.CreateObject(“ADODB.Recordset”

敲实例4遇到问题的思考，多一个new大有学问。在内存中分配空间的时间和实例化的时间不同：对于Dim objRs as new RecordSet，当第一次使用objRs的时候，才在内存中分配空间和实例化。对于Dim objRs as RecordSet，声明objRs为RecordSet类类型变量，和声明普通变量一样，此时已经在内存中分配存储空间了。当使用Set o

双击按钮添加如下代码Private Sub Command1_Click()Dim objRemoteConn As New ADODB.ConnectionDim objLocalConn As New ADODB.ConnectionDim objRs As ADODB.RecordsetDim strSql As...

'strQuery是表名，查询名等 Public Function Getrs(Byval strQuery as string) as ADODB.Recordset Dim objRs As New ADODB.Recordset on Error GoTo Error_Getrs objRs.open strQuery,CurrentProject.connection '

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章