如何在VB6里通过代码添加数据表

Question

大概思路是这样的：比如一年级有10个班，每个班一个成绩表。突然又新成立个班级。这时候就需要添加一个新表了，如何在VB6里用代码添加数据表啊？

Answer 1

此示例使用两个文本字段来创建一个名为“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 2

语法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 3

是一般的数据库（SQL或者ACCESS）的表话就用SQL代码创建啊，你肯定有连接数据库的对象吧，用那个执行就可以了啊

Answer 4

至于生成表的代码我想你的几个班级的表肯定是一样的，那么只要把那几张表的SQL语句拿来用就可以了，只要把表的名字改掉

Answer 5

那几张表无SQL语句，LZ手工建立的

Answer 6

对，我是手工在ACCESS里建立的表，然后在VB里调用数据表。需要添加表的时候，能用代码吗

Answer 7

可以的，连接数据库后，建
CREATE TABLE table (field1 type [(size)] [NOT NULL] [index1] [, field2 type [(size)] [NOT NULL] [index2] [, ...]] [, CONSTRAINT multifieldindex [, ...]]) 

Answer 8

请问10楼，你说的这个，有没有什么书有详细介绍啊？这是SQL语言吗

Answer 9

http://download.csdn.net/source/1644211

Answer 10

DataGrid控件的字段的宽度，如何设置