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

 


 


Driven by DokuWiki

Politica de Privacidad