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