WinForms

Απ: LoadDataRow

KelMan — Mon, 16 Apr 2007 04:23:50 GMT

Μην ξεχάσεις το "Κατάσταση Ενότητας" και το "Σημείωση ως Απάντησης"

Απ: LoadDataRow

gmlogic — Mon, 16 Apr 2007 04:14:41 GMT

Σας ευχαριστώ πολύ όλους

Απ: LoadDataRow

Dimitris Papadimitriou — Mon, 16 Apr 2007 04:12:18 GMT

gmlogic:
Αγαπητέ Δημήτρη σε ευχαριστώ.
Δεν είναι αυτό που μου ξεφεύγει.
Επίτοιδες έχω newRow(0) = 1
Δηλ στό πρώτο Loop να γίνη AddRow
και επειδή το πρώτο Field του Table είναι PK και κατά συνέπεια Unique, περιμένω στο δεύτερο Loop να κάνη Modify
Για αυτό δίνω την ίδια τιμή 1.

Έχεις δίκιο.... εσύ γράφεις LoadDataRow κι εγώ για κάποιο λόγο διάβαζα ImportRow. Στραβομάρα!

Απ: LoadDataRow

KelMan — Mon, 16 Apr 2007 03:47:03 GMT

Για τη συγκεκριμένη δουλειά, όχι.

Απ: LoadDataRow

gmlogic — Mon, 16 Apr 2007 03:40:51 GMT

Πράγματι αφαίρεσα το table.BeginLoadData() και έπαιξε σωστά
Οπότε δεν χρειάζομε το table.BeginLoadData() ?

Απ: LoadDataRow

KelMan — Mon, 16 Apr 2007 03:27:54 GMT

Παίρνεις συνέχεια Added γιατί έχεις βάλει εκτός του loop το table.BeginLoadData()
Αν το αφαιρέσεις, θα δεις ότι θα παίξει σωστά.

Απ: LoadDataRow

gmlogic — Mon, 16 Apr 2007 03:07:27 GMT

Μάνο το έκανα αλλά πέρνω και πάλι added row.RowState σtο δεύτερο Loop
   Dim table As DataTable = New DataTable("table")

        Dim colItem As DataColumn = New DataColumn("item1", GetType(Integer))
        table.Columns.Add(colItem)
        colItem = New DataColumn("item2", GetType(String))
        table.Columns.Add(colItem)

        Dim PrimaryKey(0) As DataColumn
        PrimaryKey(0) = table.Columns("item1")
        table.PrimaryKey = PrimaryKey
        table.BeginLoadData()
        Dim newRow(table.Columns.Count - 1) As Object
        ' Set the values of the array.
        Dim row As DataRow = Nothing
        For i As Integer = 1 To 5
            Try
                newRow(0) = 1
                newRow(1) = "dddddd" & i
                row = table.LoadDataRow(newRow, False)

                Dim es As System.Enum = row.RowState
                Select Case es.ToString
                    Case "Added"
                        Console.WriteLine(es.ToString)
                    Case "Modified"
                        Console.WriteLine(es.ToString)
                    Case "Unchanged"
                        Console.WriteLine(es.ToString)
                    Case Else
                        MsgBox("Uknown System.Enum=" & es.ToString)
                End Select
            Catch ex As Exception
                Console.WriteLine(ex.ToString)
            End Try
            table.AcceptChanges()
        Next

Απ: LoadDataRow

KelMan — Mon, 16 Apr 2007 02:46:34 GMT

To RowState για κάθε ένα DataRow αλλάζει κατάσταση όταν βρει το προηγούμενο RowState σε Unchanged. Αυτό συμβαίνει σε δύο περιπτώσεις. Ακριβώς αφότου γίνει το Load του πίνακα και αμέσως αφού εκτελεστεί η AcceptChanges. Γι αυτό και την πρώτη φορά παίρνεις το Added RowState ενώ τη δεύτερη χτυπάει. Αν όμως πριν το τέλος του loop βάλεις την εντολή table.AcceptChanges() θα δεις ότι κατόπιν το RowState γίνεται Modified.

Απ: LoadDataRow

gmlogic — Mon, 16 Apr 2007 01:52:23 GMT

