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

Añadir Botón de opción a listado de BD

Estas en el tema de Añadir Botón de opción a listado de BD en el foro de ASP Clásico en Foros del Web. Hola para tod@s. Tengo un formulario en donde hago un listado de los registros de una tabla de Access y quisiera saber como agregarle a ...
  #1 (permalink)  
Antiguo 14/06/2004, 10:41
Avatar de com7473  
Fecha de Ingreso: junio-2004
Mensajes: 22
Antigüedad: 20 años
Puntos: 0
Añadir Botón de opción a listado de BD

Hola para tod@s.

Tengo un formulario en donde hago un listado de los registros de una tabla de Access y quisiera saber como agregarle a ese listado un Botón de opción para seleccionar ese registro para después eliminarlo o modificarlo.

Como puedo lograr esto?

Aquí está el código que tengo hasta ahora.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Lugares</title>
</head>

<body>
<DIV align="center"><font face="Arial, Helvetica, sans-serif" size="5"><b>Listado de Lugares</b></font></DIV>
<br><br>
<TABLE align="center">
<TR>
<TD width="50" bgcolor="#003399"><center><font face="Arial" color="#FFFFFF"><b>IdLugar</b></font></center></TD>
<TD width="100" bgcolor="#003399"><center><font face="Arial" color="#FFFFFF"><b>Lugar</b></font></center></TD>
</TR>
<%
'Abre la conexión con la base de datos a través de una conexión ODBC
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "dsnPrueba"

'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM Lugares ORDER BY Lugar"
Set tabla = conexion.Execute(sql)

'Recorre todas las filas del resultado
Do While Not tabla.EOF

if colorfila = 0 then
color= "#DEDEBE"
colorfila=1
else
color="#F0F0F0"
colorfila=0
end if

'Imprimimos el registro
response.write "<tr><td width='50' bgcolor='"&color&"'><font face='Arial' size='2'>"&tabla("IdLugar")&"</font></td><td width='100' bgcolor='"&color&"'><font face='Arial' size='2'>"&tabla("Lugar")&"</font></td></tr>"

'Pasa a la siguiente fila
tabla.MoveNext
Loop

'Cerramos las conexiones y el recordset
tabla.Close
Set result = Nothing
conexion.Close
Set conexion = Nothing
%>
</TABLE>
<br><br>
<div align="center">
<a href="Insertar.html">Añadir un nuevo registro</a><br>
<a href="Actualizar.asp">Actualizar un registro existente</a><br>
<a href="Borrar.asp">Borrar un registro</a><br>
</div>
</body>
</html>

Gracias por la atención prestada.
  #2 (permalink)  
Antiguo 14/06/2004, 17:12
 
Fecha de Ingreso: octubre-2003
Ubicación: Hermosillo, Sonora
Mensajes: 75
Antigüedad: 20 años, 8 meses
Puntos: 0
Te propongo pongas un radio al inicio de cada registro, con valor de la clave de tu table, cuando le des clic a link de borrar, dale submit a la página, y recibes el valor del radio seleccionado, de esta forma vas a saber qué registro se quiere borrar.
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 00:44.