UNIDAD 5: VISUAL BASIC NET BASES DE DATOS

TEMA 12: SQL DELETE BAJA O ELIMINACION

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

Prog30.aspx

<%@ PAGE LANGUAGE=VB %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<FORM RUNAT=SERVER>
CLAVE A BORRAR<ASP:TEXTBOX ID=CLAVE SIZE=3 RUNAT=SERVER/>
<ASP:BUTTON ONCLICK=BORRAR TEXT=BORRAR RUNAT=SERVER /><BR>
<ASP:DATAGRID ID=TABLAGRID RUNAT=SERVER
Width=400
BackColor=#ccccff
BorderColor=black
ShowFooter=false
CellPadding=3
CellSpacing=0
Font-Name=Verdana
Font-Size=8pt
HeaderStyle-BackColor=#aaaadd
EnableViewState=false />
</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\tusitio\mibase.mdb")
canal = new OleDbDataAdapter("select * from mitabla", coneccion)
tabla = new DataSet()
canal.Fill(tabla, "mitabla")
TABLAGRID.DataSource = tabla
TABLAGRID.DataMember = "mitabla"
TABLAGRID.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")
TABLAGRID.DataSource=tabla.Tables("mitabla").DefaultView
TABLAGRID.DataBind()
CLAVE.Text=""
END SUB
</script>

corrida prog30.aspx

image360.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 VISUAL BASIC NET

1.- construir en visual basic net este proceso para las tablas y bases de datos que tengan construidas en ASPX

Politica de Privacidad