VB实现SQLServer数据库备份恢复
【网学网提醒】：以下是网学会员为您推荐的VB实现SQLServer数据库备份恢复，希望本篇文章对您学习有所帮助。
VB实现SQLServer数据库备份/恢复
'*************************************************************************
'**模块名：fBackupDatabase_a
'**描述：备份数据库,返回出错信息,正常恢复,返回""
'**调用：fBackupDatabase_a"备份文件名","数据库名"
'**参数说明：
'**sBackUpfileName恢复后的数据库存放目录
'**sDataBaseName备份的数据名
'**sIsAddBackup是否追加到备份文件中
'**说明：引用MicrosoftActiveXDataObjects2.xLibrary
'**创建人：panmy
'**日期：2011年3月1日
'*************************************************************************
PublicFunctionfBackupDatabase_a(ByValsBackUpfileName
VB实现SQLServer数据库备份恢复_网学
,ByValsDataBaseName
VB实现SQLServer数据库备份恢复_网学
,OptionalByValsIsAddBackupAsBoolean=False_
)AsString
DimiDbAsADODB.Connection
DimiConcStr$,iSql$,iReturn$
OnErrorGoTolbErr
'创建对象
SetiDb=NewADODB.Connection
'连接数据库服务器,根据你的情况修改连接字符串
iConcStr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;DataSource=zj"
iDb.OpeniConcStr
'生成数据库备份语句
iSql="backupdatabase["&;sDataBaseName&;"]"&;vbCrLf&;_
"todisk='"&;sBackUpfileName&;"'"&;vbCrLf&;_
"withdescription='"&;"zj-backupat:"&;Date&;"("&;Time&;")'"&;vbCrLf&;_
IIf(sIsAddBackup,"",",init")
iDb.ExecuteiSql
GoTolbExit
lbErr:
iReturn=Error
lbExit:
fBackupDatabase_a=iReturn
EndFunction
'*************************************************************************
'**模块名：frestoredatabase_a
'**描述：恢复数据库,返回出错信息,正常恢复,返回""
'**调用：frestoredatabase_a"备份文件名","数据库名"
'**参数说明：
'**sDataBasePath恢复后的数据库存放目录
'**sBackupNumber是从那个备份号恢复
'**sReplaceExist指定是否覆盖已经存在的数据
'**说明：引用MicrosoftActiveXDataObjects2.xLibrary
'**创建人：邹建
'**日期：2003年12月09日
'*************************************************************************
PublicFunctionfRestoreDatabase_a(ByValsBackUpfileName
VB实现SQLServer数据库备份恢复_网学
