private sub button3_click(byval sender as system.object, byval e as system.eventargs) handles button3.click '備份數據庫 'backup database test to disk='c:/backup' with format dim cn as sqlconnection dim cm as sqlcommand cn = getdb() cm = new sqlcommand("backup database jxbase to disk='c:/backup ' with format", cn) cn.open() cm.executenonquery() msgbox("備份成功") cn.close()

end sub

'恢復 private sub button6_click(byval sender as system.object, byval e as system.eventargs) handles button6.click dim cn as new sqlconnection dim cn1 as new sqlconnection dim mydr as sqldatareader dim str as string

 dim tmpconnectionstring as string = "data source=jjk;initial catalog=master;integrated security=true" cn.connectionstring = tmpconnectionstring cn1.connectionstring = tmpconnectionstring cn.open() cn1.open() dim cm as sqlcommand = new sqlcommand("select spid from master..sysprocesses where dbid=db_id('jxbase')", cn) mydr = cm.executereader()

dim cm1 as sqlcommand = new sqlcommand() cm1.connection = cn1

while (mydr.read()) '殺死進程

str = "kill " & mydr("spid").tostring() cm1.commandtext = str cm1.commandtype = commandtype.text application.doevents() cm1.executenonquery() '殺進程 end while mydr.close() cm = new sqlcommand("restore database jxbase from disk='c:/backup'", cn) '恢復備份 cm.executenonquery() msgbox("恢復成功成功") cn.close() cn1.close()

end sub

最大的網站源碼資源下載站，