Procedura: Recuperare il valore di identità durante l'inserimento di record nel Database Access utilizzando Visual Basic .NET

Connettersi al Database Access

1. Avviare Microsoft Visual Studio .NET 2002.
2. Scegliere Nuovo dal menu file , quindi progetto .
3. In Tipi progetto fare clic su Progetti di Visual Basic . Nella sezione modelli fare clic su Applicazione Console . Per impostazione predefinita, viene creato Module1.vb.
4. Denominare il progetto MyJetApplication e scegliere OK .
5. Sostituire il codice esistente con il codice riportato di seguito:

   Imports System
   Imports System.Data
   Imports System.Data.OleDb
   
   Module Module1
   
      Sub Main()
   
         ' Open Connection 
         Dim cnJetDB As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase")
         cnJetDB.Open()
   
         ' If the test table does not exist, create the Table.
         Dim strSQL As String
         strSQL = "CREATE TABLE AutoIncrementTest " & _
                  "(ID int identity, Description varchar(40), " & _
                  "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"
   
         ' Command for creating Table.
         Dim cmdJetDB As New OleDbCommand(strSQL, cnJetDB)
         cmdJetDB.ExecuteNonQuery()
   
         ' Create a DataAdaptor With Insert Command For inserting records
         Dim oleDa As New OleDbDataAdapter("Select * from AutoIncrementTest", cnJetDB)
   
   
         ' Command to Insert Records.
         Dim cmdInsert As New OleDbCommand()
         cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES (?)"
         cmdInsert.Connection = cnJetDB
         cmdInsert.Parameters.Add(New OleDbParameter("Description", OleDbType.VarChar, 40, "Description"))
         oleDa.InsertCommand = cmdInsert
   
         ' Create a DataTable
         Dim dtTest As New DataTable()
         oleDa.Fill(dtTest)
   
         Dim drTest As DataRow
   
         ' Add Rows to the Table
         drTest = dtTest.NewRow
         drTest("Description") = "This is a Test Row 1"
         dtTest.Rows.Add(drTest)
   
         drTest = dtTest.NewRow
         drTest("Description") = "This is a Test Row 2"
         dtTest.Rows.Add(drTest)
         
      End Sub
   
   End Module
   

6. Modificare il nome origine dati nella stringa di connessione per puntare il database di Access.

Registrare il valore della colonna di identità

1. Aggiungere il codice riportato di seguito prima il metodo Main per creare un secondo oggetto OleDbCommand per la query SELECT @@ IDENTITY :

      ' Create OleDbCommand for SELECT @@IDENTITY statement
      Private cmdGetIdentity As OleDbCommand

2. Aggiunge il seguente codice al metodo Main per la creazione di una nuova istanza della classe OleDbCommand :

         ' Create another command to get IDENTITY value.
         cmdGetIdentity = New OleDbCommand()
         cmdGetIdentity.CommandText = "SELECT @@IDENTITY"
         cmdGetIdentity.Connection = cnJetDB
   
   

3. Aggiunge il seguente codice al metodo Main per la gestione dell'evento RowUpdated :

         ' Delegate for handling RowUpdated event.
         AddHandler oleDa.RowUpdated, AddressOf HandleRowUpdated

4. Aggiunge il seguente codice al metodo principale per l'aggiornamento dei dati. L'evento RowUpdated viene generato dopo la chiamata al metodo Update .

         ' Update the Data
         oleDa.Update(dtTest)
   

5. Aggiunge il seguente codice al metodo Main per eliminare la tabella AutoIncrementTest e rilasciare le risorse:

         ' Drop the table
         cmdJetDB.CommandText = "DROP TABLE AutoIncrementTest"
         cmdJetDB.ExecuteNonQuery()
   
         ' Release the resources.
         cmdGetIdentity.Dispose()
         cmdGetIdentity = Nothing
         cmdInsert.Dispose()
         cmdInsert = Nothing
         cmdJetDB.Dispose()
         cmdJetDB = Nothing
         cnJetDB.Close()
         cnJetDB.Dispose()
         cnJetDB = Nothing

6. Aggiungere il seguente codice di gestore eventi RowUpdated Module1:

      ' Event handler for RowUpdated event.
      Private Sub HandleRowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs)
         If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
            ' Get the Identity column value
            e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
            Debug.WriteLine(e.Row("ID"))
            e.Row.AcceptChanges()
         End If
      End Sub
   

7. Dal menu debug , scegliere Avvia per eseguire l'applicazione. Valori di colonna di identità vengono visualizzati nella finestra di output.

Elenco completo del codice

Imports System
Imports System.Data
Imports System.Data.OleDb

Module Module1

   ' Create OleDbCommand for SELECT @@IDENTITY statement
   Private cmdGetIdentity As OleDbCommand

   Sub Main()

      ' Open Connection 
      Dim cnJetDB As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourAccessDatabase")
      cnJetDB.Open()

      ' If the test table does not exist then create the Table
      Dim strSQL As String
      strSQL = "CREATE TABLE AutoIncrementTest " & _
               "(ID int identity, Description varchar(40), " & _
               "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"

      ' Command for Creating Table
      Dim cmdJetDB As New OleDbCommand(strSQL, cnJetDB)
      cmdJetDB.ExecuteNonQuery()

      ' Create a DataAdaptor With Insert Command For inserting records
      Dim oleDa As New OleDbDataAdapter("Select * from AutoIncrementTest", cnJetDB)


      ' Command to Insert Records
      Dim cmdInsert As New OleDbCommand()
      cmdInsert.CommandText = "INSERT INTO AutoIncrementTest (Description) VALUES (?)"
      cmdInsert.Connection = cnJetDB
      cmdInsert.Parameters.Add(New OleDbParameter("Description", OleDbType.VarChar, 40, "Description"))
      oleDa.InsertCommand = cmdInsert

      ' Create a DataTable
      Dim dtTest As New DataTable()
      oleDa.Fill(dtTest)

      Dim drTest As DataRow

      ' Add Rows to the Table
      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 1"
      dtTest.Rows.Add(drTest)

      drTest = dtTest.NewRow
      drTest("Description") = "This is a Test Row 2"
      dtTest.Rows.Add(drTest)

      ' Create another Command to get IDENTITY Value
      cmdGetIdentity = New OleDbCommand()
      cmdGetIdentity.CommandText = "SELECT @@IDENTITY"
      cmdGetIdentity.Connection = cnJetDB

      ' Delegate for Handling RowUpdated event
      AddHandler oleDa.RowUpdated, AddressOf HandleRowUpdated

      ' Update the Data
      oleDa.Update(dtTest)

      ' Drop the table
      cmdJetDB.CommandText = "DROP TABLE AutoIncrementTest"
      cmdJetDB.ExecuteNonQuery()

      ' Release the Resources
      cmdGetIdentity.Dispose()
      cmdGetIdentity = Nothing
      cmdInsert.Dispose()
      cmdInsert = Nothing
      cmdJetDB.Dispose()
      cmdJetDB = Nothing
      cnJetDB.Close()
      cnJetDB.Dispose()
      cnJetDB = Nothing
   End Sub

   ' Event Handler for RowUpdated Event
   Private Sub HandleRowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs)
      If e.Status = UpdateStatus.Continue AndAlso e.StatementType = StatementType.Insert Then
         ' Get the Identity column value
         e.Row("ID") = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())
         Debug.WriteLine(e.Row("ID"))
         e.Row.AcceptChanges()
      End If
   End Sub
End Module

Torna all'inizio | Invia suggerimenti