UPDATE SQL VISUAL BASIC NET

Todo sobre Apple, Mac e Iphone Noticias sobre apple,mac, osx, iphone,ipad,apple watch, juegos para mac y appletv

 

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 SUB

EDICION O ACTUALIZACION DE REGISTROS

UPDATE SQL VISUAL BASIC NET

MÁS INFORMACIÓN

El contenido original se encuentra en https://programacionfacil.com/visual_basic_net/update_sql/
Todos los derechos reservados para el autor del contenido original (en el enlace de la linea superior)
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 bitelchux@yahoo.es y retiraremos este contenido inmediatamente