ADO.NET semi-automático: ejercicio
El resto de la mañana repasamos temas de ADO.NET. Me permito señalarlo ya que éste sería el primer post sobre ADO.
En nuestro proyecto GESTOCK hacemos el siguiente ejercicio:
Por el método semi-automático (que es el más usado), dar de alta a un proveedor. Lo hemos realizado en uno de los ejercicios de ADO (ver proyecto ADO 11).
Hemos tenido que crear un sQLDataAdapter (ene ste caso, de la tabla de “Proveedores”, como se verá en los comentarios del ejercicio.
En el formulario que creamos aparecerá:
Public Class frmAltaProveedor
'DE FORMA SEMI-AUTOMÁTICA. Posiblemente, el más usado.
'Cuando hay problemas, recurrimos a los comandos y siempre funcionará.
Private Sub bkAlta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkAlta.Click
Try
'Creamos un DataSet.
Dim Datos As New DataSet
'Llenamos el DataSet con los dtos.
Adaptador.Fill(Datos, "PROVEEDORES")
'Creamos una fila a partir de la tabla.
Dim Fila As DataRow = Datos.Tables("PROVEEDORES").NewRow
Fila("PROVEEDORID") = CInt(tbCodigo.Text)
Fila("NOMBRE_PROVEEDOR") = tbNombre.Text
Fila("CIF") = tbCif.Text
Fila.EndEdit()
' Insertamos la nueva fila
Datos.Tables("PROVEEDORES").Rows.Add(Fila)
' Actualizamos el DataSet a través del Adaptador
Adaptador.Update(Datos, "PROVEEDORES")
' Forzamos al DataSet a aceptar los cambios
Datos.AcceptChanges()
'Mensaje de todo OK.
MsgBox("Alta procesada correctamente", MsgBoxStyle.Information, "Alta Proveedor")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al insertar")
End Try
End Sub
End Class