ProgramacionFacil

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 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")

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

 




 


Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki

Politica de Privacidad