Cómo utilizar dos conjuntos de datos en VB

El uso de dos conjuntos de datos en Visual Basic es una de las mejores maneras de mantener los datos sincronizados cuando un usuario realiza cambios en los datos originales. Un " conjunto de datos " es una caché en memoria de los datos recuperados de un origen de datos como una tabla. Los programadores suelen cargarse los datos de una tabla de base de datos a un " conjunto de datos " y permiten al usuario realizar cambios en los datos originales. Un segundo " DataSet " se utiliza para capturar los cambios y se fusionó de nuevo al " conjunto de datos " original utilizando el método " DataSet.Merge " . Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1

lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar " Plantillas instaladas . " abajo " Visual Basic" Haga clic en "Windows " y haga doble clic en " Aplicación de consola " en el centro de la ventana de diálogo para crear un nuevo proyecto de consola .
2

Copia y pega el siguiente código para crear el primer " conjunto de datos " una mesa, dos columnas y tres filas :

dataSet As New DataSet ( " dataSet " )

tabla Dim As New DataTable ( "Artículos" )

Dim idColumn As New DataColumn ( "id" , Type.GetType ( " System.Int32 " ))

idColumn.AutoIncrement = True

itemColumn Dim As New DataColumn ( "Item" , Type.GetType ( " System.Int32 " ))

fila As DataRow
3

Añada la siguiente línea de código para crear el segundo " DataSet : "

changeDataSet As DataSet
4

coulumns agregar a la mesa y poner la mesa para la Página 5

Agregar diez filas de datos a la tabla y aceptar los cambios :

Dim i As Integer

For i = 0 a 9

fila = table.NewRow ()

fila ( "Item" ) = i

table.Rows.Add (fila )

Siguiente I Love

DataSet.AcceptChanges ( 6 )

Imprimir valores " DataSet " en la ventana de la consola :
PrintValues

( conjunto de datos, los "valores originales ")
7

Modificar la tabla mediante la adición de nuevos valores para las dos primeras filas , la adición de una nueva fila , y la adición de un error de una de las filas :
table.Rows

( 0 ) ( " artículo " ) = 50

table.Rows ( 1 ) (" artículo ") = 111

fila = table.NewRow ()
fila

( "Item ") = 74

table.Rows . Añadir (fila)
table.Rows

( 1 ) . RowError = " más de 100 " PrintValues

inicio ( dataSet , " Modificado y Nuevos Valores " ) baratos en 8

Compruebe si la tabla tiene cambios y si lo hace entonces fusionar los cambios de nuevo a la primera " DataSet " e imprimir los resultados :

Si DataSet.HasChanges ( DataRowState.Modified DataRowState.Added O ) _
< p > Y dataSet.HasErrors Entonces

changeDataSet = DataSet.GetChanges ( DataRowState.Modified _

O DataRowState.Added )
PrintValues

( changeDataSet , "valores Subset ")

CHANGETABLE As DataTable

For Each CHANGETABLE En changeDataSet.Tables

Si changeTable.HasErrors Entonces

changeRow As DataRow

For Each changeRow En changeTable.Rows

Si CInt ( changeRow ( "Item ", _

DataRowVersion.Current ) ) > 100 entonces changeRow.RejectChanges

inicio ( )

changeRow.ClearErrors ( ) guía

End If

Siguiente changeRow

End If

Siguiente CHANGETABLE

PrintValues ( changeDataSet , " Avenida valores subconjunto " )

DataSet.Merge ( changeDataSet )

PrintValues ( conjunto de datos, "Valores fusionadas " )

Console.ReadLine ()

End If End sub

Agregue el siguiente procedimiento Sub para imprimir valores " DataSet " a la ventana de la consola :

PrintValues Private Sub ( dataSet ByVal como DataSet , etiqueta de ByVal como secuencia)

Console.WriteLine ( ControlChars.Cr y etiqueta)

tabla As DataTable

para cada tabla de dataSet.Tables
< p > Console.WriteLine ( " TableName :" & table.TableName )

fila As DataRow

para cada fila de table.Rows

columna As DataColumn

para cada columna de table.Columns

Console.Write ( ControlChars.Tab & "" _

y fila ( columna) . ToString ( ))

Siguiente columna

Console.WriteLine ()

Sig. vuelta

siguiente tabla

End Sub
10

Press "F5 " para ejecutar el programa .