TO HOW: ??????? ??? ????? ??? ?? SQL ????? ?? ?? ?? ???????? ???? ??? ?????? Visual Basic .NET ?? ????? ??

?? ??? ?? ??? ???? ????? ???? ?? ?? ?? ??? ????? ????? ?? ??? ???? SQL Server ?????? ??? ?????? ????? ????? ??? ??????? ???? ?? ??? ???? ?????

??????????

?? ????? ????????? ??????? ??? SQL ????? ?? ????? ???? ?? ?? ????? ??? ?? ??? ?????? ???????? ?? ??? DataTables ?? ??? ???? retrieves ??? ?? ?? ????? ???? ?? ???? MSDE ?? ??? ??; ???????, ?? ????????? ??????? MSDE ?? ??? ????? ???? ??? MSDE ?? ??? ?? ????????? ?? ????? ???? ???? ?? ???? ??? ??????? ?? ??? ??????????? ???????? ???? ?? ????


???? SQL Server ????? ????? ??? ??? ????? ?????? ????? ?? ?? ?? ????????? ??? ?? ??? ????????? ??? ?? ???? ?? ??? ???? ???? ???????? ???? ?? ?????? ?? ??? ??? ???????? ????, ??? ?? Identity_ ???? ?? ??? ??? ?? ????? ??? ??? ?? ???? SQL Server ????? ????? ?? ??? ??????? ???

?????

1. Visual Studio .NET ??? ??????? ????, ?? ???? ??? ?? ??? Windows ????????? ?? Visual Basic ????????? ?????:
   1. ????? ???????????? ??,????? ????-????? ????, ?? ???? ????????????.
   2. ???????? ?????????????? ????? ???, ????? ????Visual Basic ??????????? ???????????????? ???????? ????-????? ????, ?? ???? ???Windows ??????????? ???????????????.
2. Windows ??? ?? ?? ??????? ?? ?? ??? ?????? ??????
3. ??? ????? ?? ????? ?? ????? ?????? ??????:

   Imports System.Data.SqlClient

4. ??? ?? ????? ??? ??????? ????? ?? ????? ????:

   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. SQL ????? ?? MSDE ??????? ?? ??????????? ???? ?? ??? ??????? ???????? ????????? ?????
   
6. ????????? ??????
   
7. ??? ????? ?????
   
   ???????? ??? ??? ?? ??????? ?? ????? ????? ?? ??? ??????? ????????? ???? ???? ???

?????? ??????

???? ?? ????????? ?? ????? ???? ?? ???? MSDE ?? ?? ????? ???? ????? ???? ??????????????? ?????? (DTS) SQL ????? ?? Microsoft Access ?? ??? ????????? ??????? ?? ???? ???? ?? ????

?????? ?????? ?? ??? ????? ??? ?? ??? ?? ?? ???? ??? ???????? ??????? ?? ??? ?????? ?? Microsoft ???????? ??? ????? ?? ??? ????? ???? ???????? ?? ????? ????:DTS ?? ????? ???? ???? ?? ???? ??? ???????? ??????? ?? ??? Microsoft ???????? ??? ???? ????? ?? ??? ????? ???? ?????? ?? ????? ????:SQL ????? ?? ???? Microsoft Access ??????? ??? ?????? ???? ?? ???? ??? ???????? ??????? ?? ??? Microsoft ???????? ??? ???? ????? ?? ??? ????? ???? ?????? ?? ????? ????:Visual Basic 6.0 ??? ??????? ?? ????? ?? ??????? ???? ?? ??? ???? ???? ?? ???? ??? ???????? ??????? ?? ??? Microsoft ???????? ??? ???? ????? ?? ??? ????? ???? ?????? ?? ????? ????: