用VB备份和恢复SQL Server数据库的方法

Client
　targetCn. Open ” PROVIDER = Microsoft. Jet. OL Edb. 3.51 ;
　Data Source = ”& tagFilName &“;”
　End If //追加新表
　For i = 0 To tabN - 1
　　Set targetRst = New adodb. Recordset
　　strSql = ”select 3 from ”& tabName (i)
　　targetRst. Open strSql , targetCn , adOpenStatic , adLockPes2simistic , adCmdText
　　Set sourceSet = New adodb. Recordset
　　strSql = ”select 3 from ”& tabName (i) & strSQLApp
　　sourceSet. Open strSql , sourceCn
　　zdN = sourceSet. Fields. Count
　　If sourceSet. EOF Then Go To hh
　　　sourceSet. MoveFirst
　　　Do While Not sourceSet. EOF
　　　　targetRst. AddNew
　　　　For j = 0 To zdN - 1
　　　　　If Trim (sourceSet. Fields (j) . Value) = ””Then
　　　　　　targetRst. Fields (j) . Value = Null
　　　　　Else
　　　　　　　targetRst. Fields (j) . Value = Trim (sourceSet. Fields(j) . Value)
　　　　　End If //复制记录
　　　　Next
　　　　targetRst. Update
　　　　sourceSet. MoveNext
　　　Loop
　　　recN = targetRst. RecordCount
　　　hh :sourceSet. Close
　　　Set sourceSet = Nothing
　　　targetRst. Close
　　　Set targetRst = Nothing
　　Next
　　targetCn. Close
　　Set targetCn = Nothing
　　sourceCn. Close
　　Set sourceCn = Nothing
End Sub //删除链接
　　其中字符数组tabName (i) 中存放需备份的各数据表名, strSQLAPP 字符串中存放对数据表的限制条件where 子句内容。

　　4、数据恢复

　　如果要从Access中将数据恢复到SQL Server中，方法类似，仅仅是拷贝记录的方向和以上相反，即从Access表往链接过来的SQL表中拷贝。

　　 安全方案

　　因为Access属小型数据库，所以要保证其不被非法访问。可以在VB程序中实现对备份数据库的安全性接口，有以下两种方法限制对Access的任意访问：

　　（1）给Access数据库加口令，在VB程序中用口令打开数据库。打开Access软件，选中“工具”菜单，选择“安全”项，选择“加密/解密数据库”，然后选择备份数据库的名字，就可以给这个数据库加上密