如何从一个己存在的.mdb文件中导出相关表建立一个新的.MDB文件

[flywater]

如何从一个己存在的.mdb文件中导出相关表建立一个新的.MDB文件？
用代码实现。
关銉是如何把一个库中的表“导入”到新的库中。

[flywater]

如何判断当前存在一个与之同名的.MDB文件或表？
把存在的库或表覆盖该怎么办？

明天结贴！
谢谢大家！

[springlover]

Dim Fs
Set Fs = CreateObject("scripting.filesystemobject")
Dim ss
dim str as string

str ="你的路径"

If Dir(str) <> "" Then
数据已经存在,是否要覆盖
KILL( )
ELSE
ss = Fs.copyfile("原来地址", str)
end if

[daisy8675]

是把整个acess的所有表全部导出还是只导出你想要的表的数据和结构？

[flywater]

只导出想要的表的数据和结构

[lioner9944]

应该是想到出需要的表的数据，结构可能无所谓吧。
我也在找这个也。在线等待。。。！

[lioner9944]

顺便问一下，在库中，如何生成新表，新表内容为老表的分类汇总集合。谢谢。菜鸟me

[flywater]

生成新表我知道怎么做，把老表中的内容弄到新表正是我想问的


'创建表1
Set tdExample = dbDatabase.CreateTableDef("工程概况表")

Set fldForeName = tdExample.CreateField("Name", dbText, 20)
Set fldSurname = tdExample.CreateField("sec", dbText, 20)
Set fldDOB = tdExample.CreateField("grid", dbDate)
Set fldFurtherDetails = tdExample.CreateField("id", dbMemo)
tdExample.Fields.Append fldForeName
tdExample.Fields.Append fldSurname
tdExample.Fields.Append fldDOB
tdExample.Fields.Append fldFurtherDetails
dbDatabase.TableDefs.Append tdExample

[daisy8675]

Option Explicit

Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection

Public Sub Make_Connection()
Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\daisy8675\Data\People.mdb;Persist Security Info=False"

Conn.CursorLocation = adUseClient
Conn.Open strConn

End Sub



Private Sub cmdImport_Click()
Conn.Execute "Select * into [c:\test.mdb].[man] from [man]" ’--就这句话
MsgBox "imports ok"
Unload Me
End Sub


Private Sub Form_Load()
On Error Resume Next

Call Make_Connection

If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Man", Conn, 3，3
If Rs.RecordCount <> 0 Then
Set Me.DataGrid1.DataSource = Rs
End If
End Sub

[flywater]

好像行不通呀

[flyingZFX]

你必须要有一个已存在的数据库才行。

[flywater]

Conn.Execute "Select * into [c:\test.mdb].[man] from [man]"

[man]是什么东西呀

[springlover]

不用这么麻烦，可以用文件系统进行数据库文件MDB的复制，然后打开复制后的数据库再进行处理就可以了。
这样做的前提是新老数据库的结构都必须很相似。呵呵。
给点分吧，马上要升级了。

[flywater]

[man]是原库中的一个表。
谢谢了

[flywater]

数据库文件MDB的复制如何用代码实现？？

[flywater]

to:daisy8675(莫依) ( )
导入表时会出现我们要导入的表，目标库己经存在的问题。把目标库中存在的表覆盖该怎么办？

[daisy8675]

这样的导出办法要求要存在我导入的库，但是表不能存在


如果你只是追加数据，偶还是建议用insert into进行批此导出

[flywater]

insert into 只能追加数据吧好像
把目标库中存在的表覆盖该怎么办？

[daisy8675]

不存在覆盖不覆盖的问题

我上面写的办法不允许你的目标表存在

[flywater]

好的，谢谢。

[aluck]

怎么自己发贴啊！！