用VB备份和恢复SQL Server数据库的方法【荐】.docVIP

用VB备份和恢复SQL Server数据库的方法 摘要 备份与恢复是数据库Access备份SQL数据库的方法，很好地达到了数据备份的目的。同时，就Access 数据库的安全接口作了简略讨论，使备份后不致丧失数据安全性。并提出了改进备份与恢复策略的一些建议。　　关键词 SQL Server数据库； Visual Basic 6.0； 数据备份；数据恢复； Access　　引言　　对于关键应用的数据库系统应根据具体环境和条件制订一个完善可行确保系统安全的备份计划,没有备份的系统是不可靠、危险的，后果将是严重的，破坏性病毒、误操作、自然灾害等等都可能会对数据库系统造成难以估量的破坏。尤其对一个信息化程度较高的企业来说，最有价值的财产或许就是企业数据库中的数据。一个系统中最重要的是大量的实时数据,没有备份功能显然是不安全和不完善的。经过实践摸索出Visual Basic 6.0开发的备份程序，能将数据库备份到Access数据库（Access 为目前流行的桌面型数据库产品, 具有存储操作灵活、便利等优点, 并且因它与SQL Server 同属微软数据库产品, 二者能很好地兼容）中，并对Access数据库进行加密以防数据被非法访问。该程序还能用Access备份库的数据恢复SQL Server数据库，从而减少因误操作损坏数据内容而造成的损失。使用该方法，用户不须添加额外设备，只须在原有服务器VB定义两个主要过程：Attach_Table（）和Create_Table（）。Attach_Table的作用是将SQL Server数据库中的所有需要备份的表链接到Access数据库中，在此过程中要排除系统表，因为那是SQL Server自创建的，表中无用户数据。Create_Table的作用是在backup.mdb中创建目的表，即在这个备份Access库中创建表用来保存所有存在SQL数据库中的用户数据。另外，在链接过程中，要去掉SQL Server自带的拥有者名称。　　2、程序的逻辑结构　　① 通过第一步创建的ODBC数据源打开要备份的SQL数据库；　　② 使用Attach_Table（）将该数据库中的所有用户表链接到backup.mdb中，排除系统表的方法是： For Each tdf in backup_db.TableDefs　If (tdf.attributes And dbSystemObject)=0 Then　　//条件成立，说明该表是用户定义的表，可以链接，否则跳过 　End if Next 　　③ 使用Create_Table（）对每个表创建与之对应的备份表，取名可遵循如下原则， 若原表叫table_name， 则备份表叫b_table_name。　　④ 将table_name表中的所有记录复制到b_table_name中。　　⑤从备份库删除对SQL数据表的链接。 3、程序原码　　采用微软DAO (Data Access Object) 数据模型, 打开Access 本地数据库 　　追加数据, 采用微软ADO (ActiveX data object) 数据模型, 分别操纵SQL Server 和Access 数据对象, 追加记录数据来完成, 有以下过程块CopyDa2ta : Private Sub copyData ()　Set sourceCn = New adodb. Connection　sourceCn. CursorLocation = adUseServer　strSql =“PROVIDER = MSDASQL ; dsn = xgsdb ; uid = sa ;　pwd = ;”　sourceCn. Open strSql 　Set targetCn = New adodb. Connection　targetCn. CursorLocation = adUseClient　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