Этот метод может получить имя таблицы данных ACCESS, ее структуру, тип данных и т.д. Программа фильтрует несколько скрытых таблиц нескольких баз данных ACCESS (это может быть причиной того, что база данных ACCESS станет больше после удаления данных)
<html>
<голова>
<title>Получить таблицу базы данных ACCESS name_www.vevb.com</title>
</голова>
<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= метод=post>
Путь к базе данных:<тип ввода=имя текста=значение пути= размер=50 />
<тип ввода=скрытое имя=значение ari=1 />
<тип ввода=отправить значение=Просмотр/>
</форма>
<час>
<%
если request.form(ari)=1 и request.form(path)<>, то
dim conn,connstr,i,sql,rs
при ошибке продолжить дальше
Connstr=DRIVER=Драйвер Microsoft Access (*.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)
шм.MoveFirst
Делай, пока не шм.EOF
Если shm(TABLE_TYPE) = ТАБЛИЦА Тогда
If Left(shm(table_name), 1) <> ~ then 'Отфильтровать скрытые таблицы здесь
j=j+1
вызовите GetFileds(shm(table_name))
Конец, если
Конец, если
шм.MoveNext
Петля
response.write Всего таблиц данных &j& существует!
еще
response.write <h3>Пожалуйста, введите относительный путь к базе данных, чтобы просмотреть конкретное содержимое!</h3>
конец, если
%>
</тело>
</html>
<%
Функция GetFileds(ИмяТаблицы)
Установите rs = server.createobject(adodb.recordset)
Тусклый SQL
SQL = выбрать * из & Имя_таблицы
rs.Open SQL, conn, 1, 1
ДимКонт
Продолжение = 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
Для i = 0 Для продолжения - 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.Close
установить rs=ничего
Конечная функция
%>