数据库(包含打印，安装，报表)
求教：DAO无法创建表
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我使用代码创建了一个数据库后，想往里面添加表的时候怎么都建不了，请高手帮看一下，谢谢。代码如下：
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' ，类型不匹配”,不知如何处理，哪位高人指点一下，为什么会这样呢？
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' ，类型不匹配”,不知如何处理，哪位高人指点一下，为什么会这样呢？
...全文
相关推荐
数据库表生成domain,dao,service,controller工具
**生成代码**：根据选定的表，工具会自动生成对应的domain类、DAO接口及其实现、service接口及其实现，以及controller类。生成的代码通常会遵循某种约定，如包名、命名规范等。4.
通过ADO和DAO在Access中创建和管理数据库表
本篇博客文章将带你深入了解如何在Microsoft Access中通过ADO和DAO对象创建和管理数据库表。内容涵盖了创建表、添加字段、定义字段数据类型、列出表和字段以及设置主键、索引和表关系的方法。通过具体实例和操作步骤，文章将指导你如何高效地运用这些技术来优化你的数据库操作。
DAO 动态创建ACCESS数据库
**创建表**: 创建数据库后，我们可以通过`Database`对象的`Tables`集合来添加数据表。
VB 使用DAO引擎 创建数据库结构 VB源程序
**创建表**：接下来，我们创建`TableDef`对象来定义表的结构。每个`Field`对象代表一个字段，包括其名称、数据类型和大小。
DAO数据库表新建打开删除操作演示
综上所述，"DAO数据库表新建打开删除操作演示"涵盖的主题包括：DAO设计模式、JDBC API使用、SQL操作、事务管理、异常处理以及数据库连接的生命周期管理。
