会python真的可以为所欲为0(回)
401天前
这里还有人吗1(回)
586天前这里还有人吗0(回)
586天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
811天前到处都是羊，不想上班0(回)
891天前
鸽子
0(回)
895天前Dim objSQLServer |
Set objSQLServer = Server.CreateObject("SQLDMO.SQLServer") |
objSQLServer.Connect "Localhost", "sa", "" |
Private Sub Backup() |
Dim objBackup |
Set objBackup = Server.CreateObject("SQLDMO.Backup") |
objBackup.Database = "pubs" |
objBackup.MediaName = "C:\Mssql7\Backup\pubs.bak" |
objBackup.MediaDescription = "Back of pubs" |
objBackup.SQLBackup (objSQLServer) |
End Sub |
|
Private Sub cmdRestore_Click() |
Dim objRestore |
Set objRestore = Server.CreateObject("SQLDMO.Restore") |
objRestore.Database = "pubs" |
objRestore.MediaName = "C:\Mssql7\Backup\pubs.bak" |
objRestore.ReplaceDatabase = True |
objRestore.SQLRestore (objSQLServer) |
End Sub |
by: 发表于：2017-11-14 10:33:05 顶(0) | 踩(0) 回复
？？
回复评论