UNIDAD 5: VISUAL BASIC INTRODUCION A LAS BASES DE DATOS

TEMA 12: BAJA O ELIMINACION SQL DELETE

Eliminacion es otro proceso simple y comun con las bases de datos el modelo con ADO.NET que estamos usando hace este tipo de operaciones muy faciles:

La instruccion sql a usar es: DELETE FROM TABLA WHERE CONDICION

Prog23.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
<mobile:Form runat=server Paginate=true>
CLAVE A BORRAR<mobile:TEXTBOX ID=CLAVE SIZE=3 RUNAT=SERVER/>
<mobile:Command runat=server OnClick=BORRAR Text=BORRAR/>
<mobile:OBJECTLIST ID=GRID RUNAT=SERVER
AUTOGENERATEFIELDS=TRUE
Font-Name=Verdana
Font-Size=Large
Font-Bold=True
BackColor=#ccccff>
</mobile:OBJECTLIST>
</mobile:Form>
<SCRIPT RUNAT=SERVER>
DIM coneccion AS OleDbConnection
DIM tabla AS DataSet
DIM canal AS OleDbDataAdapter
DIM orden AS OleDbCommand
SUB Page_Load(Sender as Object, E as EventArgs )
coneccion = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\lauro\mibase.mdb")
canal = new OleDbDataAdapter("select * from mitabla", coneccion)
tabla = new DataSet()
canal.Fill(tabla, "mitabla")
GRID.DataSource = tabla
GRID.DataMember = "mitabla"
GRID.DataBind()
END SUB
SUB BORRAR (Sender as Object, E as EventArgs)
DIM q AS STRING
' instruccion sql DELETE FROM TABLA WHERE CLAVE=DATO
q = "delete from mitabla where [email protected]"
orden= new OleDbCommand(q, coneccion)
orden.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))
orden.Parameters("@CLAVE").Value = CLAVE.Text
orden.Connection.Open()
orden.ExecuteNonQuery()
orden.Connection.Close()
' REFRESCANDO DATASET
canal = new OleDbDataAdapter("select * from mitabla", coneccion)
tabla = new DataSet()
canal.Fill(tabla, "mitabla")
GRID.DataSource=tabla.Tables("mitabla").DefaultView
GRID.DataBind()
CLAVE.Text=""
END SUB
</script>

corrida prog23.aspx

image509.jpg

image510.jpg

CUIDAR Y MEJOR VALIDEN EN PROGRAMA QUE LA CLAVE A BORRAR EXISTA EN EL DATASET O TENDRAN UN ERROR DE SQL Y MAS IMPORTANTE AUN SE TENDRA QUE RESETEAR EL SERVIDOR, ESTO LO NOTARAN CUANDO ENCUENTREN CON EL FTP UN ARCHIVO EN SU DIRECTORIO LLAMADO MIBASE.LDB QUE NO LO PODRAN ELIMINAR HASTA QUE YO RESETEE EL SERVIDOR ESTAN AVISADOS.

TAREAS PROGRAMACION visual basic mobile :

1.- construir este proceso para las tablas y bases de datos que tengan construidas.

Politica de Privacidad