την εφαρμογή 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 " για να τρέξει το πρόγραμμα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα