Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1 where false"
cn.Close
End Sub
如果在复制表结构的同时也复制数据,那么就
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名.mdb"
cn.Execute "select * into table2 from table1"
cn.Close
End Sub
使用select into复制表
最新推荐文章于 2025-04-29 09:00:00 发布