Pytanie : Pokaz dane od MSAccess

I używać
- MSAccess
- Microsoft SQL Serwer 2000 - 8.00.760 (Intel X86)
- 2000 2002

I am dane od MSAccess DB. I chcieć the asp strona dane od the stół dla the chodnikowiec. Tam  nigdy być więcej niż 15 chodnikowiec w the niż rząd. Dla the pierwszy kolumna, I chcieć the rząd etykietka. I mieć ono the dane gdy I precyzować the szpaltowy chodnikowiec, ale nie the opposite.

Currently mój kod pokaz:

Astronautyczny PERC
Boston 2000 9021
Cleveland 2300 4500
Los Angeles 1900 4500
New Jork 1800 2100


I chcieć the pokaz:

Boston Cleveland Los Angeles Nowy Jork
Space 2000 2300 1900 1800
PERC 9021 4500 4500 2100

Code attached. 
(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:

<%
'Tworzyć recordset
 Ćmić sql, objRS

 sql = "WYBRANY tblGeneral.ChartID, tblGeneral.City, tblGeneral.State," & _
 	"tblSpace.SpaceAll, tblSpace.SpacePERC" & _
	"OD tblGeneral WEWNĘTRZNY ŁĄCZYĆ tblSpace NA tblGeneral.ChartID= tblSpace.ChartID" & _
	"DOKĄD tblGeneral.VISNID LUBIĆ "12""
	
		Jeżeli Request.querystring ("rodzaj") = "" wtedy
 			sql = sql & "ROZKAZ Miasto"
 		Inny
  			sql = sql & "ROZKAZ" & Request.querystring ("rodzaj")
  		Kończyć Jeżeli			
	
	Ustawiać objRS = Server.CreateObject ("ADODB.Recordset")
	objRS.Open sql, objConn


'Najpierw, wystawiać the STOŁOWY chodnikowiec info:
Response.Write ""

'Pokaz stołowy kłoszenie dla stołowy kolumna w the Recordset

Response.Write ""
Response.Write ""
Response.Write ""
Response.Write ""

Podczas Gdy Nie objRS.EOF

	Response.Write "" & VbCrLf
	Response.Write "" & VbCrLf
	Response.Write "" & VbCrLf

   'Posuwać się naprzód the recordset
   objRS.MoveNext

Wend
objRS.Close
Ustawiać objRS = Nic

Response.Write "
  SpacePERC
" & objRS ("Miasto") & "  " & objRS ("SpaceAll") & "  " & objRS ("SpacePERC") & "  
" & vbCrLf

%>

Odpowiedź : Pokaz dane od MSAccess

Dawać próba próba
" rowAll = "" rowPerc = "" Podczas Gdy Nie objRS.EOF rowHeader = rowHeader & ""& VbCrLf rowAll = rowAll & ""& VbCrLf rowPerc = rowPerc & ""& VbCrLf 'Posuwać się naprzód the recordset objRS.MoveNext Wend objRS.Close Ustawiać objRS = Nic rowHeader = rowHeader & ""& VbCrLf rowAll = rowAll & ""& VbCrLf rowPerc = rowPerc &""& VbCrLf Response.Write rowHeader Response.Write rowAll Response.Write rowPerc Response.Write"
(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:

<>"

'Wystawiać stołowy kłoszenie dla stołowy kolumna w the Recordset

Ćmić rowHeader, rowAll, rowPerc

rowHeader = "
 
Przestrzeń
PERC"& objRS ("Miasto") &" "& objRS ("SpaceAll") &" "& objRS ("SpacePERC") &" 
Inne rozwiązania  
 
programming4us programming4us