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

2004-11-02 09:48:24 227 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

最优化理论与自动驾驶（三）：LQR原理、公式及代码演示 LQR 是基于线性系统和二次型代价函数的最优控制方法，在实际工程应用中，我们一般采用离散时间系统的LQR设计，其目标是通过设计反馈控制律，使系统在离散时间步长内稳定运行，最小化某个二次型代价函数。给定一个离散时间系统，其状态和控制输入通过以下方程表示：是时刻k的系统状态，是时刻k的控制输入，是状态转移矩阵，是输入矩阵。系统描述的物理意义：系统状态通过矩阵A演变到下一时刻，同时控制输入通过矩阵B影响系统的状态。阅读详情

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

...全文

国产平替NeuroSky？实测金牛座TGAM脑电模块，从Arduino到Python的完整数据采集指南本文详细介绍了国产金牛座TGAM脑电模块的完整使用流程，包括硬件连接、数据采集和Python分析。通过Arduino和Python的实战案例，展示了如何从脑电波传感器获取并解析专注度、放松度等数据，适用于专注力训练和脑机接口开发。阅读详情

flywater

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

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文件或表？
把存在的库或表覆盖该怎么办？

明天结贴！
谢谢大家！

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

相关推荐