送分题：创建表

[pzrjl]

我在VB中要创建一个表test1，表的结构和内容同已存在的表test一样，请问通过单条SQL语句如何完成。在ORACLE中非常简单，我对ACCESS 不太熟悉，请各位帮忙。

[wgrabob1]

一样

[amtyuranus]

insert into test1 select * from test

[pzrjl]

在ORACLE 中执行“create table test1 as select * from test”就可以了，而同样语句在ACCESS中不能执行成功！

[pzrjl]

不能执行insert into test1 select * from test，因为TEST1表没有创建。

[hycao]

select * into test1 from test
如果只要表的结构而不要数据，可以这样写：
select * into test1 from test where 1=0

[anshinfo]

select * into test1 from test where 1=0

where 1=0 什么意思？

[hycao]

select * into test1 from test会把表中的数据也复制过去，加上where 1=0的条件后则只复制表结构，因为1=0始终为False，即没有符合条件的数据。

[ffllyy]

Create Table 表名（字段名字段类型，.......）
MSDN 中有详细说明，找找看。

[yaoyuhang]

Dim mysqlconn As New SqlClient.SqlConnection("server=myserver;user id=sa;password=;database=pubs")
Dim mysqlcmd As New SqlClient.SqlCommand()

mysqlconn.Open()
mysqlcmd.CommandType = CommandType.Text
mysqlcmd.Connection = mysqlconn

mysqlcmd.CommandText = "create table mytemptable(idcol int)"
mysqlcmd.ExecuteNonQuery()

mysqlconn.Close()

[yaoyuhang]

哦对不起
上面的错了(是用于sqlserver的)下面的是用于access的
Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password= " & "" & ";User ID=Admin;Data Source=C:\Program Files\sdl\Setup1\db\帐目管理.mdb"
Dim myconnection As New OleDb.OleDbConnection(conn)
Dim mysqlcmd As New OleDb.OleDbCommand()


myconnection.Open()
mysqlcmd.CommandType = CommandType.Text
mysqlcmd.Connection = myconnection

mysqlcmd.CommandText = "select * into test1 from 记帐凭证明细 where 1=0"

mysqlcmd.ExecuteNonQuery()

myconnection.Close()