UNIDAD 5: VISUAL BASIC INTRODUCION A LAS BASES DE DATOS

TEMA 13: EDICION DE REGISTROS POCKET PDA

Editar registros significa cambiar el contenido de algunos de los campos o columnas por nueva informacion o para corregir algun error de captura original o para agregar alguna columna que no existia por modificacion de la tabla o la base de datos.

PARA ESTE CASO SE USA LA INSTRUCCION SQL UPDATE (YA ESTUDIARON EL TUTORIAL DE SQL)

Prog24.aspx

' inicializando objetos mobiles
' y definiendo lenguaje a usar por servidor
<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage"
Language=VB%>
<%@ Register TagPrefix="mobile"
Namespace="System.Web.UI.MobileControls"
Assembly="System.Web.Mobile"%>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
' todos los controles ponerlos dentro de una forma
<B>BUSQUEDA</B>
<mobile:Form runat=server Paginate=true>
CLAVE EDITAR.:<mobile:TEXTBOX SIZE=3 ID=CLAVE runat=server />
<mobile:Command runat=server OnClick=BUSCAR Text=EDITAR />
NOMBRE:<mobile:TEXTBOX SIZE=10 ID=NOMBRE runat=server />
EDAD..:<mobile:TEXTBOX SIZE=3 ID=EDAD runat=server />
<mobile:Command runat=server OnClick=GRABAR Text=GRABAR />
<mobile:Label runat=server id=RESULTADO />
</mobile:Form>
<SCRIPT RUNAT=SERVER>
' creandocargando coneccion, adapter, dataset como var globales
DIM coneccion AS OLEDBCONNECTION
DIM canal AS OLEDBDATAADAPTER
DIM tabla AS DATASET
DIM q AS STRING
DIM orden AS OLEDBCOMMAND
SUB BUSCAR(Sender As Object, E As EventArgs)
' cargando conecion
coneccion = NEW OLEDBCONNECTION("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\lauro\mibase.mdb")
' Creando y cargando canal con q y var parametros apropiadas
q = "select * from mitabla where clave = @CLAVE"
canal=new OleDbDataAdapter(q, coneccion)
canal.SelectCommand.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))
canal.SelectCommand.Parameters("@CLAVE").Value = CLAVE.Text
' cargando el dataset
tabla = NEW DATASET()
canal.FILL(tabla, "mitabla")
' cargando las etiquetas
DIM cren AS INTEGER
cren = tabla.Tables("mitabla").Rows.Count
NOMBRE.Text = tabla.Tables("mitabla").Rows(cren-1)(1)
EDAD.Text = tabla.Tables("mitabla").Rows(cren-1)(2)
' cerrando conneccion recordar que FILL NO OCUPA CERRAR
coneccion.CLOSE()
RESULTADO.TEXT=""
END SUB
SUB GRABAR(Sender As Object, E As EventArgs)
'abriendo coneccion y COMMAND(A LO FLOJO)
coneccion = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\lauro\mibase.mdb")
' un problema de UPDATE de sql
q = "UPDATE mitabla SET clave= @CLAVE, nombre= @NOMBRE, edad = @EDAD where clave= @CLAVE"
orden = new OleDbCommand(q, coneccion)
' cargando y convirtiendo parametros
orden.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))
orden.Parameters("@CLAVE").Value = CINT(CLAVE.Text)
orden.Parameters.Add(new OleDbParameter("@NOMBRE", OleDbType.VarWChar, 20))
orden.Parameters("@NOMBRE").Value = NOMBRE.Text
orden.Parameters.Add(new OleDbParameter("@EDAD", OleDbType.Integer))
orden.Parameters("@EDAD").Value = CINT(EDAD.Text)
' mandando actualizacion a la base de datos
orden.Connection.Open()
orden.ExecuteNonQuery()
orden.Connection.Close()
'avisando operacion
RESULTADO.Text="REGISTRO ACTUALIZADO"
CLAVE.TEXT=""
NOMBRE.TEXT=""
EDAD.TEXT=""
END SUB
</SCRIPT>

Solo se combinaron los programas de busqueda e inserccion pero con sql update veamos la corrida completa:

Prog24.aspx

image511.jpg

image512.jpg

image513.jpg

1.- construir aspx's de edicion para sus tablas y bases de datos

Politica de Privacidad