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

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
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
__________________________________________________________________________