| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/5/12 15:44:02 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 请问如何将ACCESS数据库里的数据备份到另一个文件中， procedure Tfrmcopy.Button1Click(Sender: TObject); var re:integer; rpt:string; begin inherited; rpt:=ExtractFilePath(Application.ExeName); if rpt[Length(rpt)]='\' then rpt:=rpt+'data\' else rpt:=rpt+'\data\'; re:=messagedlg('是否备份数据库数据？',mtConfirmation,[mbyes,mbno],0); then if re=1 then begin copyfileto(rpt+'fyd.mdb',rpt+'\copydata\fdy.mdb'); end; end; 没有出错提示，但是结果没有备份 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/12 15:47:06 | ||||
| 1楼： | 你用TBachMove试试看！ ---------------------------------------------- 发现错误是我的爱好！ |
|||||
| 作者： |
|
2003/5/12 16:37:30 | ||||
| 2楼： | 请问这个控件的用法是什么，我没有用过 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/12 16:57:50 | ||||
| 3楼： | TBatchMove 组 件 能 够： （1）将 一 个 数 据 集 中 的 数 据 追 加 到 一 个 表 中。. （2）从 一 个 表 中 删 除 满 足 条 件 的 记 录。 （3）按 旧 表 结 构 生 成 一 个 新 表， 若 欲 生 成 的 新 表 已 存 在， 则 覆 盖。 具 体 的 操 作 要 通 过 设 置TBatchMove 的Mode 属 性 后 再 调 用Execute 方 法 来 完 成。 为 举 例 说 明 问 题， 我 们 在 别 名 数 据 库DBDEMOS 中 先 创 建 两 个dBase 格 式 的 表Test1.dbf 和Test2.dbf。 二 者 的 结 构 如 下 表： Test1.dbf Test2.dbf Name C 10 Name C 10 Code C 3 Code C 3 其 中 表Test2.dbf 在 字 段code 上 建 立 有 唯 一 索 引。 同 时 假 设 表 单 中 已 有 两 个TABLE 控 件Tsource 和Tdest 和 一 个TbatchMove 组 件batchmove1。Tsource 和Tdest 的DatabaseName 属 性 均 设 为DBDEMOS。batchmove1 的source 属 性 设 为Tsource，destination 属 性 设 为Tdest。 在 使 用TbatchMove 组 件 时， 必 须 牢 记： 所 有 的 操 作 都 是 以 源 表 为 标 准 针 对 目 的 表 进 行 的， 下 面 就 分 别 举 例 说 明TbatchMove 的 各 种 操 作 模 式： （1）batAppend 追 加 模 式 将 源 表 中 的 数 据 追 加 到 目 的 表 中， 目 的 表 必 须 事 先 存 在。 这 是 缺 省 模 式。 batchmove1.source=Tsource; batchmove1.destination=Tdest2 ; batchmove1.Mode:=batAppend; batchmove1.Execute; （2）batUpdate 更 新 模 式 用 源 表 中 匹 配 目 的 表 的 记 录 替 换 目 的 表 中 的 相 应 记 录。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。 Tdest.IndexFieldNames:='code'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batUpdate; batchmove1.Execute; （3）batAppendUpdate 追 加 更 新 模 式 如 果 源 表 中 有 与 目 的 表 匹 配 的 记 录， 则 替 换 目 的 表 记 录， 否 则， 直 接 追 加 到 目 的 表 中。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。 Tdest.IndexFieldNames:='code'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batAppendUpdate; batchmove1.Execute; （4）batCopy 拷 贝 模 式 按 源 表 结 构 生 成 新 表， 源 表 中 的 数 据 同 时 拷 贝 到 目 的 新 表 中。 如 果 要 生 成 的 新 表 已 存 在， 则 覆 盖。 // 按Test1.dbf 生 成 新 表xxx.dbf // 如 果 不 指 定 扩 展 名dbf， 生 成 的 新 表 将 是Paradox 格 式 的xxx.db。 Tdest.TableName:='xxx.dbf'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batCopy; batchmove1.Execute; （5）batDelete 删 除 模 式 删 除 目 的 表 中 与 源 表 匹 配 的 记 录。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。 Tdest.IndexFieldNames:='code'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batDelete; batchmove1.Execute; ----------------------------------------------  充电..........
|
|||||
| 作者： |
|
2003/5/12 17:16:39 | ||||
| 4楼： | 我用的是ACCESS数据库，这个方法能不能行的通啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/12 17:44:10 | ||||
| 5楼： | 我有做过从SQL导到本地表，再从本地表导到SQL。 都行吧. ---------------------------------------------- 充电..........
|
|||||
| 信息 |
| 登陆以后才能回复 |
