このメソッドは、ACCESS データのテーブル名、その構造、データ型などを取得できます。プログラムは、複数の ACCESS データベースのいくつかの隠しテーブルをフィルタリングします (これが、データの削除後に ACCESS データベースが大きくなる理由である可能性があります)。
<html>
<頭>
<title>ACCESS データベース テーブル名_www.vevb.com を取得</title>
</head>
<body style=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<form style=padding:5px;margin:5px;margin-left:0px name=get action=method=post>
データベース パス:<入力タイプ=テキスト名=パス値=サイズ=50 />
<input type=hidden name=ari value=1 />
<入力タイプ=送信値=表示/>
</form>
<時間>
<%
request.form(ari)=1 かつ request.form(path)<> の場合、
ディム conn、connstr、i、sql、rs
エラー時は次から再開
Connstr=DRIVER=Microsoft Access Driver (*.mdb);DBQ=+server.mappath(request.form(path))
Conn=Server.CreateObject(ADODB.Connection) を設定します
conn.Open connstr
エラーの場合はその後
エラークリア
SetConn=なし
Response.Write データベース接続エラー。接続文字列を確認してください。
応答.終了
終了の場合
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
j=0
ディムテーブルカウント
テーブルカウント=0
shm = conn.OpenSchema(20) を設定します。
shm.MoveFirst
shm.EOF を実行しないでください
shm(TABLE_TYPE) = TABLE の場合
If Left(shm(table_name), 1) <> ~ then 'ここで非表示のテーブルを除外します
j=j+1
GetFileds(shm(table_name)) を呼び出す
終了の場合
終了の場合
shm.MoveNext
ループ
response.write 合計 &j& データ テーブルがあります!
それ以外
response.write <h3>特定のコンテンツを表示するには、データベースへの相対パスを入力してください。</h3>
終了する場合
%>
</body>
</html>
<%
関数 GetFileds(テーブル名)
rs = server.createobject(adodb.recordset) を設定します。
ディムSQL
SQL = select * from & テーブル名
rs.Open SQL、conn、1、1
ディムコント
Cont = rs.Fields.Count
response.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd Solid;background:#eeeeee>&vbcrlf
response.write テーブル <font color=red><b>&TableName&</b></font> には、次のような &Cont& フィールドが含まれています:<br>&vbcrlf
For i = 0 To Cont - 1
ディムフィルタイプ
ケースを選択 rs.fields(i).type
ケース3
filtype=自動番号(番号)
ケース202
フィルタイプ=文字
ケース203
filtype=備考
ケース125
フィルタイプ=日付
ケース11
filtype=true/false(はい/いいえ)
エンドセレクト
response.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
次
応答.write </div>&vbcrlf
rs.閉じる
rs=何も設定しない
終了機能
%>