Posicionarse sobre registro.

carlunchos · #1 (**permalink**) 07/06/2008, 18:59

Buenas Sres, alguien me puede orientar como hacer o donde mirar como hacer lo siguiente:

mostrar por pantalla una tabla de registros de una base access y al final de la misma un cuadro de texto donde introducir un valor y que si ese valor se encuentra en la base en un determinado campo pintar el registro de la tabla de un color, de esta manera nos damos cuenta que el registro existe.

Se entiende la requisitoria?

Saludos.

Shiryu_Libra · #2 (**permalink**) 07/06/2008, 22:04

Sino fuera por que tu registro dice 2002, dijera que es tarea...

... pero ahi va

con respecto a pintar la tabla con los datos del registro podrias hacer algo como esto
....

una funcion que despliegue datos.... similar a esto

Cita:

<%
function desplegar()
respuesta = "Original Data"
respuesta = respuesta & "<table><tr>"
For X = 0 To objRS.Fields.Count - 1
respuesta = respuesta & "<td>" & objRS.Fields.Item(X).Name & "</td>"
Next

respuesta = respuesta & "</tr>"
objRS.MoveFirst

While Not objRS.EOF
respuesta = respuesta & "<tr>"
For X = 0 To objRS.Fields.Count - 1
respuesta = respuesta & "<td>" & objRS.Fields.Item(X).Value & "</td>"
end select
Next
respuesta = respuesta & "</tr>"
objRS.MoveNext
Wend

respuesta = respuesta & "</table>"
desplegar = respuesta
end function
%>

y la mandamos a llamar asi.....

Cita:

<%
dim str
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
server.MapPath("../TUBASE.mdb") '<---CAMBIA EL NOMBRE DE LA BASE

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open str

SQL = "Select * from TUTABLA" '<--- RECUERDA CAMBIAR TU SENTENCIA

Set objRS = conexion.execute(SQL)

if Err=0 then
if objRS.eof=false then
response.Write desplegar '<--- Aki pintara el resultado
else
response.Write "No se encontro"
end if
else
respuesta = "Error = " & Err
end if

objRS.Close
Set objRS = Nothing

conexion.Close
Set conexion = Nothing
%>

en el final tendrias que agregar un formulario con un input text y su sumbit, y recojerias el resultado en la pagina requerida, o incluso a esta misma

carlunchos · #3 (**permalink**) 08/06/2008, 15:58

Tienes razon Shiryu_Libra, pero como veras tengo pocos posteados, solo lo hago cuando tengo una necesidad informatica y de ahi que para muchos temas no sepa darme la debida cuenta.

Respecto de tu sugerencia, lo primero que hice, obviamente, fue reemplazar sobre tu codigo mis datos y resultó lo siguiente:

<body>

<%
txtBuscaPtr = request.form("txtBuscaPtr")

function desplegar()
respuesta = txtBuscaPtr
respuesta = respuesta & "<table border=1><tr>"
For X = 0 To objRS.Fields.Count - 1
respuesta = respuesta & "<td>" & objRS.Fields.Item(X).Name & "</td>"
Next

respuesta = respuesta & "</tr>"
objRS.MoveFirst

While Not objRS.EOF
respuesta = respuesta & "<tr>"
For X = 0 To objRS.Fields.Count - 1
respuesta = respuesta & "<td>" & objRS.Fields.Item(X).Value & "</td>"
'end select
Next
respuesta = respuesta & "</tr>"
objRS.MoveNext
Wend

respuesta = respuesta & "</table>"
desplegar = respuesta
end function
%>

<%
dim str
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
server.MapPath("Bases/OcrasyPtrs97.mdb") '<---CAMBIA EL NOMBRE DE LA BASE

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open str

SQL = "Select * from laterales" '<--- RECUERDA CAMBIAR TU SENTENCIA

Set objRS = conexion.execute(SQL)

if Err=0 then
if objRS.eof=false then
response.Write desplegar '<--- Aki pintara el resultado
else
response.Write "No se encontro"
end if
else
respuesta = "Error = " & Err
end if

objRS.Close
'Set objRS = Nothing

'conexion.Close
'Set conexion = Nothing

'************************************************* ******************************

response.write "<form method=post name=frmBuscarPtr action='estadoLateral.asp?unidad="&unidad&"'>"
response.write "<table border=1 width='40%'>"
response.write "<tr>"
response.write "<td align=center>Proyecto / Lateral:   <input type=text name=txtBuscaPtr value='"&txtBuscaPtr&"' size=9 maxlength=9>   <input type=submit name=btnBuscarPtr value='Buscar'></td>"

response.write "</tr>"
response.write "</table>"
response.write "</form>"

'************************************************* ******************************
%>
</body>

Y me surgen algunas consultas:

1 - el desplegado de datos se toma su tiempo, sera porque mi maquina es un poco lenta?
2- la variable txtBuscaPtr que es la que envio como parametro para que al coincidir con el registro de la tabla se pinte el registro correspondiente, en que punto del codigo entra en comparacion?
3 - el " end select " me tiraba error , asi que lo encomille, esta mal?

4 - si pongo mi codigo, sobre el cual estoy trabajando, me darias una mano para hacerlo funcionar?

5 - Vuelvo a reiterar mi consulta por si no me hice entender:

la idea es que al enviar la variable txtBuscaPtr por post, estando ya la tabla de reg desplegada por pantalla, el cursor se posicione sobre el registro coincidente y de paso pintando toda la fila que contiene al dato buscado.

Ah, y al tratar de correr el script me tira lo siguiente:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '[string: ""]'
/mercado/estadoLateral.asp, line 153

siendo que mi codigo solo tiene 81 lineas escritas, que esta pasando?

Saludos.

Shiryu_Libra · #4 (**permalink**) 08/06/2008, 18:14

jajaja, buen punto, lo minimo pero al detalle,

bueno... haremos lo siguiente, postea tal cual tienes tu codigo con la combinacion que hiciste, de ahi partiremos a resolver tu problema... te parece?