Anderson Perazzolo
10-06-2006, 04:26 PM
Boa tarde amigos.
Tenho uma dúvida que creio ser fácil de ser resolvida, porém, está difícil
encontrar uma resposta na NET.
Criei uma ASP que me retorna todo o conteúdo de um comando dado ao SQL
Server (o SP_SPACEUSED), para informar o espaço usado por um banco de dados.
Mas, quando executo este comando no SQL Server Management Studio, ele
retorna DUAS tabelas e no ASP eu só consigo exibir a primeira.
Há como exibir as duas tabelas no ASP? Abaixo seque o código que estou usando:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Driver={SQL
Server};Server=SQLSERVER;Database=database;Uid=uid;Pwd=pwd;")
Set space = Conn.Execute("sp_spaceused")
response.write "<tr style='height: 20px; background-color: #DCDCDC;'>"
for x=0 to (space.Fields.Count - 1) step 1
response.write " <td align=center nowrap><b>"&space(x).Name&"</b></td>"
next
response.write "</tr>"
while not space.eof
response.write "<tr>"
for x=0 to (space.Fields.Count - 1) step 1
If IsNull(space(x)) then
response.write "<td nowrap></td>"
else
response.write "<td nowrap>"&space(x)&"</td>"
end if
next
response.write "</tr>"
space.movenext
wend
Set space = Nothing
Conn.Close
Set Conn = Nothing
Tenho uma dúvida que creio ser fácil de ser resolvida, porém, está difícil
encontrar uma resposta na NET.
Criei uma ASP que me retorna todo o conteúdo de um comando dado ao SQL
Server (o SP_SPACEUSED), para informar o espaço usado por um banco de dados.
Mas, quando executo este comando no SQL Server Management Studio, ele
retorna DUAS tabelas e no ASP eu só consigo exibir a primeira.
Há como exibir as duas tabelas no ASP? Abaixo seque o código que estou usando:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Driver={SQL
Server};Server=SQLSERVER;Database=database;Uid=uid;Pwd=pwd;")
Set space = Conn.Execute("sp_spaceused")
response.write "<tr style='height: 20px; background-color: #DCDCDC;'>"
for x=0 to (space.Fields.Count - 1) step 1
response.write " <td align=center nowrap><b>"&space(x).Name&"</b></td>"
next
response.write "</tr>"
while not space.eof
response.write "<tr>"
for x=0 to (space.Fields.Count - 1) step 1
If IsNull(space(x)) then
response.write "<td nowrap></td>"
else
response.write "<td nowrap>"&space(x)&"</td>"
end if
next
response.write "</tr>"
space.movenext
wend
Set space = Nothing
Conn.Close
Set Conn = Nothing