Cómo: Crear mediante programación un objeto de conjunto de datos jerárquico con ADO.NET en Visual Basic .NET

En este artículo se refiere a los siguientes espacios de nombres de biblioteca de clases de Microsoft.NET Framework:
  • System.Data
  • System.XML

EN ESTA TAREA

Resumen

En este artículo paso a paso se describe cómo crear un objeto DataSet jerárquico que se puede utilizar como una estructura para sus programas. Puede que no tenga los datos exactos o la estructura que desea utilizar para el proyecto. Puede utilizar el método de este artículo para crear prototipos para sus ejemplos. También puede ser conveniente enviar sólo los datos que tiene la base de datos sin utilizar la sintaxis del comando shape para enviar los datos a la base de datos. También puede tener un conjunto limitado de datos que se debe agregar a la base de datos. En lugar de pasar 20 argumentos sobre los datos a un método, puede pasar el objeto de conjunto de datos creado mediante programación. Este artículo describe cómo utilizar este método.

En este ejemplo en este artículo crea a un nuevo cliente y crea información de pedido relacionado y envía los datos como XML. Empiece por definir el objeto DataSet y, a continuación, cree las dos tablas y una fila. A continuación, se definen las columnas, agregar una relación entre las tablas, rellenar las filas con datos, anexar filas a la colección rows y presentar los datos en formato XML.

Requisitos

La lista siguiente describe el hardware recomendado, software, infraestructura de red y service packs que se necesitan:
  • Microsoft Visual Studio .NET instalado en un sistema operativo de Microsoft Windows compatible
En este artículo se supone que está familiarizado con los temas siguientes:
  • Visual Basic .NET
  • Acceso a datos ADO.NET

Crear el proyecto

  1. Inicie Visual Studio .NET y cree una nueva aplicación de consola de Visual Basic. NET.
  2. Agregue las siguientes instrucciones IMPORTS en la parte superior de la ventana de código:
    Imports SystemImports System.Data
    Imports System.XML

  3. En la sección Sub Main, agregue el código siguiente:
             Dim myDS As New Data.DataSet("CusOrd")
    Dim myCustomers As Data.DataTable = myDS.Tables.Add("Customers")
    Dim myOrders As Data.DataTable = myDS.Tables.Add("Orders")
    Dim myDr As Data.DataRow

    With myCustomers
    .Columns.Add("CustomerID", Type.GetType("System.String"))
    .Columns.Add("CompanyName", Type.GetType("System.String"))
    .Columns.Add("ContactName", Type.GetType("System.String"))
    End With

    With myOrders
    .Columns.Add("OrderID", Type.GetType("System.Int32"))
    .Columns.Add("CustomerID", Type.GetType("System.String"))
    .Columns.Add("EmployeeID", Type.GetType("System.Int32"))
    .Columns.Add("OrderDate", Type.GetType("System.DateTime"))
    .Columns.Add("RequiredDate", Type.GetType("System.DateTime"))
    End With


    myDS.Relations.Add("rel_Customers_Orders", _
    myDS.Tables("Customers").Columns("CustomerID"), _
    myDS.Tables("Orders").Columns("CustomerID"))

    myDr = myCustomers.NewRow()
    myDr("CustomerID") = "9876"
    myDr("CompanyName") = "Lucerne Publishing"
    myDr("ContactName") = "Kim Ralls"

    myCustomers.Rows.Add(myDr)

    myDr = myOrders.NewRow()
    myDr("OrderID") = 6521
    myDr("CustomerID") = "9876"
    myDr("EmployeeID") = 852
    myDr("OrderDate") = #1/5/2002#
    myDr("RequiredDate") = #2/1/2002#
    myOrders.Rows.Add(myDr)

    Console.WriteLine(myDS.GetXml())

  4. Presione CTRL+F5 para ejecutar la aplicación y observe el resultado.

Referencias

Para obtener información adicional acerca de cómo llenar un objeto DataSet de .NET de Visual Basic, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
301216 Cómo: llenar un objeto DataSet desde una base de datos mediante Visual Basic .NET
Propiedades

Id. de artículo: 316260 - Última revisión: 17 ene. 2017 - Revisión: 1

Comentarios