|
我数据库中有个名为“名单“的数据表 数据表中仅有个名为“姓名“ 的字段
我程序中引用了如下部件 VB for appli ,MS access9.0 object ,ms activex ,
ms dao3.6 object. 现在程序运行到最后一句,(即 Set recName = db.OpenRecordset
("名单") '将“名单”表读入记录集 ) 就不能运行,跳出对话框说是“运行时错误13,
类型不匹配“ 请问众高手,这是何故,有解决的方法吗 谢了!!! 整个程序如下
Dim db As Database '声明数据库对象变量
Dim recName As Recordset '声明记录集对象变量
Dim strName As Field '声明字段对象变量
Dim MyName(3) As String '声明一个存放“姓名”的数组
Dim intI As Integer '声明一个整型变量
Set db = CurrentDb() '指定数据库为当前数据库
Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集
|
|