Bonjour a vous. J'espere que je poste sur le bon forum car je travail sur une requete sql/asp
voici mon code
il se trouve que j'ai un problème avec ma 2eme requete StrSQL2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 %>
Le principe de ce code est de lister toute les base de donnée de mon server ensuite l'utilisateur chosi isa base et on arrive a une nouvelle page qui liste les table de la base choisi. Jusque la j'arrive a le faire sans probleme, mais il faudrait que en face du nom de chaque table on puisse voir le nombre d'enregistrement que comporte la table. Et la ça se corse !
Il faudrait en quelque sorte une requete qui compte le nombre de ligne
Si jamais des gens s'y connaissent bien je suis preneur![]()
![]()
D'avance merci
Partager