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

Ver y modificar datos de una base access on line

 Estas en el tema de Ver y modificar datos de una base access on line en el foro de ASP Clásico en Foros del Web. Tengo el siguiente codigo pero no detecto cual es el problema. Mi intención es ver todos los campos de una base de datos en access ...
  #1 (permalink)  
Antiguo 13/07/2003, 09:36
Avatar de Halcon_2003  
Fecha de Ingreso: mayo-2003
Ubicación: Galicia - Pcia. de Pontevedra
Mensajes: 45
Antigüedad: 21 años, 1 mes
Puntos: 0
Ver y modificar datos de una base access on line
Tengo el siguiente codigo pero no detecto cual es el problema.
Mi intención es ver todos los campos de una base de datos en access y al picar sobre un registro que me permita modificar la información, tenfo este codigo pero me esta dando error ( Error de compilación de Microsoft VBScript error '800a0400'

Se esperaba una instrucción

/libro_cambios.asp, line 34

<td style="border-top: 2px ridge #0000FF"><input type=text name=campo1 value="<%=tabla("usuario")
^) , alguien me puede ayuda¨?
' creando enlace o coneccion a base de datos
set coneccion=Server.CreateObject("ADODB.Connection")
coneccion.Provider="Microsoft.Jet.OLEDB.4.0"
' abriendo la base de datos
coneccion.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
' creando el recordset
set tabla=Server.CreateObject("ADODB.recordset")
' cargando el recordset con la tabla en disco
sql ="Select * from usuarios"
set tabla = coneccion.execute(sql)
%>
<meta name="Microsoft Theme" content="transgalicia 111">
<body><table style="border-collapse: collapse; border: 4px ridge #0000FF" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b><font size="2" color="#FFFF00">Usuarios</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Contraseña</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">E-Mail</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Comunidad</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Provincia</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Pais</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Alta</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Nivel</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Baja</font></b></td>
<td align="center"><b><font size="2" color="#FFFF00">Conectado</font></b></td>
</tr>
'recorriendo los registros de tu tabla
<%
if not tabla.eof then
while not tabla.eof
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo1 value="<%=tabla("usuario")%>" size="20"><td></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo2 value="<%=tabla("clave")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo3 value="<%=tabla("email")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo4 value="<%=tabla("comunidad")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo5 value="<%=tabla("provincia")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo6 value="<%=tabla("pais")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo7 value="<%=tabla("datealta")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo8 value="<%=tabla("nivel")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo9 value="<%=tabla("baja")%>" size="20"></td>
<td style="border-top: 2px ridge #0000FF"><input type=text name=campo10 value="<%=tabla("online")%>" size="20"></td>
tabla.movenext
end if
%>
</table></body>
O si tienen una solución mejor, adelante, espero vuestra ayuda
__________________
Halcon
  #2 (permalink)  
Antiguo 13/07/2003, 10:40
 
Fecha de Ingreso: marzo-2001
Ubicación: Gran Canaria
Mensajes: 381
Antigüedad: 23 años, 3 meses
Puntos: 2
hola Halcon_2003, podrias dejarme el codigo entero de tu pagina y señalar cual es la linea 34?, es que no se si es este que has puesto, por que al principio tiene un td que no se por que esta ahi, y unas cosas raras.

Por cierto, lo que quieres es:

Cita:

Mi intención es ver todos los campos de una base de datos en access y al picar sobre un registro que me permita modificar la información,
o lo que quieres ver los los registros de un TABLA, no de la base de datos?


ToKaTa.
__________________

"Si pudieras volver.....¿.lo harias?"
Última edición por ToKaTa; 13/07/2003 a las 13:23
  #3 (permalink)  
Antiguo 13/07/2003, 10:42
Avatar de Halcon_2003  
Fecha de Ingreso: mayo-2003
Ubicación: Galicia - Pcia. de Pontevedra
Mensajes: 45
Antigüedad: 21 años, 1 mes
Puntos: 0
La linea 34 comienza aqui:
<td align="center"><b><font size="2" color="#FFFF00">Usuarios</font></b></td>
__________________
Halcon
  #4 (permalink)  
Antiguo 13/07/2003, 13:40
 
Fecha de Ingreso: marzo-2001
Ubicación: Gran Canaria
Mensajes: 381
Antigüedad: 23 años, 3 meses
Puntos: 2
colega, menudo caos que tienes en el codigo, lo increible hubiera sido que te funcionara. Te paso los cambios que hice. No digo que te vaya a funcionar por que no lo he probado creandome una base de datos igual a la tuya, y con los campo sy todo eso, pero lo que si espero es que si da error sea distinto. El error te lo daba en esa linea por que no has cerrado el tag de asp anterior. PEro bueno, a parte de eso:

