UNIDAD 5: VISUAL BASIC NET BASES DE DATOS
TEMA 13: EDICION DE REGISTROS SQL UPDATE
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.
En general se tiene otro problema de sql UPDATE, sin embargo ahora se aprovechan algunos elementos nuevos del objeto datagrid, como son la capacidad que tiene de crearle columnas de edicion a los renglones que muestra el dataset, estas columnas de edicion traen sus propios metodos, mismos que se pueden cargar con codigo para procesar.
Prog31.aspx
DIM coneccion As OleDbConnection=new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:progfacil usitiomibase.mdb")SUB Page_Load(Sender as Object, E as EventArgs)' solo para cuando se carga por primera vez la formaif NOT IsPostBack ThenDespTabla()end ifEND SUBSUB DespTabla()DIM canal as OleDbDataAdaptercanal = new OleDbDataAdapter("select * from mitabla", coneccion)DIM tabla as DataSettabla = new DataSet()canal.Fill(tabla, "mitabla")TABLAGRID.DataSource=tablaTABLAGRID.DataMember="mitabla"TABLAGRID.DataBind()END SUBSUB DataGrid_Edit(Sender as Object, E as DataGridCommandEventArgs)' cargando el renglon donde se pidio la edicionTABLAGRID.EditItemIndex = E.Item.ItemIndexDespTabla()END SUBSUB DataGrid_Cancel(Sender as Object, E as DataGridCommandEventArgs)'para cancelar solo poner edititemindex en -1 (ningun renglon)TABLAGRID.EditItemIndex = -1DespTabla()END SUBSUB DataGrid_Update(Sender as Object, E as DataGridCommandEventArgs)DIM q AS STRINGq = "UPDATE mitabla SET clave= @CLAVE, nombre= @NOMBRE, edad = @EDAD where clave= @CLAVE"DIM orden AS OleDbCommandorden = new OleDbCommand(q, coneccion)orden.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))orden.Parameters.Add(new OleDbParameter("@NOMBRE", OleDbType.VarWChar, 20))orden.Parameters.Add(new OleDbParameter("@EDAD", OleDbType.Integer))' cargando textbox de clave con el valor de la claveorden.Parameters("@CLAVE").Value = TABLAGRID.DataKeys(E.Item.ItemIndex)' creando y cargando los demas textboxsDIM nomcajas()= {"@CLAVE","@NOMBRE","@EDAD"}DIM i AS IntegerFOR i=1 to 3DIM datocajas AS STRINGDim micaja As TextBoxmicaja = CType(E.Item.Cells(I).Controls(0), TextBox)datocajas = micaja.Textorden.Parameters(nomcajas(i-1)).Value = Server.HtmlEncode(datocajas)NEXT iorden.Connection.Open()orden.ExecuteNonQuery()'poniendo otra vez el datagrid en nadaTABLAGRID.EditItemIndex = -1orden.Connection.Close()DespTabla()END SUBEDICION O ACTUALIZACION DE REGISTROS
UPDATE SQL VISUAL BASIC NET
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 par
programar
es
https://aprendeprogramando.es/static/images/programar-update-sql-visual-basic-net-284-0.jpg
2024-11-05
Si crees que alguno de los contenidos (texto, imagenes o multimedia) en esta página infringe tus derechos relativos a propiedad intelectual, marcas registradas o cualquier otro de tus derechos, por favor ponte en contacto con nosotros en el mail [email protected] y retiraremos este contenido inmediatamente