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 ) _

E dataSet.HasErrors Poi

changeDataSet = DataSet.GetChanges ( DataRowState.Modified _

O DataRowState.Added )

PrintValues ​​( changeDataSet , "valori Subset " )

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

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 .

• Come convertire una stringa in INT in Vb.net 
• Come ping di un server da VB6