Вы должны сделать это программно.
- Открыть исходную таблицу
- Создание новой AccessDB с использованием расширений ADO (как показано выше)
- Создать таблицу в AccessDB, прочитав исходную схему (CREATE TABLE X ...)
- Повторять мысль исходной таблицы, вставляя записи в таблицу Access
Примечание: код от http://www.freevbcode.com/ShowCode.asp?ID=5797 размещен здесь на случай, если ссылка прекратит свое существование в будущем
'select References from the Project Menu, choose the COM tab,
'and add a reference to Microsoft ADO Ext. 2.7 for DDL and Security
Public Function CreateAccessDatabase( ByVal DatabaseFullPath As String) As Boolean
Dim bAns As Boolean
Dim cat As New ADOX.Catalog()
Try
'Make sure the folder
'provided in the path exists. If file name w/o path
'is specified, the database will be created in your
'application folder.
Dim sCreateString As String
sCreateString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
DatabaseFullPath
cat.Create(sCreateString)
bAns = True
Catch Excep As System.Runtime.InteropServices.COMException
bAns = False
'do whatever else you need to do here, log,
'msgbox etc.
Finally
cat = Nothing
End Try
Return bAns
End Function
DEMO
====
' If CreateAccessDatabase("F:\test.mdb") = True Then
' MsgBox("Database Created")
' Else
' MsgBox("Database Creation Failed")
' End If