加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

[VB.NET]vb.net开发数据库备份程序

发布时间:2020-12-16 23:45:23 所属栏目:大数据 来源:网络整理
导读:vb.net开发数据库备份程序 vb.net开发数据库备份程序,需要任务计划参数化(也就是可以设置日备份,月备份,备份频率等),能设置自动,手动备份, 同时能备份应用程序,如何开发?有谁做个,给个方案可以吗?万分感谢! __________________________________
vb.net开发数据库备份程序 vb.net开发数据库备份程序,需要任务计划参数化(也就是可以设置日备份,月备份,备份频率等),能设置自动,手动备份, 同时能备份应用程序,如何开发?有谁做个,给个方案可以吗?万分感谢! __________________________________________________________________________ 关于备份,在SQLServer的企业管理器中用数据库维护功能就能设置日备份、月备份等 这方面的程序还没有开发过。等楼下的帖子吧。 __________________________________________________________________________ 正需要一个这东西,可惜也没有... __________________________________________________________________________ 备份数据库?直接Copy文件备份不行么? PS:偶菜鸟,表打.... __________________________________________________________________________ 这是以前在VB6里写的, Private Sub BackupDB() On Error GoTo eR Dim tmpCN As New ADODB.Connection Dim tmpDBName As String If lstDB.Text = " " Then MsgBox "要备份数据库,请先在列表中选择一个待备份的数据库。 ",vbInformation Exit Sub End If tmpDBName = lstDB.Text Dim sFile As String Dim c As New cCommonDialog If Not (c.VBGetSaveFileName( _ Filename:=sFile,_ Filter:= "备份文件(*.bak)|*.bak|所有文件(*.*)|*.* ",_ DefaultExt:= "bak ",_ Owner:=Me.hwnd)) Then Exit Sub ''If FileExist(tmpFile) = True Then '' MsgBox "文件已经存在,请重新输入一个新的文件。 ",vbExclamation,"注意 " ''End If tmpStr = frmConnectServer.ConnectServer(tmpCN,mDBNtAuth,mDBServer,mDBUser,mDBPassWord) If tmpStr <> " " Then MsgBox "连接数据库服务器不成功。 " & vbCrLf & vbCrLf & tmpStr & vbCrLf,vbCritical Exit Sub End If ''连接数据库成功,备份数据库 Sqlstring = "BACKUP DATABASE " & tmpDBName & " TO DISK = '' " & sFile & " '' " Call tmpCN.Execute(Sqlstring) Exit Sub eR: MsgBox Err.Description,vbCritical End Sub __________________________________________________________________________ 像楼上这样调用backup语句是可以的.不过不知道在sqldmo里面有没有相关功能.既然在企业管理器有这样的功能,应该能通过程序实现的,楼主不访看看dqldmo __________________________________________________________________________

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读