- te faltaba por cerrar mas de un tag de asp
- el while que tenias te iba a cantar un error por que no tienes la condicion de salto, solo poner que se mueva al proximo registro, pero no le dices que salte a la nueva iteracion del while
- tenias un comentario de asp (con la marca ') fuera del codigo asp, en el codigo html)


Código: 
<html>
<head>
<title>Untitled Document</title>
<%
	set coneccion=Server.CreateObject("ADODB.Connection")
	coneccion.Provider="Microsoft.Jet.OLEDB.4.0"
	coneccion.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
	
	set tabla = Server.CreateObject("ADODB.recordset")
	sql = "Select * from usuarios"	
	set tabla = coneccion.execute(sql)
%>
<meta name="Microsoft Theme" content="transgalicia 111">
<body>
<table style="border-collapse: collapse; border: 4px ridge #0000FF" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center"><b><font size="2" color="#996600">Usuarios</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Contraseña</font></b></td>
    <td align="center"><b><font size="2" color="#996600">E-Mail</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Comunidad</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Provincia</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Pais</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Alta</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Nivel</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Baja</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Conectado</font></b></td>
  </tr>
  <%
    'recorriendo los registros de tu tabla 
  
	if (not tabla.eof) then
		do while (not tabla.eof)
	%>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo1 value="<%=tabla("usuario")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo2 value="<%=tabla("clave")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo3 value="<%=tabla("email")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo4 value="<%=tabla("comunidad")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo5 value="<%=tabla("provincia")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo6 value="<%=tabla("pais")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo7 value="<%=tabla("datealta")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo8 value="<%=tabla("nivel")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo9 value="<%=tabla("baja")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo10 value="<%=tabla("online")%>" size="20">
			</td>
		<%
			 tabla.movenext 
		loop
	end if 
	%> 
</table>
</body>
</html>

Avisa si te sigue fallando



ToKaTa.
__________________

"Si pudieras volver.....¿.lo harias?"
  #5 (permalink)  
Antiguo 13/07/2003, 16:55
Avatar de Halcon_2003  
Fecha de Ingreso: mayo-2003
Ubicación: Galicia - Pcia. de Pontevedra
Mensajes: 45
Antigüedad: 21 años, 1 mes
Puntos: 0
Vamos bien, ya muestra la información, solo queda un par de detalles, estos son:

1) La información la muestra toda en linea, en lugar de 1 registro de cada usuario por linea.

2) Como puedo hacer para que en lugar de que tenga una longitud fija cada celda, tome como parametro la mas extensa pero por columna.
__________________
Halcon
  #6 (permalink)  
Antiguo 13/07/2003, 18:00
 
Fecha de Ingreso: marzo-2001
Ubicación: Gran Canaria
Mensajes: 381
Antigüedad: 23 años, 3 meses
Puntos: 2
la primera esta cantada (los <tr> y </tr> dentro del bucle while):

Código: 
<html>
<head>
<title>Untitled Document</title>
<%
	set coneccion=Server.CreateObject("ADODB.Connection")
	coneccion.Provider="Microsoft.Jet.OLEDB.4.0"
	coneccion.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
	
	set tabla = Server.CreateObject("ADODB.recordset")
	sql = "Select * from usuarios"	
	set tabla = coneccion.execute(sql)
%>
<meta name="Microsoft Theme" content="transgalicia 111">
<body>
<table style="border-collapse: collapse; border: 4px ridge #0000FF" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center"><b><font size="2" color="#996600">Usuarios</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Contraseña</font></b></td>
    <td align="center"><b><font size="2" color="#996600">E-Mail</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Comunidad</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Provincia</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Pais</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Alta</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Nivel</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Baja</font></b></td>
    <td align="center"><b><font size="2" color="#996600">Conectado</font></b></td>
  </tr>
  <%
    'recorriendo los registros de tu tabla 
  
	if (not tabla.eof) then
		do while (not tabla.eof)
	%>
			<tr>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo1 value="<%=tabla("usuario")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo2 value="<%=tabla("clave")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo3 value="<%=tabla("email")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo4 value="<%=tabla("comunidad")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo5 value="<%=tabla("provincia")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo6 value="<%=tabla("pais")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo7 value="<%=tabla("datealta")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo8 value="<%=tabla("nivel")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo9 value="<%=tabla("baja")%>" size="20">
			</td>
			<td style="border-top: 2px ridge #0000FF">
				<input type=text name=campo10 value="<%=tabla("online")%>" size="20">
			</td>
			</tr>
		<%
			 tabla.movenext 
		loop
	end if 
	%> 
</table>
</body>
</html>
La segunda no la entendi


Y ahora a dormir...que ya s la 1 de la mañana y est.........



ToKaTa.
__________________

"Si pudieras volver.....¿.lo harias?"
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


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 23:17.