COMO: Recuperar um valor de identidade de um registro recém-inserido do SQL Server usando o Visual Basic .NET

Este artigo passo a passo descreve como recuperar o valor de identidade quando você adiciona um registro em uma tabela do SQL Server com um campo de identidade.

Requisitos

Este exemplo usa o banco de dados Northwind no SQL Server e recupera os valores de identidade somente para tabelas com nenhuma tabela filho. Ele também pode ser usado com o MSDE; no entanto, o banco de dados Northwind não está incluído com o MSDE. Para obter informações sobre como usar este procedimento com o MSDE, consulte a seção Troubleshooting deste artigo.


Um campo de identidade do SQL Server é um campo de número automática que você pode definir um valor incremental para. Por esse motivo, não é possível inserir ou atualizar um valor neste campo, desde que Identity_ inserir está desativado, que é o padrão para um campo de identidade do SQL Server.

Exemplo

1. Inicie o Visual Studio.NET e crie um novo projeto Visual Basic Windows Application:
   1. No menu arquivo , aponte para novo e, em seguida, clique em Project .
   2. Na caixa de diálogo New Project , clique em Projetos do Visual Basic em Project Types e clique em Windows Application em modelos .
2. Arraste um botão no formulário do Windows Forms caixa de ferramentas.
3. Na parte superior da janela de código, adicione a seguinte linha:

   Imports System.Data.SqlClient

4. Evento de clique o seguinte código para o botão Colar:

   Dim ds As New DataSet()
   
   Dim cnNorthwind As New SqlConnection("server=(local);integrated security=sspi;database=Northwind")
   Dim cmSelect As New SqlCommand("select employeeid,firstname,lastname from employees", cnNorthwind)
   
   Dim stInsert As String
   stInsert = "insert into employees (firstname,lastname) values(@Firstname,@Lastname);select employeeid,firstname,lastname from employees where employeeID = @@identity"
   Dim cmInsert As New SqlCommand()
   
   With cmInsert
      .CommandText = stInsert
      .CommandType = CommandType.Text
      .Connection = cnNorthwind
      .Parameters.Add(New SqlParameter("@firstname", Data.SqlDbType.VarChar, 25, "firstname"))
      .Parameters.Add(New SqlParameter("@lastname", Data.SqlDbType.VarChar, 25, "Lastname"))
   End With
   
   Dim daNorthwind As New SqlDataAdapter()
   With daNorthwind
      .SelectCommand = cmSelect
      .InsertCommand = cmInsert
   End With
   
   daNorthwind.Fill(ds, "employees")
   Dim dr As DataRow
   dr = ds.Tables("employees").NewRow
   dr(1) = "John"
   dr(2) = "Doe"
   ds.Tables("employees").Rows.Add(dr)
           
   daNorthwind.Update(ds, "employees")
   ds.AcceptChanges()
   Dim i As Int16
   For i = 0 To ds.Tables("Employees").Rows.Count - 1
       With ds.Tables("Employees")
          Debug.WriteLine("EmployeeID: " & .Rows(i)(0).ToString)
          Debug.WriteLine("Employee Firstname: " & .Rows(i)(1).ToString)
          Debug.WriteLine("Employee LastName: " & .Rows(i)(2).ToString)
       End With
   Next i
   					

5. Altere a seqüência de conexão para refletir suas informações de SQL Server ou MSDE.
   
6. Execute o aplicativo.
   
7. Clique no botão.
   
   A informação para o campo de identidade do registro recém-inserido é exibida.

Solução de problemas

Antes de usar este procedimento, com o MSDE você deve usar o DTS (Data Transformation Services) para importar o banco de dados Northwind do SQL Server ou do Microsoft Access.

Para obter informações adicionais sobre como retornar o valor de identidade para registros filho, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft: Para obter informações adicionais sobre como usar o DTS, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: Para obter informações adicionais sobre como converter um banco de dados Microsoft Access para SQL Server, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: Para obter informações adicionais sobre como recuperar colunas de identidade no Visual Basic 6.0, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: