28,391
社区成员
发帖
与我相关
我的任务
分享
Dim cmm
Set cmm = CreateObject("ADODB.Command")
Set cmm.ActiveConnection = conn
cmm.CommandType = 4
cmm.CommandText = "cpb_proc_backup_db"
cmm.Parameters.Append cmm.CreateParameter("backup_db_name", 200, 1, Len(fdf), fdf)
cmm.Parameters.Append cmm.CreateParameter("filename", 200, 1, Len(ba), ba)
cmm.Execute
Set cmm = Nothing