Γειά σας παιδιά,  ύστερα από 3 μέρες προσπάθειας και καθυστέρησης βρήκα τι εφταιγε και δεν μου επέστρεφε το SELECT @@IDENTITY to increment ORDERID πεδιο του πίνακα order της access που θα δείτε μέσα στο παράδειγμα. Το πρόβλημα ήταν ότι έκανα close το connection και μετά dispose. Τώρα αυτό που ψάχνω να βρώ είναι πώς θα το κάνω display στο DataGridView. Μπορεί κάποιος να μου πεί πως θα γίνει αυτό γιατί κοντεύω να τρελλαθώ. Επίσεις θα ήθελα να μου πείτε για τον κώδικα, πως σας φαίνετε, είναι καλός ή μπορεί να γίνει καλύτερος;

  Ευχαριστώ

Στο query (db1.mdb) "usp_SelectOrders" έχεις δώσει στο OrderId, φίλτρο ίσο με μηδέν

   Όχι δεν φταίει αυτό. Το πρόβλημα είναι στο update. Στο προηγούμενο παράδειγμα θέλω να ξεχωρίσω τις εγγραφές που γίνονται update, added or deleted. Αν κάνω update το dataadapter με το κανονικό dataset τότε το SELECT @@IDENTITY μου επιστρέφει το πραγματικό OrderID (δες το παράδειγμα που σου στέλνω). Οι ερωτήσεις παραμένουν: 1. Υπάρχει τρόπος να βρώ πόσες εγγραφές έγιναν update, added or deleted; 2. Ο κώδικας είναι καλός ήμπορει να γίνει καλύτερος;

  Ευχαριστώ.

Πχ: Dim ChangesDataSet As DataSet = DataSetOrders.GetChanges()

Γιατί θες να ξεχωρίσεις τις εγγραφές που γίνονται update, added or deleted;

  Τις ξεχώριζα έτσι όπως είναι στο παράδειγμα του 1ου post μου και στο παρακάτω παράδειγμα:

If Not dataSetChanged Is Nothing Then

m_daOrders.Update(dataSetChanged, "Orders")

End If

Dim dataSetDeleted As DataSet = DataSetOrders.GetChanges(DataRowState.Deleted)

If Not dataSetDeleted Is Nothing Then

m_daOrders.Update(dataSetDeleted, "Orders")

End If

Dim dataSetAdded As DataSet = DataSetOrders.GetChanges(DataRowState.Added)

If Not dataSetAdded Is Nothing Then

m_daOrders.Update(dataSetAdded.Tables("Orders"))

End If

  Αν χρησιμοποιήσω αυτόν τον κώδικα τότε δεν λειτουργεί ό παρακάτω κώδικας:

Dim cmdGetIdentity As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT @@IDENTITY", oOrders.Connection1)

If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then

' Get the Identity column value

