ACCESS与VB问题，急

Question

我在ACCESS中建立了数据库DB1，然后想用VB语句在DB1中建立一个数据表
请问应该怎么做

Answer 1

CREATE TABLE
    [ database_name.[ owner ] .| owner.] table_name
    ( { < column_definition >
        | column_name AS computed_column_expression
        | < table_constraint > ::= [ CONSTRAINT constraint_name ] }            | [ { PRIMARY KEY | UNIQUE } [ ,...n ]
    ) [ ON { filegroup | DEFAULT } ] 
[ TEXTIMAGE_ON { filegroup | DEFAULT } ] < column_definition > ::= { column_name data_type }
    [ COLLATE < collation_name > ]
    [ [ DEFAULT constant_expression ]
        | [ IDENTITY [ ( seed , increment ) [ NOT FOR REPLICATION ] ] ]
    ] 
    [ ROWGUIDCOL]
    [ < column_constraint > ] [ ...n ] < column_constraint > ::= [ CONSTRAINT constraint_name ]
    { [ NULL | NOT NULL ]
        | [ { PRIMARY KEY | UNIQUE }
            [ CLUSTERED | NONCLUSTERED ]
            [ WITH FILLFACTOR = fillfactor ]
            [ON {filegroup | DEFAULT} ] ]
        ] 
        | [ [ FOREIGN KEY ]
            REFERENCES ref_table [ ( ref_column ) ]
            [ ON DELETE { CASCADE | NO ACTION } ]
            [ ON UPDATE { CASCADE | NO ACTION } ]
            [ NOT FOR REPLICATION ]
        ] 
        | CHECK [ NOT FOR REPLICATION ]
        ( logical_expression ) 
    } < table_constraint > ::= [ CONSTRAINT constraint_name ]
    { [ { PRIMARY KEY | UNIQUE }
        [ CLUSTERED | NONCLUSTERED ]
        { ( column [ ASC | DESC ] [ ,...n ] ) }
        [ WITH FILLFACTOR = fillfactor ]
        [ ON { filegroup | DEFAULT } ]
    ] 
    | FOREIGN KEY
        [ ( column [ ,...n ] ) ]
        REFERENCES ref_table [ ( ref_column [ ,...n ] ) ]
        [ ON DELETE { CASCADE | NO ACTION } ]
        [ ON UPDATE { CASCADE | NO ACTION } ]
        [ NOT FOR REPLICATION ]
    | CHECK [ NOT FOR REPLICATION ]
        ( search_conditions ) 

Answer 2

用 ADOX 试试。。具体看msdn。

Answer 3

Dim MyTable As TableDef, MyField As Field
Dim MyDatabase As Database
Set database = OpenDatabase ("db1", dbDriverNoPrompt, False, "ODBC;DATABASE=db1;UID=sa;PWD=;DSN=db1")
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------------------------------------------
databaseopen我没用过，自己看下帮助试一下，我用的是createdatabase创建一个新数据库做的。

Answer 4

通常是在原有数据的基础上生成新表：
select * into 新表 from 旧表 where 条件。