双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VB如何实现数据库备份？急请各位高手请教

2002-04-27 02:31:57 98 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

fernery 墨衍会员 · AI 创作全网分发关注 + 加入社区

用VB备份和恢复SQLServer数据库的方法对于关键应用的数据库学习应根据具体环境和条件制订一个完善可行确保系统安全的备份计划,没有备份的系统是不可靠、危险的，后果将是严重的，破坏性病毒、误操作、自然灾害等等都可能会对数据库系统造成难以估量的破坏。尤其对一个信息化程度较高的企业来说，最有价值的财产或许就是企业数据库中的数据。一个系统中最重要的是大量的实时数据,没有备份功能显然是不安全和不完善的。经过实践摸索出Visual Basic 6 阅读详情

VB前台，ACCESS为后台，如何实现数据库备份，且生成bak文件，最好能给出原代码

...全文

在vb.net中使用程序备份sql server数据库在界面上使用button按钮触发备份过程如下： Private Sub Button_backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_backup.Click 执行备份过程 Try‘备份数据库 Me.backupDb() 阅读详情

fernery

数据库(包含打印，安装，报表) 1,218 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

yzfx 2002-05-14

打赏
举报

其实直接copy file是最简便的，但你可以把数据库的资料读出来，另外写成一个纯文本文件也可以，这样更有特色啦。

ivt 2002-04-27

打赏
举报

TO：
阿甘

数据库还原呢

sonicdater 2002-04-27

打赏
举报

http://www.csdn.net/expert/topic/679/679972.xml?temp=.7837335

gump2000 2002-04-27

打赏
举报

Private Sub cmdOut_Click()
CDialog.DialogTitle = "请输入巡更备份文件名"
CDialog.Filter = "巡更备份文件(*.XGB)|*.XGB"
CDialog.FilterIndex = 1
CDialog.InitDir = "c:\"
CDialog.Flags = cdlOFNHideReadOnly
CDialog.Filename = txtOut.Text
CDialog.ShowSave
txtOut.Text = CDialog.Filename
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''
'导出文件
If txtOut.Text = "" Then
MsgBox "请输入备份文件名！", vbExclamation, "提示"
Exit Sub
End If
If FileExists(txtOut.Text) Then
If MsgBox(txtOut.Text & "已经存在，是否要覆盖？", vbQuestion + vbYesNo, "提示") = vbNo Then Exit Sub
On Error GoTo out_err
Kill txtOut.Text
End If
BACKCnn.Close
FileCopy BACKDATABASE, txtOut.Text
If BACKCnn.State = adStateClosed Then BACKCnn.Open BackUpCnnString
MsgBox "备份文件导出成功！", vbExclamation, "提示"
Unload Me
Exit Sub
out_err:
MsgBox "备份文件导出错误！错误代码：" & vbCrLf & Error(Err), vbCritical, "错误"
If BACKCnn.State = adStateClosed Then BACKCnn.Open BackUpCnnString
Exit Sub

这个是我的例子代码
我是先关闭连接再backup,假如您不想关闭，可以使用
我上面指出的方法

gump2000 2002-04-27

打赏
举报

用FileCopy吧
假如正在使用您可以使用
FileSystemObject对象的CopyFile或者
API函数
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long

✦双11狂欢大促✦

VB如何实现数据库备份？急请各位高手请教

相关推荐

双11狂欢大促