e.Row("OrderID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())

End If

  Για να δουλέψει ο κώδικας του GET IDENTITY θα πρέπει να χρησιμοποιήσω τον εξής κώδικα:

m_daOrders.Update(DataSetOrders.Tables("Orders"))

  Αρα οι ερωτήσεις μου στο πιο πάνω post παραμένουν.

Είναι γενικότερα λανθασμένη η υλοποίηση που κάνεις. Δεν είναι σωστό να τραβάς σκέτo το @@IDENTITY γιατί δεν υπάρχει εγγύηση ότι αυτό που διαβάζεις βρίσκεται πραγματικά μέσα στη βάση ούτε ότι έχει προέλθει από συγκεκριμένο πίνακα. Απλά βασίζεσαι στην υπόθεση ότι επειδή τρέχουν τα δύο statements πολύ γρήγορα το ένα μετά το άλλο, παίρνεις το σωστό identity. Ο σωστός τρόπος είναι να ορίσεις στο Insert Command, το INSERT statement να συνοδεύεται από το SELECT @@Identity. Δες εδώ για περισσότερα: http://www.dotnetzone.gr/cs/forums/thread/8893.aspx

  Γειά σου Μάνο, αυτό το έχω δει στο 3ήμερο που είχα το πρόβλημα και προσπαθούσα να βρώ την λύση του. Αλλά η ΒΔ που χρησιμοποιώ είναι Access και νομίζω ότι δεν ισχύει αυτή η λύση. Δεν ξέρω αν υπάρχει αλλη λύση για την Access.

  Thanks

Δεν μου απάντησες γιατί θες να ξεχωρίσεις τις εγγραφές που γίνονται update, added or deleted;

Ουυυπππςςςς!!! Τύφλα μου! Access είπες ε;

Στην Access δεν γίνεται αυτό που λέω γιατί για να μπορέσεις να βάλεις "INSERT ... ; SELECT ..." θα πρέπει η βάση να υποστηρίζει batch queries. Οπότε η λύση είναι η εξής:

Αρχικά δηλώνεις το refresh command:

Dim cmdRefresh As OleDb.OleDbCommand

και μέσα στον constructor:

cmdRefresh = New OleDb.OleDbCommand("SELECT @@IDENTITY", Connection)

Τώρα, το μόνο που μένει είναι να τρέχεις το refresh command κάθε φορά που γίνεται insert μια εγγραφή. Για να το κάνεις αυτό θα εκμεταλλευτείς το RowUpdated event του DataAdapter object. Έτσι, στο Form1_Load εκεί που δημιουργείς τον  m_daOrders DataAdapter, θα γράψεις από κάτω:

AddHandler m_daOrders.RowUpdated, AddressOf RowUpdatedHandler

Τέλος, σου χρειάζεται η ρουτίνα που θα τρέχει σε κάθε update:

Private Sub RowUpdatedHandler(ByVal sender As Object, ByVal e As OleDb.OleDbRowUpdatedEventArgs)
  If e.Status = UpdateStatus.[Continue] AndAlso (e.StatementType = StatementType.Insert) Then
    e.Row("ID") = CInt(cmdRefresh.ExecuteScalar)
    e.Row.AcceptChanges()
  End If
End Sub

Από εκεί και πέρα, μπορείς να το ραφινάρεις λίγο και να βάλεις το DAL να σου γυρίζει το refresh command, κλπ.

Η πρώτη σου προσπάθεια δεν δουλεύει για άλλον λόγο. Η τεχνική του RowUpdated event παίζει μια χαρά, αλλού είναι το πρόβλημα.

Όταν σπας το DataSet σε τρία (dataSetChanged, dataSetDeleted, dataSetAdded) και τρέχει η RowUpdated, τότε το 

      e.Row("OrderID") = Int32.Parse(cmdGetIdentity.ExecuteScalar())

διαβάζει το @@IDENTITY αλλά αυτό πέφτει μέσα στην αντίστοιχη εγγραφή του πίνακα Orders που βρίσκεται στο dataSetAdded DataSet. Έτσι, η τιμή δεν εμφανίζεται ποτέ μέσα στον πίνακα που είναι binded στο DataGridView κι εσύ βλέπεις (DataSetOrders.Tables("Orders")). Θα το διαπιστώσεις, αν αντί

      m_daOrders.Update(dataSetAdded.Tables("Orders"))

κάνεις

      m_daOrders.Update(DataSetOrders.Tables("Orders"))

Έτσι λοιπόν, η ButtonUpdate_Click γίνεται

Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click
AddHandler m_daOrders.RowUpdated, AddressOf HandleRowUpdated
   Try
      DumpTableContents("Before", DataSetOrders.Tables("Orders"))
      m_daOrders.Update(DataSetOrders.Tables("Orders"))
      DumpTableContents("After", DataSetOrders.Tables("Orders"))
   Catch ex As Exception
      Debug.WriteLine(ex.Message)
   End Try
End Sub

Η DumpTableContnets χρησιμεύει για να δεις τα περιεχόμενα του πίνακα ώστε να διαπιστώσεις ότι πραγματικά έχουν τις τιμές που περιμένεις

Sub DumpTableContents(ByVal text As String, ByVal dtWorking As DataTable)
   Debug.WriteLine(text)
   For Each r As DataRow In dtWorking.Rows
      For i As Integer = 0 To r.ItemArray.Length - 1
         Debug.Write(String.Format("{0},", r(i)))
      Next
      Debug.WriteLine()
   Next
End Sub