Auslesen des neuen Wertes der Schlüsselspalte nach dem Erstellen eines neuen Datensatzes mit @@Identity

    • Allgemein

    Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

      Auslesen des neuen Wertes der Schlüsselspalte nach dem Erstellen eines neuen Datensatzes mit @@Identity

      Wenn man den neuen Wert einer Schlüsselspalte nach dem Einfügen erhlten möchte, bietet sich der SQL-Befehl @@Identity an.

      Als Beispiel wird einen Verbindung zu einer Access-Datenbank genutzt:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.Data.OleDb
      3. Public Class frmTest
      5. .....
      7. Private Function SpeichernMitNeuemWert() as int64
      8. Dim MeinSqlConnection As OleDbConnection = New OleDbConnection(My.Settings.DBConnectionString)
      10. 'Speichern
      11. Dim MeinSqlString As String = "INSERT INTO Tabelle(Feld1,Feld2, ....) VALUES (Wert1,Wert2,....)"
      12. Dim MeinSqlCommand As OleDbCommand = New OleDbCommand(MeinSqlString, MeinSqlConnection)
      13. MeinSqlConnection.Open()
      15. Try
      16. MeinSqlCommand.ExecuteNonQuery()
      17. Catch ex As Exception
      18. MessageBox.Show(ex.Message)
      19. End Try
      21. 'ID-Wert auslesen
      22. MeinSqlString = "Select @@Identity From tTest"
      23. MeinSqlCommand.CommandText = MeinSqlString
      24. Try
      25. Wert = MeinSqlCommand.ExecuteScalar
      26. Catch ex As Exception
      27. MessageBox.Show(ex.Message)
      28. End Try
      30. MeinSqlConnection.Close()
      32. Return Wert
      33. End Function
      35. .....
      37. End Class



      Falls ein anderer Datenbanktyp verwendet werden soll, muss die DLL, die den Zugriff auf die Datenbank steuert ausgetauscht werden.
      Dazu muss dann überall im Code OleDB durch die entspechende Information ersetzt werden.
      z.B. für den Zugriff auf MS SQL-Server bzw. MS SQL.ServerExpress OleDB durch SQL

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.Data.SQLClient
      2. Public Class frmTest
      4. .....
      6. Private Function SpeichernMitNeuemWert() As Int64
      7. Dim MeinSqlConnection As SQLConnection = New SQLConnection(My.Settings.DBConnectionString)
      9. 'Speichern
      10. Dim MeinSqlString As String = "INSERT INTO Tabelle(Feld1,Feld2, ....) VALUES (Wert1,Wert2,....)"
      11. Dim MeinSqlCommand As SQLCommand = New SQLCommand(MeinSqlString, MeinSqlConnection)
      12. MeinSqlConnection.Open()
      14. Try
      15. MeinSqlCommand.ExecuteNonQuery()
      16. Catch ex As Exception
      17. MessageBox.Show(ex.Message)
      18. End Try
      20. 'ID-Wert auslesen
      21. MeinSqlString = "Select @@Identity From tTest"
      22. MeinSqlCommand.CommandText = MeinSqlString
      23. Try
      24. Wert = MeinSqlCommand.ExecuteScalar
      25. Catch ex As Exception
      26. MessageBox.Show(ex.Message)
      27. End Try
      29. MeinSqlConnection.Close()
      31. Return Wert
      32. End Function
      34. .....
      36. End Class

      NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „INOPIAE“ ()

      Anwendung bei der Befüllung von Tabellen im typisierten Dataset

      Hi!

      Ich hatte eiglich vor, selbst ein Snippet zum Thema einzustellen, finde aber, es passt ausgezeichnet hier als Anhang:

      VB.NET-Quellcode

      1. Imports System.Data.OleDb
      3. Namespace MAAutoWertDataSetTableAdapters
      5. Partial Public Class MitarbeiterTableAdapter
      7. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
      9. Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles _adapter.RowUpdated
      10. If e.StatementType = StatementType.Insert Then
      11. _IdentityCommand.Connection = e.Command.Connection
      12. _IdentityCommand.Transaction = e.Command.Transaction
      13. e.Row(e.Row.Table.PrimaryKey(0)) = _IdentityCommand.ExecuteScalar()
      14. End If
      15. End Sub
      17. End Class
      18. End Namespace
      Hier ist das Command, mit welchem die Identity geholt wird ins DataAdapter_RowUpdated - Event eines typisierten TableAdapters gelegt.
      Wenn nun der TableAdapter eine DataTable updated, fragt er bei Insert-Commands gleich den von der DB generierten Primkey ab, und pflegt ihn in die soeben abgespeicherte DataRow ein, sodasser im weiteren sofort im Dataset verfügbar ist.
      Dateien

      • UpdateDB.zip

        (156,65 kB, 286 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

      Hallo Erfinder,

      ich habe jetzt ein Testprojekt erstellt und eine Datenbank eingebunden.
      Wenn ich nun deinen Codeschnipsel in den Code des DataSet einfüge, bekomme ich eine Fehlermeldung, dass die Handles Klausel ein WithEvent benötigt.
      Ich habe in der MAAutoWertDataSet.Designer.vb gesehen, dass dort auch noch was eingetragen wurde, dort auch das WithEvent.
      Wird das dort nicht alles automatisch eingetragen oder wie genau kann ich deinen Code ans Laufen bekommen ?

      Gruß
      HerrFrie

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „HerrFrie“ ()

      Das Einfügen des CodeSchnippels erfordert ein Verständnis von partialen Klassen.

      Bei partialen Klassen wird der Code einer Klasse auf mehrere Dateien aufgeteilt. Ein Beispiel was jeder kennt benutzt, ist der Form-User-Code, wo man üblicherweise die Eventhandler von Button-Klicks etc. implementiert.
      Die Datei, die man durch doppelklick im Designer auf einen Button öffnet, ist nur die Teil-Klasse des gesamten Forms. Der annere Teil befindet sich in der Datei "Form1.Designer.vb"

      Und genauso geht man am besten auch vor, wenn man einen generierten TableAdapter um das Row_Updated-Ereignis erweitern möchte:
      Im Dataset-Designer auf den TableAdapter doppelklicken, sodaß man in den UserCode des Datasets kommt.

      Ist bischen komplexer, denn in dieser User-Code-Datei können mehrere partiale klassen angelegt sein. DoppelKlickst man etwa auf eine DataTable, so wird das DataTable_RowChanging-Event generiert, in der Partialen Klasse der gedoppelklicksten DataTable.

      Also auf den typisierten TableAdapter doppelklicksen, und dort den gezeigten Code in die dadurch generierte partiale TableAdapter-Klasse einpasten.
      Denn nur innerhalb der partialen Klasse des TableAdapters besteht zugriff auf die WithEvents-Variable "_adapter".

    Facebook
    Telefonspende