NASýL YAPýLýR: bir kimlik deðeri yeni eklenen SQL Server'dan kayýt'dan Visual Basic .NET kullanarak Al

Bu adým adým makalede, bir SQL Server tablosu Kimliði alaný olan bir kayýt eklediðinizde, kimlik deðerini almak açýklamaktadýr.

Gereksinimler

Bu örnek, SQL Server'da Northwind veritabanýný kullanýr ve yalnýzca ile hiçbir alt tablo olan DataTable için kimlik deðerlerini alýr. MSDE ile de kullanýlabilir; ancak, Northwind veritabanýný MSDE ile eklenmemiþtir. Bu yordam, MSDE ile kullanma hakkýnda daha fazla bilgi için bu makaledeki Troubleshooting bölümüne bakýn.


Bir SQL Server kimlik için artýmlý bir deðer tanýmlayabilirsiniz otomatik sayý alaný alanýdýr. Bu nedenle, edemiyor veya Identity_ ekleme kapalý olarak kadar bu alandaki deðer, bir SQL Server Kimlik alaný için varsayýlan) olduðu.

ÖRNEK

1. Visual Studio. NET'i baþlatýn ve sonra da yeni bir Visual Basic Windows Application projesi oluþturun:
   1. Dosya menüsünde Yeni ' nin üzerine gelin ve sonra Project ' i týklatýn.
   2. Yeni proje) iletiþim kutusunda, Visual Basic ProjectsProject Types altýnda týklatýn ve þablonlarý altýnda Windows uygulama ' yý týklatýn.
2. Bir düðme Windows formlardan forma sürükleyin araç.
3. <a0>Kod</a0> penceresinin en üstünde, aþaðýdaki satýrý ekleyin:

   Imports System.Data.SqlClient

4. <a1>Yapýþtýr</a1> aþaðýdaki kod düðmenin üzerine olay'ý týklatýn:

   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. Baðlantý dizesini SQL Server veya MSDE bilgileri yansýtacak biçimde deðiþir.
   
6. Uygulamayý çalýþtýrýn.
   
7. Düðmeyi týklatýn.
   
   Yeni eklenen kayýt kimliði alanýnýn bilgileri görüntülenir.

SORUN GÝDERME

MSDE ile bu yordamý kullanmadan önce SQL Server veya Microsoft Access için Northwind veritabanýný almak için veri dönüþtürme Hizmetleri (DTS) kullanmalýsýnýz.

Alt kayýtlarý için kimlik deðer hakkýnda daha fazla bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aþaðýdaki makale numaralarýný týklatýn: DTS kullanma hakkýnda ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: SQL Server için Microsoft Access veritabanýna dönüþtürme hakkýnda daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: Visual Basic 6. 0'daki kimlik sütunlarýnýn almak hakkýnda ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: