CARA: Mengambil nilai identitas dari catatan baru disisipkan dari SQL Server dengan menggunakan Visual Basic.NET

Artikel ini selangkah demi selangkah menjelaskan cara untuk mengambil identitas nilai ketika Anda menambahkan catatan ke dalam tabel SQL Server dengan identitas lapangan.

Persyaratan

Sampel ini menggunakan Northwind database dalam SQL Server dan mengambil nilai-nilai identitas hanya untuk DataTables dengan tidak ada meja anak. Ini dapat juga dapat digunakan dengan MSDE; Namun, Northwind database tidak disertakan dengan MSDE. Untuk informasi tentang cara menggunakan prosedur ini dengan MSDE, lihatPemecahan Masalah bagian ini artikel.


Lapangan identitas SQL Server adalah bidang nomor auto bahwa Anda dapat menentukan nilai inkremental. Untuk alasan ini, Anda tidak dapat memasukkan atau memperbarui nilai di bidang ini selama sebagai Identity_ masukkan yang adalah default untuk bidang identitas SQL Server.

Sampel

1. Mulai Visual Studio.NET, dan kemudian membuat Visual baru Dasar Windows aplikasi proyek:
   1. Pada Berkas menu, titik Baru, lalu klik Project.
   2. Dalam Proyek baru kotak dialog, klik Proyek-proyek Visual Basic di bawah Jenis proyek, lalu klik Aplikasi Windows di bawah Pola acu.
2. Seret tombol ke bentuk dari Windows Forms Toolbox.
3. Di bagian atas jendela kode, tambahkan baris berikut:

   Imports System.Data.SqlClient

4. Paste kode berikut ke kegiatan klik tombol:

   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. Mengubah rangkaian sambungan untuk mencerminkan SQL Server atau Informasi MSDE.
   
6. Menjalankan aplikasi.
   
7. Klik tombol.
   
   Informasi untuk identitas bidang catatan baru disisipkan ditampilkan.

Pemecahan Masalah

Sebelum Anda menggunakan prosedur ini, dengan MSDE Anda harus menggunakan Data Transformasi layanan (DTS) untuk mengimpor Northwind database SQL Server atau Microsoft Access.

Untuk informasi tambahan tentang kembali identitas nilai anak Records, klik nomor artikel di bawah ini untuk melihat artikel pada Basis Pengetahuan Microsoft: Untuk informasi tambahan tentang cara menggunakan DTS, klik nomor artikel di bawah ini untuk melihat artikel dalam Pengetahuan Microsoft Base: Untuk informasi tambahan tentang mengubah Microsoft Access database untuk SQL Server, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft: Untuk informasi tambahan tentang cara mengambil identitas kolom dalam Visual Basic 6.0, klik artikel berikut nomor ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft: