会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前Private objSQLServer As New SQLDMO.SQLServer |
Private Sub cmdBackup_Click() |
Dim objBackup As New SQLDMO.backup |
objBackup.Database = "pubs" |
objBackup.MediaName = "C:\Mssql7\Backup\pubs.bak" |
'If you backup to tape, you can use |
'objBackup.MediaName = "\\.\TAPE0" |
objBackup.MediaDescription = "Back of pubs" |
objBackup.SQLBackup (objSQLServer) |
End Sub |
Private Sub cmdRestore_Click() |
Dim objRestore As New SQLDMO.Restore |
objRestore.Database = "pubs" |
objRestore.MediaName = "C:\Mssql7\Backup\pubs.bak" |
objRestore.ReplaceDatabase = True |
objRestore.SQLRestore (objSQLServer) |
End Sub |
Private Sub Form_Load() |
objSQLServer.Connect "Localhost", "sa", "" |
End Sub |
