关于生成并复制数据表table的sql语句

[yeguoshun37]

我想在数据库中生成一个新表，并把一张原的表的内容复制到新表中，SQL语句怎么写啊？？？？
例如：ls.mdb数据库中有表ls0 一张，现想生成一张新表ls1并把 ls0复制到ls1上，

[myhgyp]

参考：
Dim Adocon As New ADODB.Connection
Private Sub Form_Load()

Adocon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=True"
Adocon.CommandTimeout = 120
Adocon.Open
If SQLExistTable(Adocon, "newTestTable") Then
MsgBox "存在"
Else
MsgBox "不存在"
Adocon.Execute ("select * into newTestTable from TestTable") '复制
End If
Adocon.Close
Set Adocon = Nothing
End Sub

'判断表是否存在
Public Function SQLExistTable(cn As Connection, strTable As String) As Boolean
Dim strSQL As String
Dim Rs As New ADODB.Recordset
'Dim dbname As String
Dim bTemp As Boolean

On Error GoTo errSQLExist
'strSQL = "select counttable=count(*) from temp where name='" & strTable & "'"
'rs.Open strSQL, cn
Set Rs = cn.OpenSchema(adSchemaTables)

Do Until Rs.EOF
If Rs!Table_name = strTable Then
bTemp = True
Exit Do
Else
bTemp = False
End If
Rs.MoveNext
Loop
SQLExistTable = bTemp

Exit Function

errSQLExist:
SQLExistTable = False
End Function

[of123]

select * into ls1 from ls0

[myhgyp]

楼上的方法可行，但会丢失主键与索引

[yeguoshun37]

行了，可以复制了，但有了新问题
请问：复制了表ls1时，发现 ls1表已经有了，出错了，怎么样先判断它有没有这个表，有了复制，没有不复制呢？

[yeguoshun37]

太感谢 了

[yeguoshun37]

OpenSchema(adSchemaTables)
是什么意思？？

[yeguoshun37]

代码不能用的,再帮忙看看好不好