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 clave=@CLAVE"

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

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.