用VB如何备份数据库？
我用的是SQL Server 2000，我想通过VB把数据中的一个数据完整的备份，请问在VB里怎么做呢？
假如数据库名了 mydate 我要把数据备份成一个数据库备份文件保存在C:\aaa\下面？
谢谢
问题点数：100、回复次数：4Top
1 楼zhsunson（sunson）回复于 2004-12-02 21:10:08 得分 0
用SQL的功能 在VB里调用就好了,很简单,就一条SQL语句
不会就查一下SQL的帮助!Top
2 楼creazyfish（梳分头的鱼）回复于 2004-12-02 21:17:13 得分 100
从网上找了段给你,应该是没有问题的
'*************************************************************************
'**模 块 名：fBackupDatabase_a
'**描述：备份数据库,返回出错信息,正常恢复,返回""
'**调用：fBackupDatabase_a "备份文件名","数据库名"
'**参数说明：
'**sBackUpfileName恢复后的数据库存放目录
'**sDataBaseName备份的数据名
'**sIsAddBackup是否追加到备份文件中
'**说明：引用Microsoft ActiveX Data Objects 2.x Library
'*************************************************************************
Public Function fBackupDatabase_a(ByVal sBackUpfileName$ _
, ByVal sDataBaseName$ _
, Optional ByVal sIsAddBackup As Boolean = False _
) As String
Dim iDb As ADODB.Connection
Dim iConcStr$, iSql$, iReturn$
On Error GoTo lbErr
'创建对象
Set iDb = New ADODB.Connection
'连接数据库服务器,根据你的情况修改连接字符串
iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=zj"
iDb.Open iConcStr
'生成数据库备份语句
iSql = "backup database [" & sDataBaseName & "]" & vbCrLf & _
"to disk='" & sBackUpfileName & "'" & vbCrLf & _
"with description='" & "zj-backup at:" & Date & "(" & Time & ")'" & vbCrLf & _
IIf(sIsAddBackup, "", ",init")
iDb.Execute iSql
GoTo lbExit
lbErr:
iReturn = Error
lbExit:
fBackupDatabase_a = iReturn
End Function
Top
3 楼mybcb（bcb）回复于 2004-12-02 21:51:29 得分 0
请问sBackUpfileName 怎么赋值啊。Top
4 楼creazyfish（梳分头的鱼）回复于 2004-12-03 08:36:35 得分 0
直接从函数传入就可以了啊Top
