用DAO建立基本的代码有问题

小一百　发表于：2010-05-28 15:12:27 　

private sub jianli() 'DAO建立表

dim biao as tabledef '定义表
dim ziduan(5) as field '定义字段

set biao=currentdb.createtabledef("测试") '建立表

with biao
set ziduan(0)=.createfield("学号",dbchar)
set ziduan(1)=.createfield("姓名",dbchar)
.fields.append ziduan(0)
.fields.append ziduan(1)
end with

currentdb.tabledefs.append biao
end sub

'我是抄到这台能上网的机器上来的,所以没有大小写

'这段代码有什么问题呢???????!!!!!!!

'我的错误显示在 set ziduan(0)=.createfield("学号",dbchar)这行,我实在找不出有什么错误

'我初学dao,请指教!!1
在access的vba界面,工具 ---引用---选择 dao以后上面的代码就可以了

陈福祥发表于：2010-05-29 08:15:09

错误可能在这两句上：

set ziduan(0)=.createfield("学号",dbchar)
set ziduan(1)=.createfield("姓名",dbchar)
你将 “dbchar” 改为“dbtext”试一下，应该可以运行。

原因可能是Access这个基础数据库不支持“dbchar”这种数据类型。下面这段话是Access帮助文件里的原文：

将新的 Field、Parameter 或 Property 对象追加到 Index、QueryDef、Recordset 或 TableDef 对象集合中时，如果基础数据库不支持为新对象指定的数据类型，则会发生错误。

总记录：1篇页次：1/1 9 1 :

Access交流中心