Question

用vb往一个数据库里新建一个表（如果该表不存在）怎么搞？

Answer 1

1. 采用DAO：

   先在工程-引用中引用Microsoft DAO ...，采用Database对象的CreatTableDef方法创建表，采用TableDefs对象的CreatField方法创建字段，采用Field对象的Append方法把新字段增加到表中。

2. 采用SQL：

   采用SQL语言的CREATE TABLE语句创建表

   CREATE [TEMPORARY] TABLE表 (字段1类型 [(字长)] [NOT NULL] [WITH COMPRESSION | WITH COMP] [索引1] [, 字段2类型 [(字长)] [NOT NULL] [索引2] [, ...]][, CONSTRAINT multifieldindex [, ...]])

追问

我想用SQL，但是怎么在VB中使用SQL语句，要调用什么对象？反正Data控件我不知道怎么执行SQL语句。还有就是怎么检测一个表是否存在？

追答

一般用ADO，当没有返回记录集时可以采用连接对象(connection)的execute 方法，或者也可以采用记录集(recordSet)的open对象。当然在这之前connection要调用open方法打开数据库文件

追问

别用ADO，就用DAO或者用SQL语句但是不要用ADO，因为我的数据库是作为游戏存档和EXE放到一起的。还有个问题就是：你那些什么createtabeldef什么的函数，方法能不能告诉我怎么用？

追答

ADO的数据库也可以与EXE放在一起的。其实数据库可以是一样的，只是DAO支持的功能更少些。
使用DAO时，如果窗体上添加了Data控件，只需要将控件的RecodrSource设为一个SQL语句就可以使用。如果要在程序中直接使用，采用Database对象的OpenRecordset方法，但似乎要先定义一个查询对象（QueryDef），然后定义查询对象的SQL属性为你要的SQL语句，最后调用Database的OpenRecordset方法。

追问

关键是我不是要查询，是要用VB判定一个数据库里没有表后创建一个表，需要引用或弄什么部件？具体的方法（如前面提到的CreateTabelDef方法，我不会用，请说明如何使用）

追答

哦，这里：

Dim MyDataBase As Database '定义数据库对象
'创建空数据库，已存在数据库改为OpenDatabase直接打开
Set MyDataBase=WorkSpaces(0).CreatDatabase("d:\数据库.mdb",dbLangGeneral,dbVersion70)
Dim MyTableDef As TableDef '定义表定义对象
Set MyTableDef=MyDataBase.CreateTableDef("表1")‘创建空表
Dim MyField As Field '定义字段对象
Set MyField =MyTableDef.CreateField("字段1",dbInteger)'定义整型字段
MyTableDef.Fields.Append MyField '字段添加到表中
'插入添加其它字段代码
MyDataBase.TableDefs.Append MyTableDef '将表添加到数据库中

 

其中，CreateField(字段名称,字段类型,字段长度),字段支持的类型有：

dbBoolean，dbByte，dbInteger，dbLong，Currency，dbSingle，dbDouble，dbDate，dbText，dbLong Binary，dbMemo

 

如果还要创建索引：

Dim MyIndex As Index '定义索引对象
Set MyIndex=MyTableDef.CreateIndex("索引1") ‘创建索引
Set MyField=MyIndex.Create("字段1") ’指定要索引的字段
MyIndex.FIelds.Append MyField '把索引增加到索引对象中
MyTableDef.Indexes.Append MyIndex '把索引对象添加到表中

Answer 2

是什么表？Access表还是其它自定义表？