by Michael Highguy (7 Submissions)
Category: Active Server Pages
Compatability: ASP (Active Server Pages)
Difficulty: Unknown Difficulty
Originally Published: Wed 6th November 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Read table information from *.mdb file (add any *.mdb to root directory) or SQL Server DB (Change "YourServerName" on real name) build queries
VBcoders
<%dim Rs, Cn, Sql, ConnStr, ConType, Tbl, DBPath, ElemQuan
ElemQuan = Request.QueryString("quan")
Tbl = Request.QueryString("table")
DBPath = Server.MapPath("nwind.mdb")
if Request.QueryString("tmp") <> "" then
Sql = "SELECT TOP " & ElemQuan & " " & Request.QueryString("tmp") & " FROM [" & Tbl & "]"
call ChooseConnection()
end if
private sub CreateMyObjects
set Rs = Server.CreateObject("ADODB.recordset")
set Cn = Server.CreateObject("ADODB.connection")
end sub
private sub OpenDefaulConnection
Cn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & DBPath
end sub
private sub BuildSelection
call CreateMyObjects()
call OpenDefaulConnection()
set Rs = Cn.OpenSchema(20,Array(empty,empty,empty,"Table"))%>
<SELECT id=table name=table onchange="javascript:window.main.submit()">
<option>Make Your Choice</option>
<%while not Rs.EOF%>
<%if Rs.Fields("TABLE_NAME").Value = Tbl then%>
<option selected><%=Rs.Fields("TABLE_NAME").Value%></option>
<%else%>
<option><%=Rs.Fields("TABLE_NAME").Value%></option>
<%end if%>
<%Rs.MoveNext
wend%>
</SELECT>
<%Rs.Close
Cn.Close
end sub
private sub ChooseConnection
call CreateMyObjects()
ConType = Request.QueryString("dbcon")
if ConType = "provider" then
ConnStr = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & DBPath
else
ConnStr = "data source=YourServerName;initial catalog=Northwind;User Id=sa;password=;"
end if
end sub
private sub BuildTable
if ConType = "server" then Cn.Provider = "SQLOLEDB"
Cn.Open ConnStr
call FillRecordSet()%>
<table BORDER=1 align=center>
<tr>
<%for each Item in Rs.Fields%>
<td><%=Item.Name%></td>
<%next%>
</tr>
<%while not Rs.EOF%>
<tr>
<%for each Item in Rs.Fields%>
<td><%=Item.Value%></td>
<%next%>
</tr>
<%Rs.MoveNext
wend%>
</table>
<%end sub
private sub FillRecordSet
Rs.Open Sql,Cn,adOpenForwardOnly
end sub
private sub BuildCheckBoxes
if Tbl <> "" then
call CreateMyObjects()
call OpenDefaulConnection()
Rs.Open "SELECT TOP 1 * FROM [" & Tbl & "]",Cn,adOpenForwardOnly
for each Item in Rs.Fields%>
<INPUT type="checkbox" id="<%=Item.Name%>" name="<%=Item.Name%>" value="<%=Item.Name%>"><%=Item.Name%><br>
<%next
Rs.Close
Cn.Close%>
<INPUT type="button" value="Execute" onclick="send()">
<%else%>
You have to select a Table<br>
For use this option
<%end if
end sub%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function send() {
var MaxElemm, Temp
MaxElemm = window.main.elements.length
Temp = ""
for (i=0; i<MaxElemm; i++)
if (window.main.elements[i].type == "checkbox" && window.main.elements[i].checked)
Temp += (Temp == "") ? window.main.elements[i].name : "," + window.main.elements[i].name
if (Temp == "") alert("You did not select any field to show")
else {
window.main.tmp.value = Temp
window.main.submit()
}
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<%dim MyBrowser
Set MyBrowser=server.createobject("MSWC.Browsertype")%>
<table align=center>
<tr class=header><td align=center colspan=6><h2>Information about Your Browser using MSWC.Browser</h2></td></tr>
<tr>
<td>Browser Type:</td>
<td>Version:</td>
<td>Frames Support:</td>
<td>Tables Support:</td>
<td>Bg Sound enabled:</td>
<td>Cokies:</td>
</tr>
<tr>
<td><%=MyBrowser.Browser%></td>
<td><%=MyBrowser.Version%></td>
<td><%=MyBrowser.Frames%></td>
<td><%=MyBrowser.Tables%></td>
<td><%=MyBrowser.backgroundsounds%></td>
<td><%=MyBrowser.Cokies%></td>
</tr>
<tr>
<td>VB Script Enabled: </td>
<td>Java Applets: </td>
<td>Java Scripts: </td>
<td>ActiveX Controls: </td>
<td colspan=2><b>Why this way choosed:</b></td>
</tr>
<tr>
<td><%=MyBrowser.vbscript%></td>
<td><%=MyBrowser.javaapplets%></td>
<td><%=MyBrowser.javascript%></td>
<td><%=MyBrowser.ActiveXControls%></td>
<%set MyBrowser=nothing%>
<td colspan=2><FONT color=red>No Double Server-Client Transfer</font></td>
</tr>
</table>
<FORM action="" method=GET id=main name=main>
<input type="hidden" name=tmp id=tmp>
<table border=1>
<tr class=header>
<td align=center width=33%>Connection</td>
<td align=center width=25%>Fields in Table</td>
<td align=center>Query Options</td>
</tr>
<tr>
<td align=left valign=top>
<INPUT type="radio" id=dbcon name=dbcon value=provider Checked>OLEDB Provider for MS Access<br>
<INPUT type="radio" id=dbcon name=dbcon value=server>OLEDB Provider for SQL Server<br>
</td>
<td valign=top><%call BuildCheckBoxes()%></td>
<td align=right valign=top>
Select table: <%call BuildSelection()%><br>
How Many records Do You want to see:
<SELECT id=quan name=quan>
<%for i = 5 to 20%>
<option><%=i%></option>
<%next%>
</SELECT>
</td>
</tr>
</FORM><BR>
<%if Request.QueryString("tmp") <> "" then call BuildTable()%>
</BODY>
</HTML>
No comments have been posted about Read table information from *.mdb file (add any *.mdb to root directory) or SQL Server DB (Change . Why not be the first to post a comment about Read table information from *.mdb file (add any *.mdb to root directory) or SQL Server DB (Change .
