Problema al cargar datos de una base de datos

dareyesm · #1 (**permalink**) 14/08/2008, 23:09

Hola a todos, tengo el siguiente problema y la verdad me urge dar solucion pero no he podido.

Tengo una pagina en asp, en la que hago un select para consultar datos de una base de datos SQL, cuando en dreamweaver hago una tabla dinamica me muestra todos los datos, pero intento modificar la tabla unicamente, es decir darle la forma, presentacion a la tabla, ahi ya no puedo mostrar todos los datos, solo unos se dejan ver y no entiendo que pasa.

Tambien tengo este codigo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<%
usuario = request.QueryString("us")
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_inventarios_STRING
Recordset1.Source = "SELECT * FROM dbo.equipos where Usuario = '"& usuario &"' "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0

while NOT Recordset1.EOF

response.Write(Recordset1.Fields.Item("Antivirus") .value) ' lo muestra
response.Write(Recordset1.Fields.Item("Departament o").value) 'no lo muestra
response.Write(Recordset1.Fields.Item("Dir_ip").va lue) ' lo muestra
response.Write(Recordset1.Fields.Item("Disco").val ue) ' lo muestra

response.Write(Recordset1.Fields.Item("Cpu").value ) ' lo muestra
Recordset1.movenext()
wend

%>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Si se dan cuenta aparentemente esta bien, pero me muestra solamente unos datos, no todos los 5 datos que estoy intentando mostrar, ahi lo tengo que while, pero ni con if funciona.

Que puede estar pasando?? porque no puedo mostrar todos los datos???

Por favor, ruego por ayuda, es urgente esto.

Gracias

Julcar · #2 (**permalink**) 14/08/2008, 23:43

Trata poniendo así:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
usuario = request.QueryString("us")
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_inventarios_STRING
Recordset1.Source = "SELECT * FROM dbo.equipos where Usuario = '"& usuario &"' "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0

while NOT Recordset1.EOF
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<%
response.Write(Recordset1.Fields.Item("Antivirus") .value) ' lo muestra
response.Write(Recordset1.Fields.Item("Departament o").value) 'no lo muestra
response.Write(Recordset1.Fields.Item("Dir_ip").va lue) ' lo muestra
response.Write(Recordset1.Fields.Item("Disco").val ue) ' lo muestra

response.Write(Recordset1.Fields.Item("Cpu").value ) ' lo muestra
Recordset1.movenext()
wend

%>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

En pocas palabras pon lo referente a la conexion arriba del code HTML para que el ASP no interfiera con el resto HTML.

dareyesm · #3 (**permalink**) 15/08/2008, 06:28

gracias por tu sugerencia, he hecho tal como me has dicho, colocar la conexion por fuera del contexto html, pero el problema persiste, quedan datos sin mostrarse, ya he revisado y los datos existen en la BD, pero sigen sin mostrarse, no entiendo que puede estar pasando!!!

Sigo recibiendo sugerencias!!!

Please!!!

Gracias!!!

ciisteado · #4 (**permalink**) 15/08/2008, 14:59

Y si utilizamos GetRows...

Podría funcionar bien... prueba esto haber que pasa:

Código HTML:

<table>
<%
	Dim rs, sql, equipos
	Dim i, j 
	Dim iddoc,clavedoc,descripcion,nombrearchivo 'Se definen los índices del vector con nombres simbólicos para facilitar el manejo
	antivirus=0 'Inicializamos los indices correspondientes de acuerdo a la posicion de cada elemento
	departamento=1
	dirip=2
	disco=3
	usuario = request.QueryString("us")
	set rs=CreateObject("adodb.recordset") 'Define objeto recordset
	sql="SELECT antivirus,departamento,dirip,disco,cpu,usuario FROM equipos where usuario = '"& usuario &"'" 'Hace la consulta
	rs.open sql,MM_inventarios_STRING 'En una sola peticion guarda TODOS los registros de la consulta
		equipos=rs.GetRows 'Asigna los registros al vector "equipos"
	rs.close 'Cerramos objeto recordset
	set rs=nothing 'Liberamos el objeto
	MM_inventarios_STRING.close 'Cerramos la conexion
	set MM_inventarios_STRING=nothing 'Liberamos la conexion
	response.write("<tr>") 'Imprimimos una fila
	for i=0 to Ubound(equipos,2) 'Recorremos el vector de principio a fin
		if (i mod 4)=0 then 'Esto es solo para mostrar filas de cuatro elementos(bien podria omitirse)
			response.write("</tr>")
			response.write("<tr>")
		end if
		response.write("<td>"& equipos(antivirus,i)&"></td>") 'Imprime los datos del vector con formato especifico(un checkbox para cada documento)
		response.write("<td>"& equipos(departamento,i) &"</td>") ' Imprime tambien la clave del documento
		response.write("<td>"& equipos(dirip,i) &"</td>")
		response.write("<td>"& equipos(disco,i) &"</td>")
	next
	response.write("</tr>")'Cerramos la fila
	response.write("<tr>")
	total = UBound(equipos,2)+1 'Para sacar el total de registros
	response.write("<td>Total de Registros:&nbsp;"& total &"</td>")
	response.write("</tr>")
%>
</table>

Pudiera solucionarse asi, ya tu nos diras si funciono o no...

Saludos...