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

flywater 2004-11-02 09:48:24
如何从一个己存在的.mdb文件中导出相关表建立一个新的.MDB文件?
用代码实现。
关銉是如何把一个库中的表“导入”到新的库中。
...全文
125 点赞 收藏 20
写回复
20 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
aluck 2004-11-02
怎么自己发贴啊!!
回复
flywater 2004-11-02
好的,谢谢。
回复
daisy8675 2004-11-02
不存在覆盖不覆盖的问题

我上面写的办法不允许你的目标表存在
回复
flywater 2004-11-02
insert into 只能追加数据吧好像
把目标库中存在的表覆盖该怎么办?
回复
daisy8675 2004-11-02
这样的导出办法要求要存在我导入的库,但是表不能存在


如果你只是追加数据,偶还是建议用insert into进行批此导出
回复
flywater 2004-11-02
to:daisy8675(莫依) ( )
导入表时会出现我们要导入的表,目标库己经存在的问题。把目标库中存在的表覆盖该怎么办?
回复
flywater 2004-11-02
数据库文件MDB的复制如何用代码实现??
回复
flywater 2004-11-02
[man]是原库中的一个表。
谢谢了
回复
springlover 2004-11-02
不用这么麻烦,可以用文件系统进行数据库文件MDB的复制,然后打开复制后的数据库再进行处理就可以了。
这样做的前提是新老数据库的结构都必须很相似。呵呵。
给点分吧,马上要升级了。
回复
flywater 2004-11-02
Conn.Execute "Select * into [c:\test.mdb].[man] from [man]"

[man]是什么东西呀
回复
flyingZFX 2004-11-02
你必须要有一个已存在的数据库才行。
回复
flywater 2004-11-02
好像行不通呀
回复
daisy8675 2004-11-02
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 2004-11-02
生成新表我知道怎么做,把老表中的内容弄到新表正是我想问的


'创建表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
回复
lioner9944 2004-11-02
顺便问一下,在库中,如何生成新表,新表内容为老表的分类汇总集合。谢谢。菜鸟me
回复
lioner9944 2004-11-02
应该是想到出需要的表的数据,结构可能无所谓吧。
我也在找这个也。在线等待。。。!
回复
flywater 2004-11-02
只导出想要的表的数据和结构
回复
daisy8675 2004-11-02
是把整个acess的所有表全部导出还是只导出你想要的表的数据和结构?
回复
springlover 2004-11-02
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



回复
flywater 2004-11-02
如何判断当前存在一个与之同名的.MDB文件或表?
把存在的库或表覆盖该怎么办?

明天结贴!
谢谢大家!
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告