home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic .NET - Read Less - Learn More / Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso / Resources / Code / Ch9-MoveThroughDataSet / Form1.vb < prev   
Text File  |  2001-08-23  |  30KB  |  299 lines
  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  3.  
  4. #Region " Windows Form Designer generated code "
  5.  
  6.     Public Sub New()
  7.         MyBase.New()
  8.  
  9.         'This call is required by the Windows Form Designer.
  10.         InitializeComponent()
  11.  
  12.         'Add any initialization after the InitializeComponent() call
  13.  
  14.     End Sub
  15.  
  16.     'Form overrides dispose to clean up the component list.
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  25.     Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
  26.     Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
  27.     Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
  28.     Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
  29.     Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
  30.     Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
  31.     Friend WithEvents DsNorthwind1 As Ch9_MoveThroughDataSet.DsNorthwind
  32.     Friend WithEvents Label1 As System.Windows.Forms.Label
  33.     Friend WithEvents Label2 As System.Windows.Forms.Label
  34.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  35.     Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
  36.     Friend WithEvents BtnPrevious As System.Windows.Forms.Button
  37.     Friend WithEvents BtnNext As System.Windows.Forms.Button
  38.     Friend WithEvents BtnFirst As System.Windows.Forms.Button
  39.     Friend WithEvents BtnLast As System.Windows.Forms.Button
  40.                 
  41.     'Required by the Windows Form Designer
  42.     Private components As System.ComponentModel.Container
  43.  
  44.     'NOTE: The following procedure is required by the Windows Form Designer
  45.     'It can be modified using the Windows Form Designer.  
  46.     'Do not modify it using the code editor.
  47.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  48.         Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
  49.         Me.Label1 = New System.Windows.Forms.Label()
  50.         Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
  51.         Me.Label2 = New System.Windows.Forms.Label()
  52.         Me.BtnPrevious = New System.Windows.Forms.Button()
  53.         Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
  54.         Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
  55.         Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
  56.         Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
  57.         Me.BtnNext = New System.Windows.Forms.Button()
  58.         Me.BtnFirst = New System.Windows.Forms.Button()
  59.         Me.TextBox2 = New System.Windows.Forms.TextBox()
  60.         Me.DsNorthwind1 = New Ch9_MoveThroughDataSet.DsNorthwind()
  61.         Me.BtnLast = New System.Windows.Forms.Button()
  62.         Me.TextBox1 = New System.Windows.Forms.TextBox()
  63.         CType(Me.DsNorthwind1, System.ComponentModel.ISupportInitialize).BeginInit()
  64.         Me.SuspendLayout()
  65.         '
  66.         'SqlConnection1
  67.         '
  68.         Me.SqlConnection1.ConnectionString = "data source=VSNET-2;initial catalog=Northwind;integrated security=SSPI;persist se" & _
  69.         "curity info=False;workstation id=VSNET-2;packet size=4096"
  70.         '
  71.         'Label1
  72.         '
  73.         Me.Label1.Location = New System.Drawing.Point(8, 24)
  74.         Me.Label1.Name = "Label1"
  75.         Me.Label1.Size = New System.Drawing.Size(96, 16)
  76.         Me.Label1.TabIndex = 0
  77.         Me.Label1.Text = "Company Name:"
  78.         '
  79.         'SqlSelectCommand1
  80.         '
  81.         Me.SqlSelectCommand1.CommandText = "SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region," & _
  82.         " PostalCode, Country, Phone, Fax FROM Customers"
  83.         Me.SqlSelectCommand1.Connection = Me.SqlConnection1
  84.         '
  85.         'Label2
  86.         '
  87.         Me.Label2.Location = New System.Drawing.Point(8, 56)
  88.         Me.Label2.Name = "Label2"
  89.         Me.Label2.Size = New System.Drawing.Size(96, 16)
  90.         Me.Label2.TabIndex = 1
  91.         Me.Label2.Text = "Contact Name:"
  92.         '
  93.         'BtnPrevious
  94.         '
  95.         Me.BtnPrevious.Location = New System.Drawing.Point(144, 104)
  96.         Me.BtnPrevious.Name = "BtnPrevious"
  97.         Me.BtnPrevious.Size = New System.Drawing.Size(32, 32)
  98.         Me.BtnPrevious.TabIndex = 5
  99.         Me.BtnPrevious.Text = "<"
  100.         '
  101.         'SqlDeleteCommand1
  102.         '
  103.         Me.SqlDeleteCommand1.CommandText = "DELETE FROM Customers WHERE (CustomerID = @CustomerID) AND (Address = @Address OR" & _
  104.         " @Address1 IS NULL AND Address IS NULL) AND (City = @City OR @City1 IS NULL AND " & _
  105.         "City IS NULL) AND (CompanyName = @CompanyName) AND (ContactName = @ContactName O" & _
  106.         "R @ContactName1 IS NULL AND ContactName IS NULL) AND (ContactTitle = @ContactTit" & _
  107.         "le OR @ContactTitle1 IS NULL AND ContactTitle IS NULL) AND (Country = @Country O" & _
  108.         "R @Country1 IS NULL AND Country IS NULL) AND (Fax = @Fax OR @Fax1 IS NULL AND Fa" & _
  109.         "x IS NULL) AND (Phone = @Phone OR @Phone1 IS NULL AND Phone IS NULL) AND (Postal" & _
  110.         "Code = @PostalCode OR @PostalCode1 IS NULL AND PostalCode IS NULL) AND (Region =" & _
  111.         " @Region OR @Region1 IS NULL AND Region IS NULL)"
  112.         Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
  113.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", System.Data.SqlDbType.NChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
  114.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Address", System.Data.SqlDbType.NVarChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
  115.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Address1", System.Data.SqlDbType.NVarChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
  116.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@City", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
  117.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@City1", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
  118.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CompanyName", System.Data.SqlDbType.NVarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing))
  119.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactName", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
  120.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactName1", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
  121.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactTitle", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
  122.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactTitle1", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
  123.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Country", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
  124.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Country1", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
  125.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fax", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
  126.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fax1", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
  127.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Phone", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
  128.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Phone1", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
  129.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@PostalCode", System.Data.SqlDbType.NVarChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Original, Nothing))
  130.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@PostalCode1", System.Data.SqlDbType.NVarChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Original, Nothing))
  131.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Region", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
  132.         Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Region1", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
  133.         '
  134.         'SqlInsertCommand1
  135.         '
  136.         Me.SqlInsertCommand1.CommandText = "INSERT INTO Customers(CustomerID, CompanyName, ContactName, ContactTitle, Address" & _
  137.         ", City, Region, PostalCode, Country, Phone, Fax) VALUES (@CustomerID, @CompanyNa" & _
  138.         "me, @ContactName, @ContactTitle, @Address, @City, @Region, @PostalCode, @Country" & _
  139.         ", @Phone, @Fax); SELECT CustomerID, CompanyName, ContactName, ContactTitle, Addr" & _
  140.         "ess, City, Region, PostalCode, Country, Phone, Fax FROM Customers WHERE (Custome" & _
  141.         "rID = @Select_CustomerID)"
  142.         Me.SqlInsertCommand1.Connection = Me.SqlConnection1
  143.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", System.Data.SqlDbType.NChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustomerID", System.Data.DataRowVersion.Current, Nothing))
  144.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CompanyName", System.Data.SqlDbType.NVarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Current, Nothing))
  145.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactName", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Current, Nothing))
  146.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactTitle", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Current, Nothing))
  147.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Address", System.Data.SqlDbType.NVarChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Current, Nothing))
  148.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@City", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Current, Nothing))
  149.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Region", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Current, Nothing))
  150.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@PostalCode", System.Data.SqlDbType.NVarChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Current, Nothing))
  151.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Country", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Current, Nothing))
  152.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Phone", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Current, Nothing))
  153.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fax", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Current, Nothing))
  154.         Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Select_CustomerID", System.Data.SqlDbType.NChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustomerID", System.Data.DataRowVersion.Current, Nothing))
  155.         '
  156.         'SqlDataAdapter1
  157.         '
  158.         Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
  159.         Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
  160.         Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
  161.         Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Customers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("ContactName", "ContactName"), New System.Data.Common.DataColumnMapping("ContactTitle", "ContactTitle"), New System.Data.Common.DataColumnMapping("Address", "Address"), New System.Data.Common.DataColumnMapping("City", "City"), New System.Data.Common.DataColumnMapping("Region", "Region"), New System.Data.Common.DataColumnMapping("PostalCode", "PostalCode"), New System.Data.Common.DataColumnMapping("Country", "Country"), New System.Data.Common.DataColumnMapping("Phone", "Phone"), New System.Data.Common.DataColumnMapping("Fax", "Fax")})})
  162.         Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
  163.         '
  164.         'SqlUpdateCommand1
  165.         '
  166.         Me.SqlUpdateCommand1.CommandText = "UPDATE Customers SET CustomerID = @CustomerID, CompanyName = @CompanyName, Contac" & _
  167.         "tName = @ContactName, ContactTitle = @ContactTitle, Address = @Address, City = @" & _
  168.         "City, Region = @Region, PostalCode = @PostalCode, Country = @Country, Phone = @P" & _
  169.         "hone, Fax = @Fax WHERE (CustomerID = @Original_CustomerID) AND (Address = @Origi" & _
  170.         "nal_Address OR @Original_Address1 IS NULL AND Address IS NULL) AND (City = @Orig" & _
  171.         "inal_City OR @Original_City1 IS NULL AND City IS NULL) AND (CompanyName = @Origi" & _
  172.         "nal_CompanyName) AND (ContactName = @Original_ContactName OR @Original_ContactNa" & _
  173.         "me1 IS NULL AND ContactName IS NULL) AND (ContactTitle = @Original_ContactTitle " & _
  174.         "OR @Original_ContactTitle1 IS NULL AND ContactTitle IS NULL) AND (Country = @Ori" & _
  175.         "ginal_Country OR @Original_Country1 IS NULL AND Country IS NULL) AND (Fax = @Ori" & _
  176.         "ginal_Fax OR @Original_Fax1 IS NULL AND Fax IS NULL) AND (Phone = @Original_Phon" & _
  177.         "e OR @Original_Phone1 IS NULL AND Phone IS NULL) AND (PostalCode = @Original_Pos" & _
  178.         "talCode OR @Original_PostalCode1 IS NULL AND PostalCode IS NULL) AND (Region = @" & _
  179.         "Original_Region OR @Original_Region1 IS NULL AND Region IS NULL); SELECT Custome" & _
  180.         "rID, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, " & _
  181.         "Country, Phone, Fax FROM Customers WHERE (CustomerID = @Select_CustomerID)"
  182.         Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
  183.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", System.Data.SqlDbType.NChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustomerID", System.Data.DataRowVersion.Current, Nothing))
  184.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CompanyName", System.Data.SqlDbType.NVarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Current, Nothing))
  185.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactName", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Current, Nothing))
  186.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ContactTitle", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Current, Nothing))
  187.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Address", System.Data.SqlDbType.NVarChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Current, Nothing))
  188.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@City", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Current, Nothing))
  189.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Region", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Current, Nothing))
  190.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@PostalCode", System.Data.SqlDbType.NVarChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Current, Nothing))
  191.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Country", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Current, Nothing))
  192.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Phone", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Current, Nothing))
  193.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fax", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Current, Nothing))
  194.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CustomerID", System.Data.SqlDbType.NChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
  195.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Address", System.Data.SqlDbType.NVarChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
  196.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Address1", System.Data.SqlDbType.NVarChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
  197.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_City", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
  198.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_City1", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
  199.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_CompanyName", System.Data.SqlDbType.NVarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing))
  200.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ContactName", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
  201.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ContactName1", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
  202.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ContactTitle", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
  203.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ContactTitle1", System.Data.SqlDbType.NVarChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
  204.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Country", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
  205.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Country1", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
  206.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Fax", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
  207.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Fax1", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
  208.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Phone", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
  209.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Phone1", System.Data.SqlDbType.NVarChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
  210.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_PostalCode", System.Data.SqlDbType.NVarChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Original, Nothing))
  211.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_PostalCode1", System.Data.SqlDbType.NVarChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Original, Nothing))
  212.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Region", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
  213.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Region1", System.Data.SqlDbType.NVarChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
  214.         Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Select_CustomerID", System.Data.SqlDbType.NChar, 5, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CustomerID", System.Data.DataRowVersion.Current, Nothing))
  215.         '
  216.         'BtnNext
  217.         '
  218.         Me.BtnNext.Location = New System.Drawing.Point(184, 104)
  219.         Me.BtnNext.Name = "BtnNext"
  220.         Me.BtnNext.Size = New System.Drawing.Size(32, 32)
  221.         Me.BtnNext.TabIndex = 6
  222.         Me.BtnNext.Text = ">"
  223.         '
  224.         'BtnFirst
  225.         '
  226.         Me.BtnFirst.Location = New System.Drawing.Point(112, 104)
  227.         Me.BtnFirst.Name = "BtnFirst"
  228.         Me.BtnFirst.Size = New System.Drawing.Size(32, 32)
  229.         Me.BtnFirst.TabIndex = 4
  230.         Me.BtnFirst.Text = "| <"
  231.         '
  232.         'TextBox2
  233.         '
  234.         Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsNorthwind1, "Customers.ContactName"))
  235.         Me.TextBox2.Location = New System.Drawing.Point(104, 56)
  236.         Me.TextBox2.Name = "TextBox2"
  237.         Me.TextBox2.Size = New System.Drawing.Size(168, 20)
  238.         Me.TextBox2.TabIndex = 3
  239.         Me.TextBox2.Text = "TextBox2"
  240.         '
  241.         'DsNorthwind1
  242.         '
  243.         Me.DsNorthwind1.DataSetName = "DsNorthwind"
  244.         Me.DsNorthwind1.Locale = New System.Globalization.CultureInfo("en-US")
  245.         Me.DsNorthwind1.Namespace = "http://www.tempuri.org/DsNorthwind.xsd"
  246.         '
  247.         'BtnLast
  248.         '
  249.         Me.BtnLast.Location = New System.Drawing.Point(216, 104)
  250.         Me.BtnLast.Name = "BtnLast"
  251.         Me.BtnLast.Size = New System.Drawing.Size(32, 32)
  252.         Me.BtnLast.TabIndex = 7
  253.         Me.BtnLast.Text = "> |"
  254.         '
  255.         'TextBox1
  256.         '
  257.         Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsNorthwind1, "Customers.CompanyName"))
  258.         Me.TextBox1.Location = New System.Drawing.Point(104, 24)
  259.         Me.TextBox1.Name = "TextBox1"
  260.         Me.TextBox1.Size = New System.Drawing.Size(168, 20)
  261.         Me.TextBox1.TabIndex = 2
  262.         Me.TextBox1.Text = "TextBox1"
  263.         '
  264.         'Form1
  265.         '
  266.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  267.         Me.ClientSize = New System.Drawing.Size(292, 273)
  268.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnLast, Me.BtnNext, Me.BtnPrevious, Me.BtnFirst, Me.TextBox2, Me.TextBox1, Me.Label2, Me.Label1})
  269.         Me.Name = "Form1"
  270.         Me.Text = "Form1"
  271.         CType(Me.DsNorthwind1, System.ComponentModel.ISupportInitialize).EndInit()
  272.         Me.ResumeLayout(False)
  273.  
  274.     End Sub
  275.  
  276. #End Region
  277.  
  278.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  279.         SqlDataAdapter1.Fill(DsNorthwind1, "Customers")
  280.     End Sub
  281.  
  282.     Private Sub BtnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click
  283.         Me.BindingContext(DsNorthwind1, "Customers").Position = 0
  284.     End Sub
  285.  
  286.     Private Sub BtnPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnPrevious.Click
  287.         Me.BindingContext(DsNorthwind1, "Customers").Position -= 1
  288.     End Sub
  289.  
  290.     Private Sub BtnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnNext.Click
  291.         Me.BindingContext(DsNorthwind1, "Customers").Position += 1
  292.     End Sub
  293.  
  294.     Private Sub BtnLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLast.Click
  295.         Me.BindingContext(DsNorthwind1, "Customers").Position = _
  296.             DsNorthwind1.Customers.Count - 1
  297.     End Sub
  298. End Class
  299.