SQL-DMO リストア用 HTA

  注意書き



バックアップの場合は、データベースに影響を与える事は無いので安心ですが、リストアは危険です。しっかりとした知識が無い場合はむやみに行なわないほうが良いでしょう。ですから、「L Transporter」 には実装していません。下記 HTA を実行する場合は、バックアップデバイスの情報を、「L Transporter」で取得して、さらにリストアするデータベースファイルの位置情報をしっかり把握した上で行なって下さい。

ファイル位置の変更(RelocateFiles)の書式は、こちら を参照して下さい



  コード



  
<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>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