by Adi Katz (2 Submissions)
Category: Active Server Pages
Compatability: ASP (Active Server Pages)
Difficulty: Unknown Difficulty
Originally Published: Fri 29th March 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Getting Schema Information From Any *.MDB , MSSQL or Other DataBase And Building a Dynamic Table. 'Change DB Path In (strCn) ConnectionString
VBcoders
<%
Dim Cn,Rs,strCn,Sql,Tbl
Tbl = Request.QueryString("Table") ' Get Table Name For Sql Statement
strCn = "Driver=Microsoft Access Driver (*.mdb);" & _
"DBQ=" & Server.MapPath("NWIND.MDB") 'Use Any DB
private sub OpenConnect()
set Cn = server.CreateObject("ADODB.Connection")
Cn.Open strCn
set Rs = Server.CreateObject("ADODB.Recordset")
End Sub
Private sub SchemaTable()
set Rs = Cn.OpenSchema(20,Array(Empty,Empty,Empty,"Table"))'20 = adSchemaTable
If Not Rs.EOF then call BuildMenu()
End sub
Private sub OpenRecset()
Sql = "SELECT Top 6 * From [" & Tbl & "]" '[] if Table Name is [Order Details]
Rs.Open Sql,Cn,0,1 ' ForwardOnly,ReadOnly
If Not Rs.EOF then call BuildTable()
End sub
private sub CloseAllRes()
If IsObject(rs) then
If Rs.State then
Rs.Close()
Set Rs = Nothing
End if
End if
If Cn.State then
Cn.Close()
set Cn = Nothing
End if
End sub
'--- Starting Point ---'
call OpenConnect()
call SchemaTable()
If Request.QueryString("Table") <> "" then
Rs.Close()
Call OpenRecset()
End If
Call CloseAllRes()
'----------------------'
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<BaseFont size=3>
</HEAD>
<BODY>
<%private Sub BuildMenu()%>
<Table Border>
<Form>
<Tr>
<TD>
<SELECT NAME=Table
OnChange="javascript:document.forms(0).submit();">
<OPTION><%="<- -SELECT- ->"%></OPTION>
<%Do While Not (Rs.EOF)%>
<OPTION><%=Rs.Fields("TABLE_NAME").Value%></OPTION>
<%Rs.MoveNext
loop%>
</SELECT>
</TD>
</Tr>
</Form>
</Table>
<%End sub%>
<%Private sub BuildTable()%>
<table border>
<%For Each H In Rs.Fields%>
<th><%=H.name%></th>
<%Next%>
<%Do While Not (Rs.EOF)%>
<tr valign=top>
<%For Each Tdata In Rs.Fields%>
<td><%=Tdata.value%></td>
<%Next%>
</tr>
<%Rs.MoveNext
loop%>
</table>
<%End sub%>
</BODY>
</HTML>
No comments have been posted about Getting Schema Information From Any *.MDB , MSSQL or Other DataBase And Building a Dynamic Table. '. Why not be the first to post a comment about Getting Schema Information From Any *.MDB , MSSQL or Other DataBase And Building a Dynamic Table. '.
