Foros del Web » Programando para Internet » ASP Clásico »

Problema al cargar datos de una base de datos

Estas en el tema de Problema al cargar datos de una base de datos en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 14/08/2008, 23:09
 
Fecha de Ingreso: agosto-2008
Mensajes: 4
Antigüedad: 15 años, 10 meses
Puntos: 0
Problema al cargar datos de una base de datos

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"%>
<!--#include file="Connections/inventarios.asp" -->
<!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&iacute;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
  #2 (permalink)  
Antiguo 14/08/2008, 23:43
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 16 años, 6 meses
Puntos: 54
Respuesta: Problema al cargar datos de una base de datos

Trata poniendo así:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/inventarios.asp" -->
<%
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&iacute;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.
  #3 (permalink)  
Antiguo 15/08/2008, 06:28
 
Fecha de Ingreso: agosto-2008
Mensajes: 4
Antigüedad: 15 años, 10 meses
Puntos: 0
Respuesta: Problema al cargar datos de una base de datos

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!!!
  #4 (permalink)  
Antiguo 15/08/2008, 14:59
Avatar de ciisteado  
Fecha de Ingreso: enero-2008
Ubicación: Home Office
Mensajes: 111
Antigüedad: 16 años, 4 meses
Puntos: 0
De acuerdo Respuesta: Problema al cargar datos de una base de datos

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...

Última edición por ciisteado; 15/08/2008 a las 15:08
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:16.