利用VB进行SQL2000的数据备份和恢复
一、数据备份
备份有两中形式完全备份和差异备份
完全备份：是对数据库进行完整备份，周期比较长，如1周等
差异备份：是对更新备份的数据进行备份，周期比较短，如1小时
命令介绍： Backup Database [数据库名] To Disk=[保存路径和名称] With [其他属性]
代码注释：ServerIP :SQLServer所在机器的 IP
jtsg:SQLServer中数据的名称
Public Cn As ADODB.Connection
Set Cn = New ADODB.Connection
strcon = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=jtsg;Data Source=" + ServerIp + ";" + _
"use procedure for prepare=1;auto translate=true;" + _
"use encryption for data=false;tag with column collation when possible=false"
Cn.ConnectionString = strcon
On Error Resume Next
Cn.Open
If Cn.Errors.Count > 0 Then
For i = 0 To Cn.Errors.Count - 1
If Cn.Errors(i).Number = -2147467259 Then
MsgBox "网络不通或服务器未开，请确认后再试", vbOKOnly + vbInformation, "提醒"
Unload Me
Exit Sub
Exit For
End If
Next i
End If
二、完全备份
Private Sub BackupAll()
Cn.Execute "backup database jtsg to disk='" + App.Path + "\backup\myjtsgall.bak' with name='jtsg backup all',description='Full Backup Of jtsg'"
MsgBox "数据完全备份已经完成", vbOKOnly + vbInformation, "提醒"
End Sub
三、差异备份
Private Sub BackupDif()
Cn.Execute "backup database jtsg to disk='" + App.Path + "\backup\myjtsgdif.bak' with&nbs
相关文档：
用ADO管理SQL SERVER
http://blog.csdn.net/cncco/archive/2009/11/09/4789123.aspx
在软件开发中，常常需要为程序建立Sql Server数据库的运行环境。完成如在SQL Server数据库中建立设备，建立数据库，建立表格，分配权限等功能，如何方便的建立应用程序所需Sql Server环境的数据库环境，而不用启动SQL Enterprise Manage ......
在软件开发中，常常需要为程序建立Sql Server数据库的运行环境。完成如在SQL Server数据库中建立设备，建立数据库，建立表格，分配权限等功能，如何方便的建立应用程序所需Sql Server环境的数据库环境，而不用启动SQL Enterprise Manager呢？
下面来看：
启动VB6.0，新建一个工 ......
'*************************************************************************
'**模 块 名：fBackupDatabase_a
'**描 述：备份数据库,返回出错信息,正常恢复,返回""
'**调 用：fBackupDatabase_a "备份文件名","数据� ......
今天修改了数据库，于是进行重新发布和订阅，突然出现了以下异常
进程未能大容量复制到表"XS_DDML"中
错误详细信息：
在 BCP 数据文件中遇到的意外的 EOF
(源: ODBC SQL Server Driver (ODBC); 错误代码: S1000)
于是查帮助，查Google,呵呵，Google还真是个好地方，找到了以下SQL，据说可以解决该问题
sp_configure&n ......
