Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να χρησιμοποιήσει δύο Δεδομένων σε VB

Χρησιμοποιώντας δύο σύνολα δεδομένων σε Visual Basic είναι ένας από τους καλύτερους τρόπους για να κρατήσει τα δεδομένα συγχρονίζονται όταν ένας χρήστης κάνει αλλαγές στα αρχικά δεδομένα . Ένα " DataSet " είναι ένα στη μνήμη cache των δεδομένων που ανακτώνται από μία πηγή δεδομένων, όπως ένα τραπέζι . Προγραμματιστές συνήθως φορτώσει δεδομένα από έναν πίνακα βάσης δεδομένων σε ένα " DataSet » και επιτρέπουν στο χρήστη να κάνει αλλαγές στα αρχικά δεδομένα . Ένα δεύτερο " DataSet " χρησιμοποιείται για να συλλάβει τις αλλαγές και συγχωνεύονται πίσω στο αρχικό " DataSet " με τη μέθοδο της " DataSet.Merge " . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο της κονσόλας . 2

αντιγραφή και επικόλληση του παρακάτω κώδικα για να δημιουργήσει το πρώτο " DataSet , " ένα τραπέζι , δύο στήλες , και τρεις σειρές :

Dim DataSet Όπως New DataSet ( " δέσμη " )

Dim πίνακα ως νέα DataTable ( « στοιχεία»)

Dim idColumn Όπως Νέα DataColumn ( "id" , Type.GetType ( " System.Int32 " ) )

idColumn.AutoIncrement = True

Dim itemColumn Όπως New DataColumn ( "είδος" , Type.GetType ( " System.Int32 " ) )

Dim γραμμή Όπως DataRow
εικόνων 3

Προσθέστε την ακόλουθη γραμμή κώδικα για να δημιουργήσετε το δεύτερο " DataSet : "

dim changeDataSet Όπως DataSet
4

Προσθήκη coulumns στο τραπέζι και να προσθέσετε τον πίνακα στην Φτηνές 5

Προσθέστε δέκα σειρές των δεδομένων στον πίνακα και να αποδεχθούν τις αλλαγές :

Dim i As Integer

Για i = 0 έως 9

σειρά = table.NewRow ( )

σειρά ( "είδος" ) = i

table.Rows.Add ( σειρά )

Επόμενο i

dataSet.AcceptChanges ( )
Η 6

Εκτύπωση " DataSet " τιμές στο παράθυρο της κονσόλας :

PrintValues ​​( δέσμη , « Original αξίες» )
Η

7 Τροποποίηση του πίνακα με την προσθήκη νέων τιμών για τις δύο πρώτες σειρές , προσθέτοντας μια νέα γραμμή , και προσθέτοντας ένα λάθος σε μία από τις σειρές :

table.Rows ( 0 ) ( "είδος" ) = 50

table.Rows ( 1 ) ( "είδος" ) = 111

σειρά = table.NewRow ( )

σειρά ( "είδος" ) = 74

table.Rows . Προσθήκη ( σειρά)

table.Rows ( 1 ) . RowError = " πάνω από 100 "

PrintValues ​​( δέσμη , " Τροποποιημένο και Νέες Αξίες " )
8

Ελέγξτε αν ο πίνακας έχει αλλαγές και αν το κάνει τότε συγχώνευση των αλλαγών πίσω στο πρώτο " DataSet " και να εκτυπώσετε τα αποτελέσματα :

Αν dataSet.HasChanges ( DataRowState.Modified Ή DataRowState.Added ) _

Και dataSet.HasErrors τότε

changeDataSet = dataSet.GetChanges ( DataRowState.Modified _

Ή DataRowState.Added )

PrintValues ​​( changeDataSet , « οι τιμές υποομάδα " )

Dim changeTable Όπως DataTable

Για Κάθε changeTable Σε changeDataSet.Tables

Αν changeTable.HasErrors τότε

Dim changeRow Όπως DataRow

Για κάθε changeRow Σε changeTable.Rows

Εάν CInt ( changeRow ( "είδος" , _

DataRowVersion.Current ) ) > 100 τότε

changeRow.RejectChanges ( )

changeRow.ClearErrors ( )

End If

Επόμενο changeRow

End If

Επόμενο changeTable

PrintValues ​​( changeDataSet , " Συμφιλιώνεται τιμές υποσύνολο " )

dataSet.Merge ( changeDataSet )

PrintValues ​​( δέσμη , " Συγχωνευόμενων αξίες» )

Console.ReadLine ( )

End If

End Sub
Η 9

Προσθέστε την παρακάτω επιμέρους διαδικασία για να εκτυπώσετε τις αξίες " DataSet " στο παράθυρο της κονσόλας :

Private Sub PrintValues ​​( ByVal DataSet Όπως DataSet , ετικέτα ByVal Όπως String )

Console.WriteLine ( ControlChars.Cr & ετικέτα )

Dim πίνακα Όπως DataTable

Για κάθε τραπέζι dataSet.Tables

Console.WriteLine ( " TableName : " & table.TableName )

Dim γραμμή Όπως DataRow

για κάθε σειρά table.Rows

Dim στήλη Όπως DataColumn

για κάθε στήλη table.Columns

Console.Write ( ControlChars.Tab & "" _

& γραμμή ( στήλη ) . ToString ( ) )

Επόμενο στήλη

Console.WriteLine ( )

Επόμενη σειρά

Επόμενο πίνακα

End Sub

10

Πατήστε το " F5 " για να τρέξει το πρόγραμμα .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα