Access - Quien sabe trabajar con paginas web en acces ayuda

 
Vista:

Quien sabe trabajar con paginas web en acces ayuda

Publicado por Luis Gerardo (21 intervenciones) el 09/07/2003 12:56:02
Como hago para cambiar tabla de color, por ejemplo si %compras es > 100 entonces que sea de color verde y %compras es menor < 100 que se de color rojo, como haria yo eso ya que el codigo evento no me sale....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 14
Ha disminuido su posición en 29 puestos en Access (en relación al último mes)
Gráfica de Access

RE:Quien sabe trabajar con paginas web en acces ay

Publicado por Yamil Bracho (112 intervenciones) el 11/07/2003 16:16:50
Luis, debes estar usando Access como base de datos para una aplicacion web y no usando Access para desarrollar la aplicacion web, es eso ?

Si estas usando ASP el codigo seria el siguiente
<table border="1" width="100%">
<tr><td>Cliente</td><td>Ventas</td></tr>
<%
Dim cn
Dim rs
Dim strSQL
Dim strHTML
Dim strColor

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL ="SELECT NombreCliente, Saldo FROM Cliente"

Set cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;User=Admin;Password=;Data Source="C:\TuMdb"
cn.Open
Set rs = cn.Execute( strSQL )
Do Until rs.Eof
strHTML ="<tr><td>"
strColor = ""
If rs.Fields("Compras") > 100 then
strColor = "<font color='GREEN'>"
End If
If rs.Fields("Compras") < 100 Then
strColor ="font color='RED'>"
End If
strHTML = strHTML & strColor & rs.Fields("NombreCliente")
If Len( strColor) > 0 then
strHTML = strHTML & "</font>"
End If
strHTML=strHTML & "</td><td>" & strColor & rs.Fields("Compras")
If Len( strColor) > 0 then
strHTML = strHTML & "</font>"
End If
strHTML=strHTML & "</td></tr>"

Response.Write strHTML
rs.MoveNext
Loop
rs.Close : Set rs %3
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar