我在ACCESS中建立了数据库DB1,然后想用VB语句在DB1中建立一个数据表
请问应该怎么做
请问应该怎么做
解决方案 »
- 请教:VBA与VBS的互调
- 怎么用vb实现sql数据库定时备份为access数据库
- 有关注册表的使用?
- 请教各位:
- 怪问题,为什么我的程序一加入报表设计器,编译时就生成不了可执行文件并且编译时不报任何错误(报表为动态绑定数据源)
- 急!急!急!......如何并发访问服务器端的组件
- 查毕业证书的那个网站是??回答了,马上给分。
- 求助
- 关于DataGrid的问题
- 温州哪里可以买到《程序员》杂志,我寻找了好几个月了!!!!!
- VB中功能与VFP中的INKEY()函数、LASTKEY()函数相同的有没有?
- 请问,我今天在VB中使用Toolbar1控件时,为其中的每个工具按钮加入点击事件时,用Select Case Button.Key,它总是说“未找到方法或数据成
[ 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 )
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创建一个新数据库做的。
select * into 新表 from 旧表 where 条件。