SQL 発行用入力処理

SQL用スクリプト (検索)

<SCRIPT language=VbScript>

top.OutputFrame.document.open()

function fncSql()

	top.OutputFrame.document.open()

	Set cn = CreateObject("ADODB.Connection")
	strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source=" & document.all.item( "FILE" ).value & ";" & _
			"Extended Properties=""Excel 8.0;"""

	cn.Open strConnection

	Set rs = CreateObject( "ADODB.Recordset" )

	SqlQuery = document.all.item( "SQL" ).value
	rs.Open SqlQuery, cn

	top.OutputFrame.document.write( "<HTML><HEAD>" )
	top.OutputFrame.document.write( "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; CHARSET=shift_jis"">" )
	top.OutputFrame.document.write( "</HEAD><BODY>" & vbCrLf )
	top.OutputFrame.document.write( "<table  cellpadding=5>" )
	Do while not rs.EOF

		top.OutputFrame.document.write( "<tr>" & vbCrLf )

		for i = 1 to rs.fields.count
			top.OutputFrame.document.write( "<td>" )
			top.OutputFrame.document.write( rs.Fields( i-1 ).Value )
			top.OutputFrame.document.write( "</td>" )
		Next

		top.OutputFrame.document.write( "</tr>" & vbCrLf )

		rs.MoveNext
	Loop
	top.OutputFrame.document.write( "</table>" & vbCrLf )
	top.OutputFrame.document.write( "</BODY><HTML>" )

	rs.Close
	cn.Close



end function

</SCRIPT>

入力部分

[下で記述されているテキストエリアタグは、2バイト文字なので貼り付けて使用できません]


<html>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=shift_jis">
</HEAD>
<BODY>

	<ＴＥＸＴＡＲＥＡ name=SQL cols=80 rows=10></ＴＥＸＴＡＲＥＡ>
	<input type=button name=DoSql value="検索処理" onClick="fncSql"><br>
	<input name=FILE type=file style='width:400'>

</BODY>
<html>

テキストエリアの説明

更新用関数


function fncUpd()

	if not confirm( "更新しますか?" ) then
		exit Function
	end if

	top.OutputFrame.document.open()


	Set cn = CreateObject("ADODB.Connection")
	strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source=" & document.all.item( "FILE" ).value & ";" & _
			"Extended Properties=""Excel 8.0;"""

	cn.Open strConnection

	cn.Execute document.all.item( "SQL" ).value

	cn.Close

end function

更新用ボタンの追加

[下で記述されているテキストエリアタグは、2バイト文字なので貼り付けて使用できません]


<html>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=shift_jis">
</HEAD>
<BODY>

	<ＴＥＸＴＡＲＥＡ name=SQL cols=80 rows=10></ＴＥＸＴＡＲＥＡ>
	<input type=button name=DoSql value="検索処理" onClick="fncSql"><br>
	<input type=button name=DoUpd value="更新処理" onClick="fncUpd">
	<input name=FILE type=file style='width:400'>

</BODY>
<html>

テキストエリアの説明