Bonjour a vous. J'espere que je poste sur le bon forum car je travail sur une requete sql/asp
voici mon code
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
%>
il se trouve que j'ai un problème avec ma 2eme requete StrSQL2
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