1184
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
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,假如您不想关闭，可以使用
我上面指出的方法
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
假如正在使用您可以使用
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
VB 备份access数据库报错“不能打开数据库”？ 请教各位VB高手，我用VB时，备份ACCESS数据库，备份可以成功，但是软件无法进行其他录入、查询功能了，报错是“不能打开数据库”，是什么原因呢？具体代码如下： Private Sub cmdBackUp_Click() CmDialog1.Filter = ...
请教各位高手：在vb中如何用语句把Sql Server数据库备份成文件？ 我想在VB中通过语句把Sql Server数据库做备份成文件,如备份成.bak文件,如能备份, 又如何恢复? 敬请指点!多谢！
vb中如何实现SQL数据库还原? 请教一个问题: VB中如何实现SQL数据库还原? 我是这样做的. txtsql="Restore DataBase XXDate from 新信数据备份" set mrc=executesql(txtsql,msgText) 执行的时候出错. 说:" 数据库正在使用 " 不知道为什么? 请教...
数据库备份的难题，请教高手？ 我用vb做一个软件需要用到数据库的备份和恢复，备份已经搞定，但是恢复还是有问题： Private Sub RestoreDB(ServerName As String, BackFile As String) Dim oRestore As SQLDMO.Restore Dim dmoServer As New ...
新手请教：想用vb.net实现数据库的备份、恢复、导出导入、清空等功能。请高手指教 小弟新学vb.net，想实现数据库的备份、导出导入、清空等功能。数据库用的sql，就是类似sql里面的所有任务的功能。请各位大侠解释详细一点，如果能有一个例子就更便于理解了。呵呵。先谢谢大家。我不知道行情，如果...
请教！！！怎么在VB中实现SQL SERVER数据库的备份及修复还原？？？ 请教高人，要在VB中实现SQL SERVER数据库的定时（或及时）自动备份和修复还原，该怎么做啊？？？谁能提供些方法（代码等），非常感谢！！！
请教VB备份SQL数据库的问题 在A上恢复数据库也是一样的，A上没有备份数据库文件，造成无法恢复，请高手指点。下面是我进行备份时的代码： mSqlMaster = "provider=SQLOLEDB;server=" & IPstr & ";database=master;uid=sa;pwd=19801103" ...
VB备份数据库问题 1.请教各位高手：在SQL中执行了 backup database yzy to disk='D:\毕业设计\db.BAK' with name='数据备份', description='数据全备份', init go语句后“消息框”中返回结果： 已处理 320 页，这些页属于数据库 'yzy'...
vb中实现access数据库备份和数据库恢复问题 vb中实现access数据库备份和数据库恢复,具体就是窗体中有个按纽，直接单击就实现备份数据库功能，并且是弹出对话框，自由选择路径保存数据库。 数据库恢复也是一样。 谢谢大家帮忙，急切等待大家的支持，我是个新手...
数据库备份有点问题，请教各位大哥，急的 backup database chongjia to disk='c:\chongjia.bak' 该语句在 SQL 2000 的查询分析器中能够备份完成，但在 VB6.0 中却不能完成，不知是何原因？ 错误提示是："在关键字'Database' 附近有语法错误" 下面是程序： 盼...
请教：如何用VB实现恢复SQL SERVER数据库备份的恢复，请给代码。 请教：如何用VB实现恢复SQL SERVER数据库备份的恢复，请给代码。 并说明如何得知sql SERVER处于管理员独占状态。
请教 关于vb+access系统 数据库压缩备份的问题！ 我用vb+access 做了个小的数据管理系统，现在功能基本完成了，想研究一下数据库压缩和备份的问题，程序我在网上已经找到了，但具体的使用方法我不是很明白，在网上搜了好久也没搜出程序的使用方法，所以请大家多帮...
入门菜鸟问题之二：如何在VB里面实现数据库备份 请教大虾们在VB里面怎样实现SQL SERVER 2000 数据库备份， 是用SQL语句吧？那怎么写？ 急！在线等待！马上给分！ 比如数据库名JXC_Factory.
请教大虾：vb中如何实现数据库的备份和恢复功能,数据库用access2000（紧急任务-30分） 请教大虾：我用vb做了一个图书管理系统，有删除功能，需要在上面加备份和恢复功能，请大虾指教， 最好有源代码！！！！
弱弱得问，请教邹建的关于vb实现sqlsever数据库的备份还原的程序的若干问题－当场给分 小弟才学sqlsever，和vb，有些地方不是很明白，望各位大哥指教一二！ 我想实现数据库的备份还原操作，我实现的是服务器端的备份还原，备份部分已经成功，为测试数据库能否还原，我在数据库VIPDB（我所操作的数据库名...
[VB.NET]告急!备份数据库的问题 <!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--><script type="text/javascript"
如何在VB程序中为SQL数据库创建一个备份作业？ 如何在VB程序中为SQL数据库创建一个备份作业？ 只需要在安装程序的过程中来创建这个作业，安装完成后就让SQL数据库自己去管理这个作业了。 请教各位了
怎么用VB.NET代码实现SQLserver2000数据库的备份与恢复 我用vb.net现在编写了一个设备管理系统，数据库用server 2000,数据库名为centremis 系统功能要求实现数据库备份与恢复，请教高手
关于sql server 数据库备份还原问题请教！很急，万分感谢！ 我需要在vb里面对sql数据库备份,用ADO连接数据库，用BACKUP命令备份数据库成功，但用RESTORE还原时显示错误：数据库正在使用中！请教如何使用RESTORE还原数据库？ Set StringTranslator = New ADODB.Recordset With ...
如何在程序中实现数据库的备份和恢复,请教(在线等待) 我用的是VB语言,在.net中如何实现数据库的备份和恢复,敬请高手不吝赐教. SQL server 数据库 如果可以的话,能否给出原代码,先谢谢了
vue-devtools chrome 插件 chrome（谷歌浏览器）vue代码调试插件， 已打包。解压后，通过chrome扩展程序加载即可使用。
使用方法：
1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面
2、勾选开发者模式
3、点击“加载已解压的扩展程序...”按钮，选择解压后的chrome文件夹，即可添加成功。
4、添加完vue-devtools扩展程序之后，我们在调试vue应用的时候，ch
rome开发者工具中会看一个vue的一栏，点击之后就可以看见当前页面vue对象的一些信息
