mdb 파일을 사용하여 SQL 연습을 해보자.

2932 단어 SQLaccess창문데이터베이스hta
VBS로 간단하게 SQL이 조종할 수 있는 인터프리터의 윈도우를 만들었습니다.
ACCESS mdb 파일이 필요합니다.
일단, Vecter SQL 실습 키트 페이지 에서 앱 및 샘플 데이터베이스 및 안내서를 다운로드할 수 있습니다.

덧붙여 넣은 SQL문에 에러가 있으면, 다시 시작해 실행 버튼을 눌러도 이 페이지는 반응하지 않게 되므로, 페이지를 닫고 나서, 재실행해 주세요.

액세스 데이터베이스 SQL 조작 화면 .hta
<html>
<head>
  <title>アクセスデータベースSQL操作ページ</title>
  <HTA:APPLICATION SHOWINTASKABAR="no"
                   WINDOWSSTATE="maximize" />
    <style type="text/css">
        #Text1
        {
            margin-bottom: 0px;
        }
        #MdbFile1
        {
            height: 19px;
        }
    </style>
   <script language="vbscript">
    <!--
'  ACCESSデータベースSQL操作ページ
'  開発日　平成21年10月5日
'  開発者　海星  E-mail:[email protected]
'  copyright 2009 Hitode all rights reserved
    Option Explicit
    On Error Resume Next
    Dim DBPath,SQL1
    Dim Dbmei
    Err.Clear
    DBMei="取引.mdb"
Sub load1()
    DBMei="取引.mdb"
    With CreateObject("Scripting.FileSystemObject")
        DBPath = .GetFolder(".").path & "\" & DBMei
    End With
'   msgbox DBPath
    Form1.MdbFile1.value = DBPath
End Sub

Sub Syori()
'  DBMei=form1.MdbFile1.value
' 取引データベース
  With CreateObject("Scripting.FileSystemObject")
    DBPath = form1.MdbFile1.value
  End With
  With CreateObject("ADODB.Connection")
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Open DBPath
' ＳＱＬ文の代入
'   SQL1 = "SELECT * FROM 現金出納帳テーブル WHERE 日付<DateSerial(2009,12,31);"
    SQL1 = form1.TextSQL1.Value
'   MsgBox .Execute(SQL1).GetString(, , , vbLf)
    document.getElementById("SQL-Kekka").innerText = .Execute(SQL1).GetString(, , , vbLf)
    If Err.Number<>0 Then MsgBox Err.Description,,"ＳＱＬ実行時エラー"
    .Close
  End With
End Sub
Sub JikkouButton1_onClick
    Syori()
End Sub
   </script> 
</head>
<body onLoad="load1()" bgcolor="#FFFFCC">
  <h1 align="center">アクセスデータベースSQL操作ページ</h1>
<form id="Form1">
<p>
　操作するアクセスデータベースファイルのパス　<br />
    <input id="MdbFile1" type="file" size="120" /></p>
<p>
　実行させたいＳＱＬ命令　<br />
    <textarea id="TextSQL1" cols="80" name="TextSQL1" rows="10"></textarea></p>
<p>
    <input id="JikkouButton1" type="button" value="　ＳＱＬ実行　" /></p>
</form>
<div id="SQL-Kekka">
ここに結果を表示します。
</div>
</body>
</html>
ACCESS에서 선불 명령문 실행
MS Access 데이터를 mdbtools로 보기

좋은 웹페이지 즐겨찾기

개발자 우수 사이트 수집

개발자가 알아야 할 필수 사이트 100선 추천 우리는 당신을 위해 100개의 자주 사용하는 개발자 학습 사이트를 정리했습니다
best100-homepage