Function SelectTables()

	Dim Ret

	Ret = window.showModalDialog( _
	"tables.htm" , _
	window, _
	"dialogWidth:600px;dialogHeight:500px;help:no;unadorned:yes;edge:sunken" _
	 )

	if Ret <> "" then
		document.all("Tables").value = Ret
	end if

End Function

function LoadTables()

	Dim win

	Set win = window.dialogArguments

	Call win.Ora( _
		win.document.all("Dsn").value, _
		win.document.all("User").value, _
		win.document.all("Password").value _
	 )

	if not win.Ora.Connect() then
		alert("接続に失敗しました")
		window.close
		Exit Function
	end if

	Dim Query

	document.all("ListTarget").length = 0
	Query = "select * from USER_TABLES order by TABLE_NAME"
	if not win.Ora.Query( Query ) then
		Call win.Ora.DisConnect()
		alert("読み出しに失敗しました" )
		window.close
		Exit Function
	end if

	Do while not win.Ora.Rs.EOF
		document.all("ListTarget").options.length = _
			document.all("ListTarget").options.length + 1
		document.all("ListTarget").options( _
			document.all("ListTarget").length-1 _
			).text = _
			win.Ora.Rs.Fields( "TABLE_NAME" ).value
		win.Ora.Rs.MoveNext()
	Loop

	Call win.Ora.DisConnect()

end function

function DialogEnd()

	window.returnValue = "戻り値"
	window.close

end function

<BASE target="_self">