Cómo: Modificar datos en una base de datos usando LINQ (Visual Basic)

Las consultas Language-Integrated Query (LINQ) simplifican el acceso a la información y la modificación de los valores de la base de datos.

El ejemplo siguiente muestra cómo crear una nueva aplicación que recupere y actualice la información de una base de datos de SQL Server.

En los ejemplos de este tema se usa la base de datos de ejemplo Northwind. Si no tiene instalada la base de datos de ejemplo Northwind en el equipo de desarrollo, puede descargarla desde el sitio web del Centro de descarga de Microsoft. Para obtener instrucciones, vea Descargar bases de datos de ejemplo (LINQ to SQL).

Para crear una conexión a una base de datos

1. En Visual Studio, abra el Explorador de servidores/Explorador de bases de datos haciendo clic en el menú Ver y, a continuación, seleccione Explorador de servidores/Explorador de bases de datos.

2. Haga clic con el botón secundario en Conexiones de datos en el Explorador de servidores/Explorador de bases de datos y haga clic en Agregar conexión.

3. Especifique una conexión válida a la base de datos de ejemplo Northwind.

Para agregar un proyecto con un archivo LINQ to SQL

1. En el menú Archivo de Visual Studio, elija Nuevo y, a continuación, haga clic en Proyecto. Seleccione Aplicación de Windows Forms de Visual Basic como tipo de proyecto.

2. En el menú Proyecto, haga clic en Agregar nuevo elemento. Seleccione la plantilla de elementos Clases de LINQ to SQL.

3. Asigne al archivo el nombre northwind.dbml. Haga clic en Agregar. Se abre el Object Relational Designer (Diseñador R/O) para el archivo northwind.dbml.

Para agregar tablas con el fin de consultar y modificar el diseñador

1. En el Explorador de servidores/Explorador de bases de datos, expanda la conexión a la base de datos Northwind. Expanda la carpeta Tablas.

   Si ha cerrado el Object Relational Designer, puede volver a abrirlo haciendo doble clic en el archivo northwind.dbml que agregó anteriormente.

2. Haga clic en la tabla Customers y arrástrela hasta el panel izquierdo del diseñador.

   El diseñador crea un nuevo objeto Customer para el proyecto.

3. Guarde los cambios y cierre el diseñador.

4. Guarde el proyecto.

Para agregar código con el fin de modificar la base de datos y mostrar los resultados

1. Desde el Cuadro de herramientas, arrastre un control DataGridView hasta el formulario Windows Forms predeterminado del proyecto, Form1.

2. Cuando agregó tablas al Object Relational Designer, éste agregó un objeto DataContext al proyecto. Este objeto contiene código que puede utilizar para tener acceso a la tabla Customers. También contiene código que define un objeto Customer local y una colección Customers para la tabla. El nombre del objeto DataContext del proyecto se basa en el nombre del archivo .dbml. En este proyecto, el objeto DataContext se denomina northwindDataContext.

   Puede crear una instancia del objeto DataContext en el código, así como para consultar y modificar la colección Customers especificada por el Object Relational Designer. Los cambios que realice en la colección Customers no se reflejan en la base de datos hasta que los envíe llamando al método SubmitChanges del objeto DataContext.

   Haga doble clic en el formulario Windows Forms, Form1, para agregar el código al evento Load con el fin de consultar la tabla Customers que se expone como propiedad de DataContext. Agregue el código siguiente:

   Private db As northwindDataContext
   
   Private Sub Form1_Load(ByVal sender As System.Object, 
                          ByVal e As System.EventArgs
                         ) Handles MyBase.Load
     db = New northwindDataContext()
   
     RefreshData()
   End Sub
   
   Private Sub RefreshData()
     Dim customers = From cust In db.Customers 
                     Where cust.City(0) = "W" 
                     Select cust
   
     DataGridView1.DataSource = customers
   End Sub
   

3. Desde el Cuadro de herramientas, arrastre tres controles Button hasta el formulario. Seleccione el primer control Button. En la ventana Propiedades, establezca el valor de Name del control Button en AddButton y Text en Add. Seleccione el segundo botón y establezca la propiedad Name en UpdateButton y la propiedad Text en Update. Seleccione el tercer botón y establezca la propiedad Name en DeleteButton y la propiedad Text en Delete.

4. Haga doble clic en el botón Agregar para agregar el código al evento Click. Agregue el código siguiente:

   Private Sub AddButton_Click(ByVal sender As System.Object, 
                               ByVal e As System.EventArgs
                              ) Handles AddButton.Click
     Dim cust As New Customer With { 
       .City = "Wellington", 
       .CompanyName = "Blue Yonder Airlines", 
       .ContactName = "Jill Frank", 
       .Country = "New Zealand", 
       .CustomerID = "JILLF"}
   
     db.Customers.InsertOnSubmit(cust)
   
     Try
       db.SubmitChanges()
     Catch
       ' Handle exception.
     End Try
   
     RefreshData()
   End Sub
   

5. Haga doble clic en el botón Actualizar para agregar el código al evento Click. Agregue el código siguiente:

   Private Sub UpdateButton_Click(ByVal sender As System.Object, _
                                  ByVal e As System.EventArgs
                                 ) Handles UpdateButton.Click
     Dim updateCust = (From cust In db.Customers 
                       Where cust.CustomerID = "JILLF").ToList()(0)
   
     updateCust.ContactName = "Jill Shrader"
   
     Try
       db.SubmitChanges()
     Catch
       ' Handle exception.
     End Try
   
     RefreshData()
   End Sub
   

6. Haga doble clic en el botón Eliminar para agregar el código al evento Click. Agregue el código siguiente:

   Private Sub DeleteButton_Click(ByVal sender As System.Object, _
                                  ByVal e As System.EventArgs
                                 ) Handles DeleteButton.Click
     Dim deleteCust = (From cust In db.Customers 
                       Where cust.CustomerID = "JILLF").ToList()(0)
   
     db.Customers.DeleteOnSubmit(deleteCust)
   
     Try
       db.SubmitChanges()
     Catch
       ' Handle exception.
     End Try
   
     RefreshData()
   End Sub
   

7. Presione F5 para ejecutar el proyecto. Haga clic en Agregar para agregar un nuevo registro. Haga clic en Actualizar para modificar el nuevo registro. Haga clic en Eliminar para eliminar el nuevo registro.

Vea también

Tareas

Cómo: Asignar procedimientos almacenados para realizar actualizaciones, inserciones y eliminaciones (Object Relational Designer)

Tutorial: Crear clases de LINQ to SQL (Object Relational Designer)

Conceptos

Métodos DataContext (Object Relational Designer)

Otros recursos

LINQ en Visual Basic

Consultas de Visual Basic

LINQ to SQL