Αγαπητέ Νατάσα είχα δοκιμάση και με BeginLoadData
Αλλά αντί στο δεύτερο Loop να κάνη modify κάνη Add.
Εκεί ακριβώς κολάω.
Θα μπορούσες σε παρακαλώ να δοκιμάσης αυτό το παραδειγματάκι και να δείς τα αποτελέσματα ?
Ευχαριστώ.

Απ: LoadDataRow

gmlogic — Mon, 16 Apr 2007 01:45:57 GMT

Αγαπητέ Δημήτρη σε ευχαριστώ.
Δεν είναι αυτό που μου ξεφεύγει.
Επίτοιδες έχω newRow(0) = 1
Δηλ στό πρώτο Loop να γίνη AddRow
και επειδή το πρώτο Field του Table είναι PK και κατά συνέπεια Unique, περιμένω στο δεύτερο Loop να κάνη Modify
Για αυτό δίνω την ίδια τιμή 1.

Απ: LoadDataRow

Νατάσα Μανουσοπούλου — Sun, 15 Apr 2007 20:14:39 GMT

Κάλεσε στην αρχή την BeginLoadData. Η συμπεριφορά της LoadDataRow είναι αυτή που λέει το documentation, μόνο αν η BeginLoadData έχει κληθεί.

Απ: LoadDataRow

Dimitris Papadimitriou — Sun, 15 Apr 2007 18:45:47 GMT

και με την ευκαιρία μερικές βελτιώσεις στον κώδικά σου:

                Select Case row.RowState

                    Case DataRowState.Added
                        Console.WriteLine(DataRowState.Added.ToString)
                    Case DataRowState.Modified
                        Console.WriteLine(DataRowState.Added.ToString)
                    Case DataRowState.Unchanged
                        Console.WriteLine(DataRowState.Added.ToString)
                    Case Else
                        MsgBox("Uknown System.Enum=" & DataRowState.Added.ToString)

                End Select

ή ακόμα καλύτερα αντί για το Select case μπορείς να γράψεις αυτό:

Console.WriteLine(row.RowState.ToString)

Απ: LoadDataRow

Dimitris Papadimitriou — Sun, 15 Apr 2007 18:25:18 GMT

Σου ξέφυγε κάτι:

newRow(0) = i

και όχι

newRow(0) = 1

LoadDataRow

gmlogic — Sun, 15 Apr 2007 08:04:20 GMT

Παραθέτω ένα παράδειγμα για να περιγράψω το προβλημά μου....
Dim table As DataTable = New DataTable("table")
Dim colItem As DataColumn = New DataColumn("item1", GetType(Integer))
table.Columns.Add(colItem)
colItem = New DataColumn("item2", GetType(String))
table.Columns.Add(colItem)
Dim PrimaryKey(0) As DataColumn
PrimaryKey(0) = table.Columns("item1")
table.PrimaryKey = PrimaryKey
Dim newRow(table.Columns.Count - 1) As Object
' Set the values of the array.
Dim row As DataRow = Nothing
For i As Integer = 1 To 5

Try
newRow(0) = 1
newRow(1) = "dddddd" & i
row = table.LoadDataRow(newRow, False)
Dim es As System.Enum = row.RowState
Select Case es.ToString
Case "Added"
Console.WriteLine(es.ToString)
Case "Modified"
Console.WriteLine(es.ToString)
Case "Unchanged"
Console.WriteLine(es.ToString)
Case Else
MsgBox("Uknown System.Enum=" & es.ToString)
End Select
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try

Next

Διαβάζω για την μέθοδο ...

The LoadDataRow method takes an array of values and finds the matching value(s) in the primary key column(s).

If a column has a default value, pass a null value in the array to set the default value for that column. Similarly, if a column has its AutoIncrement property set to true, pass a null value in the array to set the automatically generated value for the row.

If the fAcceptChanges parameter is true or not specified, the new data is added and then AcceptChanges is called to accept all changes in the DataTable; if the argument is false, newly added rows are marked as insertions, and changes to existing rows are marked as modifications.

Exceptions can also occur during either a ColumnChanging or RowChanging event. If an exception occurs, the row is not added to the table.

Use LoadDataRow in conjunction with BeginLoadData and EndLoadData

........................................

Στο δεύτερο Loop πέρνω Exception

System.Data.ConstraintException: Column 'item1' is constrained to be unique. Value '1' is already present.

ενώ νομίζω θά έπρεπε να πάρω row.RowState="Modified"

Τι μου ξεφεύγει ?