概要
vbsの作法、調べてみた。
練習問題、やってみた。
練習問題
htaで、mbdをselectせよ。
写真
サンプルコード
<html>
<head>
<title>mdb sql run</title>
<HTA:APPLICATION SHOWINTASKABAR="no" WINDOWSSTATE="maximize" />
<style type="text/css">
#Text1 {
margin-bottom: 0px;
}
#MdbFile1 {
height: 19px;
}
</style>
</head>
<body bgcolor="#99FFCC">
<h1> mdb sql run</h1>
<p>
<textarea id="SQL1" cols="80" rows="10">SELECT * FROM are</textarea>
</p>
<p>
<input id="Button1" type="button" value=" 実行 " />
</p>
<div id="Kekka">
ここに結果
</div>
<script language="vbscript">
Sub Button1_onClick
Dim SQL
With CreateObject("ADODB.Connection")
.Open "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=db1.mdb"
SQL = SQL1.Value
Kekka.innerText = .Execute(SQL).GetString( , , , vbLf)
.Close
End With
End Sub
</script>
</body>
</html>
以上。