UNIDAD 5: VBSCRIPT INTRODUCION A LAS BASES DE DATOS
TEMA 13: EDICION REGISTROS SQL UPDATE VISUAL BASIC SCRIPT
Editar registros significa cambiar el contenido de algunos de los campos o columnas por nueva informacÃón o para corregir algun error de captura original o para agregar alguna columna que no existia por modificación de la tabla o la base de datos.
RECORDAR que se puede modificar cualquier columna EXCEPTO LA COLUMNA CLAVE.
El procedimiento exige la construcción de una pagina html normal o estatica(prog24.html) y dos programas asp el primero de ellos(prog.asp) es el de busqueda por clave normal, solo que este asp construira una forma html dinamica con los datos del registro original.
Ya el usuario con esta forma html dinamica, editara o modificara los datos y activara el segundo programa asp(prog25.asp), que hara la modificación al registro.
Este segundo programa asp es muy parecido al de agregar o añadir registros, con la salvedad que no usa addnew y si lleva movenext y update como lo muestra el programa ejemplo:
Prog24.html
<HTML><P> FORMA HTML PROG 24</P> <FORM ACTION=HTTP://PROGRAMACIONFACIL.COM:4080/tusitio/PROG24.ASP METHOD=POST> CLAVE<INPUT TYPE=TEXT NAME=clave><BR> <INPUT TYPE=SUBMIT VALUE=editar> </FORM> </HTML>
prog24.asp
<%@ Language = "VBScript"%>
<%
' 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 "c:/progfacil/tusitio/mibase.mdb"
' creando el recordset
set tabla=Server.CreateObject("ADODB.recordset")
' cargando el recordset con la tabla en disco
tabla.Open "mitabla", coneccion, 2, 2
'cargando clave a buscar
set clave=request.form("clave")
'primero hay que moverse al primer renglon real de la tabla (el 1)
tabla.movefirst
'buscando y posicionadose en el renglon deseado
tabla.find "clave ="&clave
' construyendo una forma html dinamica o en tiempo real y desplegando
renglon actual
response.write"<html>"
response.write"<form
action=http://programacionfacil.com:4080/lauro/prog25.asp method=post>"
response.write"clave<input type=text name=clave
value="&tabla.fields(0).value&"><br>"
response.write"nombre<input type=text name=nombre
value="&tabla.fields(1).value&"><br>"
response.write"edad<input type=text name=edad
value="&tabla.fields(2).value&"><br>"
response.write"<input type=submit value=ok>"
response.write"</form></html>"
'cerrando todo
tabla.Close
set tabla = nothing
coneccion.Close
set coneccion = nothing
%>
prog25.asp
<%@ Language = "VBScript"%>
<%
' 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 "c:/progfacil/tusitio/mibase.mdb"
' creando el recordset
set tabla=Server.CreateObject("ADODB.recordset")
' cargando el recordset con la tabla en disco
tabla.Open "mitabla", coneccion, 2, 2
'cargando clave a buscar
set clave=request.form("clave")
'primero hay que moverse al primer renglon real de la tabla (el 1)
tabla.movefirst
'buscando y posicionadose en el renglon deseado
tabla.find "clave ="&clave
'ya en posicion modificamos directamente la tabla o recordset y se usa
una version
'recortada de request.form()
tabla("nombre") = request("nombre")
tabla("edad") = request("edad")
tabla("fotourl") = request("fotourl")
'moviendose y actualizando
tabla.movenext
tabla.update
'respondiendo
response.write "ya termine"
'cerrando todo
tabla.Close
set tabla = nothing
coneccion.Close
set coneccion = nothing
%>
tareas programacion vbscript :
1.- construir asp's para sus tablas y bases de datos