|
<SCRIPT language="VBScript">
Const SQLDMORestore_Database = 0
' **********************************************************
' リストア
' **********************************************************
Function DoRestore()
' オブジェクト作成
Set objServer = CreateObject("SQLDMO.SQLServer")
Set objRestore = CreateObject("SQLDMO.Restore")
' リストアプロパティをセット
objRestore.Action = SQLDMORestore_Database
objRestore.Database = document.all("DatabaseName").value
objRestore.Devices = document.all("DeviceName").value
objRestore.FileNumber = document.all("FileNumber").value
objRestore.ReplaceDatabase = document.all("ReplaceDatabase").checked
if document.all("RelocateFiles").value <> "" then
objRestore.RelocateFiles = document.all("RelocateFiles").value
end if
' 接続
Call objServer.Connect( _
document.all("Server").value, _
document.all("User").value, _
document.all("Password").value _
)
' リストア
Call objRestore.SQLRestore( objServer )
' 切断
Call objServer.DisConnect()
Set objRestore = Nothing
Set objServer = Nothing
End Function
</SCRIPT>
<HTML>
<HEAD>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
</HEAD>
<BODY id=Main bgcolor=forestgreen>
<TABLE border=0 cellspacing=1 cellpadding=5 style='background-color:black'>
<TR>
<TD bgcolor=silver>サーバー</TD>
<TD bgcolor=silver><INPUT type=text name="Server" value="localhost"></TD>
</TR>
<TR>
<TD bgcolor=silver>ユーザ</TD>
<TD bgcolor=silver><INPUT type=text name="User" value="sa"></TD>
</TR>
<TR>
<TD bgcolor=silver>パスワード</TD>
<TD bgcolor=silver><INPUT type=text name="Password"></TD>
</TR>
<TR>
<TD bgcolor=silver>デバイス名</TD>
<TD bgcolor=silver><INPUT type=text name="DeviceName"></TD>
</TR>
<TR>
<TD bgcolor=silver>データベース名</TD>
<TD bgcolor=silver><INPUT type=text name="DatabaseName"></TD>
</TR>
<TR>
<TD bgcolor=silver>ファイル番号</TD>
<TD bgcolor=silver>
<SELECT name="FileNumber">
<OPTION value=1>1
<OPTION value=2>2
<OPTION value=3>3
<OPTION value=4>4
<OPTION value=5>5
<OPTION value=6>6
<OPTION value=7>7
<OPTION value=8>8
<OPTION value=9>9
<OPTION value=10>10
</SELECT>
</TD>
</TR>
<TR>
<TD bgcolor=silver>上書きする</TD>
<TD bgcolor=silver><INPUT type=checkbox name="ReplaceDatabase"></TD>
</TR>
<TR>
<TD bgcolor=silver>ファイル位置の変更</TD>
<TD bgcolor=silver><INPUT type=text name="RelocateFiles" style='width:550'></TD>
</TR>
</TABLE>
<BR>
<INPUT type=button value="リストア開始" onClick='Call DoRestore()'>
</BODY>
</HTML>
| |