我备份的程序就用backup database 不行, 还要先加sp_addumpdevice创建设备才行, 代码如下:
Dim conn As New ADODB.Connection
Dim mycom As New ADODB.Command
Dim param1 As ADODB.Parameter
Dim param2 As ADODB.Parameter
Dim param3 As ADODB.Parameter
Dim param4 As ADODB.Parameter
Dim sql As String
Dim backupfile As String
Dim backuppath As String