Utilizzando due set di dati in Visual Basic è uno dei modi migliori per mantenere i dati sincronizzati quando un utente modifica i dati originali. A " DataSet " è una cache in memoria dei dati recuperati da un'origine dati, ad esempio un tavolo . Programmatori comunemente caricare i dati da una tabella di database a un " DataSet " e permettono all'utente di effettuare modifiche ai dati originali . Un secondo " DataSet " è utilizzato per acquisire le modifiche e uniti di nuovo all'originale " DataSet " usando il metodo " DataSet.Merge " . Cose che ti serviranno
Microsoft Visual Studio
Mostra più istruzioni
1
lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e espandere " Visual Basic " " Modelli installati . " qui sotto Fare clic su "Windows" e fare doppio clic su " Applicazione console " dal centro della finestra di dialogo per creare un nuovo progetto console .
2
Copia e incolla il seguente codice per creare il primo " DataSet " un tavolo , due colonne e tre righe:
Dim DataSet As New DataSet ( " dataset" ) per
Dim tabella As New DataTable ( "Articoli" ) per
Dim idColumn As New DataColumn ( " id" , Type.GetType ( " System.Int32 " ) ) per
idColumn.AutoIncrement = True
Dim itemColumn As New DataColumn ( "Item" , Type.GetType ( " System.Int32 " ) ) per
Dim fila come DataRow
3
Aggiungere la seguente riga di codice per creare il secondo " DataSet : "
dim changeDataSet Come DataSet
4
Aggiungi coulumns al tavolo e aggiungere la tabella al
5
Aggiungi dieci righe di dati nella tabella e di accettare i cambiamenti :
Dim i As Integer
For i = 0 To 9
row = table.NewRow ( ) per
riga ( " Item" ) = i
table.Rows.Add (riga ) per
Next i
DataSet.AcceptChanges ( )
6
Stampa valori " dataset" nella finestra della console :
PrintValues (DataSet , "valori originali " ) economici 7
modificare la tabella aggiungendo nuovi valori per le prime due righe , aggiungendo una nuova riga , e l'aggiunta di un errore di una delle righe :
table.Rows ( 0 ) ( " Item" ) = 50
table.Rows ( 1 ) ( " Item" ) = 111
fila = table.NewRow ( ) per
riga ( " Item" ) = 74
table.Rows . aggiungere (riga ) per
table.Rows ( 1) . RowError = " oltre 100 "
PrintValues (DataSet , "Modified e nuovi valori " ) economici 8
controllare se la tabella ha cambiamenti e se non poi unire le modifiche alla prima " DataSet " e stampare i risultati :
dataSet.HasChanges ( DataRowState.Modified O DataRowState.Added ) _
< p > E dataSet.HasErrors Poi
changeDataSet = DataSet.GetChanges ( DataRowState.Modified _
O DataRowState.Added )
PrintValues ( changeDataSet , "valori Subset " ) < br >
Dim CHANGETABLE Come DataTable
Ogni CHANGETABLE In changeDataSet.Tables
changeTable.HasErrors Poi
Dim changeRow come DataRow
For Each changeRow In changeTable.Rows
CInt ( changeRow ( "Item" , _
DataRowVersion.Current ) ) > 100 Then
changeRow.RejectChanges ( ) per
changeRow.ClearErrors ()
End If
Avanti changeRow
End If
Avanti CHANGETABLE
PrintValues ( changeDataSet , " Riconciliati valori sottoinsieme " ) per
DataSet.Merge ( changeDataSet )
PrintValues (DataSet , "Valori uniti " ) per
Console.ReadLine ( ) per
End If End sub
9
Aggiungere la seguente procedura sub per stampare i valori " dataset" nella finestra della console :
PrintValues private Sub (DataSet ByVal come DataSet , etichetta di ByVal come stringa ) per
Console.WriteLine ( ControlChars.Cr & label ) per
Dim tabella come DataTable
per ogni tabella
dataSet.Tables < p > Console.WriteLine ( " TableName : " & table.TableName ) per
Dim fila come DataRow
per ogni riga table.Rows
Dim colonna come DataColumn
per ogni colonna table.Columns
Console.Write ( ControlChars.Tab & " " _
& riga ( colonna ) . ToString ( ) ) per
Successivo colonna
Console.WriteLine ( ) per
Successivo fila
successiva tabella
End Sub
10
Premere " F5 " per eseguire il programma .
