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

flywater 2004-11-02 09:48:24
如何从一个己存在的.mdb文件中导出相关表建立一个新的.MDB文件?
用代码实现。
关銉是如何把一个库中的表“导入”到新的库中。
...全文
191 20 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
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文件或表?
把存在的库或表覆盖该怎么办?

明天结贴!
谢谢大家!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