Hola, quiero mostrar los datos de una tabla en filas separadas en colores distintos, ejemplo: una fila color blanco y la siguiente en color gris y asi sucesivamente.
Gracias
12/07/2003, 20:05
| ||||
| ||||
| Mostrar datos de BD en Tabla Hola, quiero mostrar los datos de una tabla en filas separadas en colores distintos, ejemplo: una fila color blanco y la siguiente en color gris y asi sucesivamente. Gracias
__________________ www.nelhost.net |
|
12/07/2003, 22:25
| ||||
| ||||
| hola... espero este ejemplo te ayude... es bastante sencillo pero tiene lo que necesitas  <% Set Master = Server.CreateObject("ADODB.Connection") Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/datos.mdb")) sSQL = "select * from usuarios order by usuario" set RS = Master.Execute(sSQL) sColor = "999999" while not RS.eof If sColor = "999999" Then sColor = "ffffff" Else sColor = "999999" End If %> <table width="600" border="0" cellspacing="1" cellpadding="1"> <tr> <td bgcolor="<%=(sColor)%>"><%=(RS.fields("usuario").v alue)%></td> </tr> </table> <% RS.movenext wend %>
__________________ Saruman One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them. |
|
13/07/2003, 02:51
| ||||
| ||||
| hola esta muy bien tu codigo lo andava buscando desde hace un buen tiempo oye tengo un problema a la hora de usarlo mi base se llama afiliados y la tabla donde estan los datos es afiliados tambien entonces porque no funciona o en que estoy mal?? <% Set Master = Server.CreateObject("ADODB.Connection") Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("afiliados.mdb")) sSQL = "select * from Afiliados order by usuario" set RS = Master.Execute(sSQL) sColor = "999999" while not RS.eof If sColor = "999999" Then sColor = "ffffff" Else sColor = "999999" End If %> <table width="600" border="0" cellspacing="1" cellpadding="1"> <tr> <td bgcolor="<%=(sColor)%>"><%=(RS.fields("usuario").v alue)%></td> </tr> </table> <% RS.movenext wend %> en que estoy mal??? saludotes |
|
13/07/2003, 03:54
| |||
| |||
| que error te da?, por que dices que no funciona? MIra que la conexion con la base de datos usa la ruta correcta dentro del servidor hasta la base de datos... Pero sobre todo eso, di que error te da pa saber uno por donde puede estar mal la cosa.. ToKaTa.
__________________ "Si pudieras volver.....¿.lo harias?" |
|
14/07/2003, 00:40
| ||||
| ||||
| Tipo de error: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1. /cat/d/muestra.asp, línea 14 Tipo de explorador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) <html> <head> <title>CAT-SOFT.net</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% Set Master = Server.CreateObject("ADODB.Connection") Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("afiliados.mdb")) sSQL = "select * from Afiliados order by usuario" set RS = Master.Execute(sSQL) // -- ACA ESTA EL PROBLEMA o es en la declaracion de la tabla? sColor = "999999" while not RS.eof If sColor = "999999" Then sColor = "ffffff" Else sColor = "999999" End If %> <table width="600" border="0" cellspacing="1" cellpadding="1"> <tr> <td bgcolor="<%=(sColor)%>"><%=(RS.fields("usuario").v alue)%></td> </tr> </table> <% RS.movenext wend %> </body> </html> |
|
14/07/2003, 01:43
| ||||
| ||||
| lo probe nuevamente y me funciona perfectamente.... puede ser la pc que esta presentando problemas.... ya revisaste que todos los componentes de internet information server estan instalados?? ok
__________________ Saruman One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them. |
|
14/07/2003, 04:00
| |||
| |||
| Cita: Error tipico de cuando e esta llamando a un campo que no existe.....NO se, estas seguro que tu tabla "afiliados" tiene un campo llamado "usuario"?, y no "usario" ni "usurio", ni "usuarios"???....POr que si a Saruman le funciona solo puede ser probelma de conexion con la base de datos....Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1. /cat/d/muestra.asp, línea 14 ToKaTa.
__________________ "Si pudieras volver.....¿.lo harias?" |
|
14/07/2003, 10:41
| ||||
| ||||
| Este codigo es el que estoy usando para ver mis registros creo que ya se porque no se ve parese que la base que estan ocupando en el ejemplo de arriba solo tiene un campo la tabla y es usuarios y lo que estoy ocipando yo son un monton algo tine que ver esto en el ejemplo de aqui abajo decalro uno por uno los campos yamar que puedo hacer tengo todos estos campos de aqui abajo: direccion correo tel etc. que hago? <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% Dim DB, TBL Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb")) TBL.Open "Afiliados" ,DB ,1 ,2 While NOT TBL.EOF Response.Write("<b>Direccion :</b> " & TBL("Direccion") & "<br>") Response.Write("<b>Telefono :</b> " & TBL("Telefono") & "<br>") Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>") Response.Write("<b>Precio :</b> " & TBL("Precio") & "<br>") Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>") Response.Write("<b>Amueblado :</b> " & TBL("Amueblado") & "<br>") Response.Write("<b>Garage :</b> " & TBL("Garage") & "<br>") Response.Write("<b>Tel :</b> " & TBL("Tel") & "<br>") Response.Write("<b>Recamaras :</b> " & TBL("Recamaras") & "<br>") Response.Write("<b>banos :</b> " & TBL("banos") & "<br>") Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>") TBL.MoveNext Wend TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing %> </body> </html> |
|
15/07/2003, 04:28
| |||
| |||
| yo por lo pronto no veo el query en ningun sitio  . CAmbia:TBL.Open "Afiliados" ,DB ,1 ,2 por TBL.Open "select * from Afiliados" ,DB ,1 ,2 (a menos que esa forma reducidad funciones y yo no lo sabia  )Por otro lado, si tu tabla Afiliados tienes todos los campos que estas intentando sacar en el script, pues no deberia darte probelmas..... ToKaTa.
__________________ "Si pudieras volver.....¿.lo harias?" |
|
15/07/2003, 23:53
| ||||
| ||||
| no jala en que problema me estoy metiendo esto lo trate de hacer hace un tiempo pero tampoco me jalo que puede ser lo que esta mal mi base o mi codigo? por que con el otro codigo que me ti arriba me funciona muy bien y no hay ningun problema parese que es en la declaracion de la tabla que tiene los datos que podra ser?? o que tengo que modificar para que me funcione bien esto? no importa cambiar todo el esquema de la pagina de muestra que tengo lo inportante es que me muestre como diuce el compañero con filas de colores saludos a todos |
|
18/07/2003, 11:53
| ||||
| ||||
| no sale nada un error en la conexion de la tabla muchas gracias ya encontre un codigo para esto <body bgcolor="#FFFFFF" text="#000000"> <% strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("afiliados.mdb") Set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection strQuery = "SELECT * FROM afiliados" set rs = adoDataConn.Execute(strQuery) %> <table border=0 cellpadding=1> <tr bgcolor="336699"><td><b>Direccion:</b></td><td><b>Telefono:</b></td><td><b>Correo:</b></td><td><b>Requisitos</b></td></tr> <% Do While Not rs.eof direccion = rs("direccion") telefono = rs("telefono") correo = rs("correo") requisitos = rs("requisitos") rs.MoveNext If c = 1 Then Response.Write ("<tr>") c = 2 Else Response.Write ("<tr bgcolor=""#F1F1F1"">") c = 1 End If %> <td><% Response.Write direccion %></td> <td><% Response.Write telefono %></td> <td><% Response.Write correo %></td> <td><% Response.Write requisitos %></td> <% Loop %> </table> muchas gracias haora lo que quiero hacer es que me las muestre como el eejmplo que tenia yo de por filas muchas gracias te agradesco |
