1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
| <%
'récupération du choix de base :
lieu=Request.Form("destination")
'déclaration
dim StrSQL, StrSQL2, i, nom
StrSQL = "select name from "+lieu+".dbo.sysobjects where type='U' order by name"
StrSQL2 = "select Count(*) from (select name from "+lieu+".dbo.sysobjects where type='U'")"
if StrSQL <> "" then
dim Nbrecs
dim Nblign
dim nb
dim nomBDD
nb=0
set objConn=server.CreateObject("ADODB.Connection")
base="DSN=QUALIPSO;DRIVER={SQL Server};UID=sa"
objConn.Open base
set objCmd=server.CreateObject("ADODB.Command")
objCmd.activeconnection=objConn
objCmd.CommandText=StrSQL
objCmd.CommandType=&H0001 'adCmdText
set rs=server.CreateObject("ADODB.RecordSet")
set rs2=server.CreateObject("ADODB.RecordSet")
set rs=objCmd.Execute(NbRecs,,[adCmdText])
rs2.Open StrSQL2,objConn
if rs.State = &H00000001 then 'adStateOpen
if not rs.eof then
Response.write "Table(s) de la base de donnée <b>"+lieu+"</b><br><br>"
Response.Write "<table border=1 cellpadding=0 cellspacing=0>"
'entêtes
Response.Write "<tr>"
Response.Write "<td><font size=2><center><b>Index</b></center></font></td>"
response.write "<td><font size=2><center><b>Nom de la table</b></center></font></td>"
response.write "<td><font size=2><center><b>Nb Lignes</b></center></font></td>"
Response.Write "</tr>"
'données
NbRecs = 0
while not rs.eof
%>
<tr>
<%
for i=0 to rs.Fields.Count-1
nb=nb+1
Response.write "<td><font size=2>"& nb &"</font></td>"
Response.Write "<td><font size=2><a href=''>" & rs(i) & "</a></font></td>"
Nblign=rs2(i)
Response.Write "<td><font size=2>" & Nblign & "</font></td>"
next
%>
</tr>
<%
rs.movenext
NbRecs = NbRecs+1
wend
Response.Write "</table><br>"
rs.Close
set rs=nothing
end if
objConn.Close
set objConn=nothing
Response.Write "Il y a " & NbRecs &" table(s)."
end if
end if
%> |