Ako používať oba súbory dát v VB

Použitie dvoch dátových súborov v jazyku Visual Basic je jedným z najlepších spôsobov , ako udržať synchronizáciu dát , keď používateľ vykoná zmeny pôvodných dát . " DataSet " je v pamäti cache dát získaných zo zdroja údajov , ako je stôl . Programátori často prevziať údaje z databázovej tabuľky do " DataSet " a umožňujú užívateľovi vykonávať zmeny pôvodných dát . Druhý " DataSet " sa používa na zachytenie zmien a zlúčené späť do pôvodného " DataSet " metódou " DataSet.Merge " . Veci , ktoré budete potrebovať v Microsoft Visual Studio
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača , a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a dvakrát kliknite na " Console Application " od stredu okna na vytvorenie nového projektu konzoly .
2

Skopírujte a vložte nasledujúci kód vytvoriť prvý " DataSet , " stôl , dva stĺpce a tri riadky :

Dim DataSet ako New DataSet ( " Dataset " )

Dim stolný As New DataTable ( " položky " )

Dim idColumn ako nový DataColumn ( " id " , Type.GetType ( " System.Int32 " ) )

idColumn.AutoIncrement = TRUE

Dim itemColumn ako nové DataColumn ( " položky " , Type.GetType ( " System.Int32 " ) )

Dim row Ako DataRow
3

Pridajte nasledujúci riadok kódu k vytvoreniu druhej " DataSet : "

Dim changeDataSet ako DataSet
Stránka 4

Pridať coulumns do tabuľky a pridať tabuľku do
5

Pridať desať riadkov dát v tabuľke a prijať zmeny :

Dim i As Integer

pre i = 0 až 9

riadok = table.NewRow ( )

riadok ( " Item " ) = i

table.Rows.Add ( riadok )

Next i

dataSet.AcceptChanges ( )
6

Vytlačiť " DataSet " hodnoty do okna konzoly :

PrintValues ​​( DataSet , " pôvodné hodnoty " )
7

Upraviť tabuľku pridaním novej hodnoty v prvých dvoch radoch , pridá nový riadok , a pridanie k chybe niektorého z radov : celým

table.Rows ( 0 ) ( " bod " ) = 50 celým

table.Rows ( 1 ) ( " Item " ) = 111

riadok = table.NewRow ( )

riadok ( " Item " ) = 74

table.Rows . pridať ( riadok ) Spojené

table.Rows ( 1 ) . RowError = " viac ako 100 " Spojené

PrintValues ​​( DataSet , " Modified a New Values ​​" )
8

Skontrolujte , či tabuľka obsahuje zmeny , a ak áno , potom zlúčiť zmeny späť do prvej " DataSet " a vytlačiť výsledky :

Ak dataSet.HasChanges ( DataRowState.Modified Alebo DataRowState.Added ) _

A dataSet.HasErrors Potom

changeDataSet = dataSet.GetChanges ( DataRowState.Modified _

Alebo DataRowState.Added ) Spojené

PrintValues ​​( changeDataSet , " podskupín hodnoty " )

Dim CHANGETABLE ako DataTable

každý CHANGETABLE V changeDataSet.Tables

Ak changeTable.HasErrors Potom

Dim changeRow ako DataRow

pre každý changeRow V changeTable.Rows

Ak CInt ( changeRow ( " Item " , _

DataRowVersion.Current ) ) > 100 Potom

changeRow.RejectChanges ( )

changeRow.ClearErrors ( )

End If

Ďalšie changeRow

End If

Ďalšie CHANGETABLE

PrintValues ​​( changeDataSet , " zmieril hodnoty podmnožina " )

dataSet.Merge ( changeDataSet ) Spojené

PrintValues ​​( DataSet , " zlúčené hodnoty " )

Console.ReadLine ( )

end If end Sub

9

Pridajte nasledujúce čiastkové postup pri tlači " DataSet " hodnoty do okna konzoly :

Private Sub PrintValues ​​( byval DataSet ako DataSet , byVal štítok As String )

Console.WriteLine ( ControlChars.Cr a štítok )

Dim tabuľke ako DataTable

pre každú tabuľku v dataSet.Tables

Console.WriteLine ( " TableName " a table.TableName )

Dim row ako DataRow

pre každý riadok v table.Rows

Dim stĺpec ako DataColumn

pre každý stĺpec v table.Columns

Console.Write ( ControlChars.Tab & " " _

a riadok ( stĺpec ) . toString ( ) )

Ďalšia stĺpec

Console.WriteLine ( )

Ďalšia riadok

nasledujúcej tabuľke

End Sub
10

Stlačte " F5 " spustiť program .

• Predchádzajúca strana: Ako previesť reťazec na int Vb.net 
• Ďalšia strana: Ako ping na server z VB6