高分求助：我想通过VB语句在ACCESS里建表，如何办到？

Question

假如我在“班级表”里增加了一个“计算机班”，就会在ACCESS里新建一个“计算机班表”，里面还有“编号”“姓名”“性别”“年龄”字段，如何办到？

Answer 1

楼主  你好好的看一看SQL语句嘛

Answer 2

使用create table语句就可以了！很简单的！

Answer 3

Create Table 计算机班表(编号 char(10) not null primary key,姓名 char(20) not null,性别 char(2) not null,年龄 int not null)

Answer 4

创建新表。注意    Microsoft Jet 数据库引擎不支持使用 CREATE TABLE，或任何非 Microsoft JET 数据库的 DDL 语句。而使用 DAO创建方法。语法CREATE TABLE table (field1 type [(size)] [NOT NULL] [index1] [, field2 type [(size)] [NOT NULL] [index2] [, ...]] [, CONSTRAINT multifieldindex [, ...]])CREATE TABLE 语句分为以下几个部分：部分 说明
table 欲创建的表的名称。
field1, field2 在新表中欲创建的字段的名称。至少必须创建一个字段。
type 在新表中的字段的数据类型。
size 字段的字符长度 (文本及二进制字段)。
index1, index2 定义单一字段索引的 CONSTRAINT 子句。关于如何创建此索引的详细信息，请参阅 CONSTRAINT 子句主题。
multifieldindex 子句定义多重字段索引的 CONSTRAINT 。关于如何创建此索引的详细信息，请参阅 CONSTRAINT 子句主题。
说明使用 CREATE TABLE 语句来定义新表及它的字段以及字段条件。如果将一字段指定为 NOT NULL，则新记录的该字段值必须是有效的数据。
CONSTRAINT 子句在字段上可创建不同的限制，并可用来建立主键。还可用 CREATE INDEX 语句在现有的表上创建主键或附加索引。
可以在单一字段上使用 NOT NULL，或在用于单一字段或多重字段(名为 CONSTRAINT) 的 CONSTRAINT 子句中使用 NOT NULL。但是，在一字段上只能使用 NOT NULL 一次，否则将发生运行时错误。

Answer 5

此示例使用两个文本字段来创建一个名为“ThisTable”的添加表。Sub CreateTableX1() Dim dbs  As Database ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 使用两个文本字段来创建表。dbs.Execute "CREATE TABLE ThisTable " _
& "(FirstName TEXT, LastName TEXT);" dbs.CloseEnd Sub此示例使用两个文本字段、日期／时间字段、及唯一索引来创建名为“MyTable”的添加表 。Sub CreateTableX2() Dim dbs As Database ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb") ' 创建使用三字段的表和唯一的
' 索引组成这所有的三个字段。
dbs.Execute "CREATE TABLE MyTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "DateOfBirth DATETIME, " _
& "CONSTRAINT MyTableConstraint UNIQUE " _
& "(FirstName, LastName, DateOfBirth));"dbs.CloseEnd Sub此示例使用两个文本字段和一个整型字段来创建新的表。SSN 字段是主键。Sub CreateTableX3()  Dim dbs As Database ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb") ' 使用三字段和一个主键来创建表。
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);" dbs.CloseEnd Sub

Answer 6

to cuizm(射天狼) :  "注意    Microsoft Jet 数据库引擎不支持使用 CREATE TABLE，或任何非 Microsoft JET 数据库的 DDL 语句。"不是很明白你说的这个意思，Microsoft Jet数据库引擎为什么不支持呢？？在VB里直接用create table 就可以在ACCESS里建表呀！

Answer 7

不用管那些,我根本没注意那句话,这是VB帮助里的,你用ADO直接执行建表语句,没问题!!

Answer 8

create table "计算机班表"
("编号" char(20) not null,
"姓名" char(16) ,
"性别" bit,
"年龄" integer,
Primary Key("编号")
);

Answer 9

引用Microsoft ActiveX Data Objects2.6 Library
Private Sub Command1_Click()
Dim PathName As String
PathName = App.Path
Dim MyTable As TableDef, MyField As Field
   Dim MyDatabase As Database
   Set MyDatabase = CreateDatabase(PathName + "\Favorite.mdb", dbLangGeneral)
   Set MyTable = MyDatabase.CreateTableDef("Subclass")
   Set MyField = MyTable.CreateField("Name", dbText, 50)
   MyTable.Fields.Append MyField
   MyDatabase.TableDefs.Append MyTable
   
   Set MyTable = MyDatabase.CreateTableDef("AllRecords")
   Set MyField = MyTable.CreateField("Name", dbText, 50)
   MyTable.Fields.Append MyField
   Set MyField = MyTable.CreateField("Source", dbText, 50)
   MyTable.Fields.Append MyField
   MyDatabase.TableDefs.Append MyTable
End Sub

Answer 10

俺是新来的，不过毕设的题目就是类似的，所以楼上这样的方法俺是用过的。
直接Creat Table 就可以了，具体语法楼上讲解得很详细了。
大家加油，day day up

Answer 11

楼上的楼上好像不是在用ado把`~~那好像是dao，印象里ado只有connectiong,command，recordset,record没有什么tabledef,fields对象牙！！！

Answer 12

例子如下：
   CREATE TABLE[dbo].[student_info](
   [student_ID][int]NOT NULL,
   [born_Date][datetime]NUll,
   [class_NO][int]NUll,
    ..................
)ON [PRIMARY]
明白没。