创建表的字段出错，我用DAO 3.6，而DAO 3.51 却是对的
Sub CreateTbl(DBFileName As String)
Dim dbs As Database, tdf As TableDef, fld As Field
' 返回当前数据库
Set dbs = OpenDatabase(DBFileName)
' 返回指向新表的TableDef对象
Set tdf = dbs.CreateTableDef("ContactsTest")
' 在表中添加一个新字段
Set fld = tdf.CreateField("TestField", dbText, 40) '在这句出错,13号错误,类型不匹配
' 使用Append追加Field对象到TableDef的Fields集合中
tdf.Fields.Append fld
tdf.Fields.Refresh
' 使用Append追加TableDef对象到数据库的TableDefs集合中
dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh
Set dbs = Nothing
End Sub
'======================给看看如何解决
问题点数：10、回复次数：4Top
1 楼huangjianyou（小健）回复于 2004-09-02 15:42:14 得分 5
建议使用ADO好。
^_^Top
2 楼DawnWoo（）回复于 2004-09-02 15:45:02 得分 0
那ADO怎么创建数据库、表、字段？我用的是ACCESS数据库（accessXP）Top
3 楼huangjianyou（小健）回复于 2004-09-02 15:55:15 得分 5
建数据库：
create database dbname
建表：
create table tablename...
你看一下MSDN吧
^_^Top
4 楼DawnWoo（）回复于 2004-09-02 16:01:46 得分 0
老兄，不行的，行的话我就不再问了。
http://www.china-askpro.com/msg36/qa94.shtml
如果创建Access数据库的表，应该使用CreateTableDef方法。如果创建SQL Server等数据库的表，需要使用CREATE TABLE查询。
1）创建Access数据库的表
Dim dbs As Database, tdf As TableDef, fld As Field
' 返回当前数据库
Set dbs = CurrentDb
' 返回指向新表的TableDef对象
Set tdf = dbs.CreateTableDef("Contacts")
' 在表中添加一个新字段
Set fld = tdf.CreateField("ContactName", dbText, 40)
' 使用Append追加Field对象到TableDef的Fields集合中
tdf.Fields.Append fld
tdf.Fields.Refresh
' 使用Append追加TableDef对象到数据库的TableDefs集合中
dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh
Set dbs = Nothing
2）创建SQL Server等数据库的表
Dim dbs As Database
......
' 使用两个文本字段来创建表。
dbs.Execute "CREATE TABLE ThisTable " _
& "(" + Text1.Text "TEXT, " + Text2.Text + " TEXT);"
dbs.Close
Top
相关问题
- 含BLOB字段的表,MOVENEXT()出错
- 在delphi上连接带大字段的oracle表会出错！
- 在javascript中调用后台的表字段值出错
- 修改表字段出错得问题!!请教了!
- 关于DAO重复定义字段出错的解决办法，请指教
- 日期字段editmask出错。。。
- sqlserver2000链接Oracle9.02 表中包含BLOB类型字段，执行SELECT操作出错（不包含BLOB字段）
- ACCESS2000为什么 create table 表1 (字段1 single default 0) 提示default出错误
- 一条更新ORACLE数据表中日期型字段的语句出错？
- --->求助<---水晶报表导出出错:丢失参数字段当前值
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
