求教:DAO无法创建表

drywell 2004-10-30 10:10:17
我使用代码创建了一个数据库后,想往里面添加表的时候怎么都建不了,请高手帮看一下,谢谢。代码如下:

Private Sub CreatTable_Click()
Dim DBname As String, Nname As String
Nname = "field_1"
DBname = App.Path + "\data\" + "test.mdb"
Dim Defdb As Database
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase(DBname, 0, False)
Set NewTable = Defdb.CreateTableDef("Table_1")
Set NewField = NewTable.CreateField(Nname, dbText,6) '创建一个字符型的字段,长度为6个字符
NewTable.Fields.Append NewField '字段追加
Defdb.TableDefs.Append NewTable '表追加
End Sub

代码执行到Set NewField = NewTable.CreateField(Nname, dbText,6) 这一句时出现错误,提示:“实时错误 '13' ,类型不匹配”,不知如何处理,哪位高人指点一下,为什么会这样呢?
...全文
55 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
henry520 2005-07-08
帮 顶!!
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告