全部

我想实现这样的操作，对sqlserver某个数据库的某张表中的查询到的某些字段进行备份和恢复，请问该怎么编写vb程序！急急急。大散分。

jjjj2345 2003-04-08 09:40:18

我想实现这样的操作，对sqlserver某个数据库的某张表中的查询到的某些字段进行备份和恢复，请问该怎么编写vb程序！急急急。大散分。
请写出代码给我看好吗。谢谢各位的帮忙了。

...全文

168 点赞收藏 6

写回复

6 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

jjjj2345 2003-04-08

可是我是先做了一个查询按扭，从sqlserver的一个数据库里的一个叫t_balance的表里已经查到了我需要的比如说是在一个时间段之内的信息，在datagrid控件里显示出来
我现在要备份的不是全部资料，就是在datagrid里显示的所符合我的要求的这几项记录
然后恢复的时候也这样，不要把全部资料都覆盖掉。就是把要求的某个时间段的备份文件
还原，我是想这样的，就是先把符合要求的记录导到excel的一个表文件里。然后可以再
还原，这样该怎么办呢。

回复赞

_131_ 2003-04-08

备份源代码：
'备份充红日志表
res.Open "tb_cancel_log", cn, adOpenStatic, adLockReadOnly
res.Save App.path + "\tmp\tb_cancel_log.xml", adPersistXML
res.Close
恢复源代码：
'开始删除充红日志表中的原有数据，用备份文件中的数据进行恢复
res_source.Open App.path + "\tmp\tb_cancel_log.xml"
If res_source.RecordCount > 0 Then
cn.Execute "delete tb_cancel_log"
res_target.Open "tb_cancel_log", cn, adOpenKeyset, adLockPessimistic
For i = 0 To res_source.RecordCount - 1
res_target.AddNew
For j = 1 To res_source.Fields.Count - 1
res_target.Fields(j).Value = res_source.Fields(j).Value
Next
res_source.MoveNext
Next
res_target.update
res_target.Close
End If
res_source.Close

其中res、res_source、res_target 为adodb.recordset对象
cn为adodb.connection对象

回复赞

jjjj2345 2003-04-08

能不能帮帮忙先给出具体的代码啊

回复赞

itofly 2003-04-08

楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!
楼主英明!!!!!!!!!!!!!!!!!支持散分!!!!!!!!!!!!!!!!!!!

回复赞

jjjj2345 2003-04-08

厉害！能给我具体的代码吗？

回复赞

qqqdong 2003-04-08

Save 方法 (ADO Recordset)

将 Recordset 保存（持久）在文件中。

语法

recordset.Save FileName, PersistFormat

参数

FileName 可选。保存 Recordset 的文件的完整路径名。

PersistFormat 可选。保存 Recordset 所用的格式。当前默认并唯一有效的值为 adPersistADTG。

说明

只能对打开的 Recordset 调用 Save 方法。随后使用 Open 方法可通过 FileName 恢复 Recordset。

如果 Filter 属性影响 Recordset，则只保存经过筛选的行。如果 Recordset 具有分级结构，那么将保存当前子 Recordset 和它的子 Recordset，但不是父 Recordset。

在第一次保存 Recordset 时指定 FileName。如果随后调用 Save，应忽略 FileName，否则将产生运行时错误。如果随后用新的 FileName 调用 Save，那么 Recordset 将保存到新文件中，不过新文件和原始文件都是打开的。

Save 不关闭 Recordset 或 FileName，从而可以继续使用 Recordset 并保存最新的更改。在 Recordset 关闭之前 FileName 将保持打开，在这段时间其他应用程序可以读取但不能写入 FileName。

出于安全的原因，不能从 Microsoft Internet Explorer 执行的脚本中使用 Save 方法。

如果当异步 Recordset 获取、执行或更新操作正在进行的同时调用 Save 方法，则 Save 将等待，直到异步操作完成。

在 Save 方法完成后，当前行位置将成为 Recordset 的首行。

回复赞