يمكن لهذه الطريقة الحصول على اسم جدول بيانات ACCESS وبنيتها ونوع البيانات وما إلى ذلك... يقوم البرنامج بتصفية عدة جداول مخفية لعدة قواعد بيانات ACCESS (قد يكون هذا هو السبب في أن قاعدة بيانات ACCESS ستصبح أكبر بعد حذف البيانات)
<أتش تي أم أل>
<الرأس>
<title>احصل على جدول قاعدة بيانات ACCESS name_www.vevb.com</title>
</الرأس>
<نمط الجسم=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<نمط النموذج=الحشو:5px;الهامش:5px;الهامش الأيسر:0px الاسم=الحصول على الإجراء= الطريقة=النشر>
مسار قاعدة البيانات:<نوع الإدخال=اسم النص=قيمة المسار=الحجم=50 />
<نوع الإدخال = الاسم المخفي = قيمة آري = 1 />
<نوع الإدخال=قيمة الإرسال=عرض/>
</النموذج>
<ساعة>
<%
إذا request.form(ari)=1 و request.form(path)<> إذن
ديم كون، كونستر، أنا، SQL، RS
على خطأ استئناف المقبل
Connstr=DRIVER=برنامج تشغيل Microsoft Access (*.mdb);DBQ=+server.mappath(request.form(path))
تعيين Conn=Server.CreateObject(ADODB.Connection)
كون.فتح كونستر
إذا أخطأت ثم
خطأ. واضح
SetConn=لا شيء
Response.Write خطأ في اتصال قاعدة البيانات، يرجى التحقق من سلسلة الاتصال.
الاستجابة.النهاية
نهاية إذا
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
ي=0
عدد الطاولات الخافتة
عدد الطاولات=0
تعيين shm = conn.OpenSchema(20)
shm.MoveFirst
افعل بينما لا shm.EOF
إذا shm(TABLE_TYPE) = TABLE إذن
إذا Left(shm(table_name), 1) <> ~ ثم "قم بتصفية الجداول المخفية هنا."
ي=ي+1
استدعاء GetFileds(shm(table_name))
نهاية إذا
نهاية إذا
shm.MoveNext
حلقة
Response.write هناك جداول بيانات &j& إجمالاً!
آخر
Response.write <h3>الرجاء إدخال المسار النسبي لقاعدة البيانات لعرض المحتوى المحدد!</h3>
نهاية إذا
%>
</الجسم>
</html>
<%
الدالة GetFileds(اسم الجدول)
تعيين rs = server.createobject(adodb.recordset)
خافت SQL
SQL = حدد * من & TableName
rs.Open SQL، كون، 1، 1
DimCont
تابع = rs.Fields.Count
Response.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd Solid;background:#eeeeee>&vbcrlf
يحتوي جدول الاستجابة.كتابة <font color=red><b>&TableName&</b></font> على حقول &Cont&، كما يلي:<br>&vbcrlf
لأني = 0 للمتابعة - 1
com.dimfiltype
حدد الحالة rs.fields(i).type
الحالة 3
filtype=الرقم التلقائي (الرقم)
القضية 202
filtype=character
القضية 203
filtype=remarks
القضية 125
filtype=date
الحالة 11
filtype = صحيح / خطأ (نعم / لا)
حدد النهاية
Response.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
التالي
Response.write </div>&vbcrlf
روبية. إغلاق
تعيين RS=لا شيء
وظيفة النهاية
%>