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-EditDataBoundControls / Form1.vb < prev   
Text File  |  2001-08-23  |  31KB  |  332 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 Label1 As System.Windows.Forms.Label
  26.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  27.     Friend WithEvents Label2 As System.Windows.Forms.Label
  28.     Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
  29.     Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
  30.     Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
  31.     Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
  32.     Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
  33.     Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
  34.     Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
  35.     Friend WithEvents DsNorthwind1 As Ch9_EditDataBoundControls.DsNorthwind
  36.     Friend WithEvents BtnFirst As System.Windows.Forms.Button
  37.     Friend WithEvents BtnPrevious As System.Windows.Forms.Button
  38.     Friend WithEvents BtnNext As System.Windows.Forms.Button
  39.     Friend WithEvents BtnLast As System.Windows.Forms.Button
  40.     Friend WithEvents BtnUpdate As System.Windows.Forms.Button
  41.     Friend WithEvents BtnNew As System.Windows.Forms.Button
  42.  
  43.     'Required by the Windows Form Designer
  44.     Private components As System.ComponentModel.Container
  45.  
  46.     'NOTE: The following procedure is required by the Windows Form Designer
  47.     'It can be modified using the Windows Form Designer.  
  48.     'Do not modify it using the code editor.
  49.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  50.         Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
  51.         Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
  52.         Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
  53.         Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
  54.         Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
  55.         Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
  56.         Me.BtnLast = New System.Windows.Forms.Button()
  57.         Me.Label1 = New System.Windows.Forms.Label()
  58.         Me.BtnPrevious = New System.Windows.Forms.Button()
  59.         Me.BtnFirst = New System.Windows.Forms.Button()
  60.         Me.BtnNext = New System.Windows.Forms.Button()
  61.         Me.BtnUpdate = New System.Windows.Forms.Button()
  62.         Me.BtnNew = New System.Windows.Forms.Button()
  63.         Me.DsNorthwind1 = New Ch9_EditDataBoundControls.DsNorthwind()
  64.         Me.TextBox2 = New System.Windows.Forms.TextBox()
  65.         Me.Label2 = New System.Windows.Forms.Label()
  66.         Me.TextBox1 = New System.Windows.Forms.TextBox()
  67.         CType(Me.DsNorthwind1, System.ComponentModel.ISupportInitialize).BeginInit()
  68.         Me.SuspendLayout()
  69.         '
  70.         'SqlDataAdapter1
  71.         '
  72.         Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
  73.         Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
  74.         Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
  75.         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")})})
  76.         Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
  77.         '
  78.         'SqlDeleteCommand1
  79.         '
  80.         Me.SqlDeleteCommand1.CommandText = "DELETE FROM Customers WHERE (CustomerID = @CustomerID) AND (Address = @Address OR" & _
  81.         " @Address1 IS NULL AND Address IS NULL) AND (City = @City OR @City1 IS NULL AND " & _
  82.         "City IS NULL) AND (CompanyName = @CompanyName) AND (ContactName = @ContactName O" & _
  83.         "R @ContactName1 IS NULL AND ContactName IS NULL) AND (ContactTitle = @ContactTit" & _
  84.         "le OR @ContactTitle1 IS NULL AND ContactTitle IS NULL) AND (Country = @Country O" & _
  85.         "R @Country1 IS NULL AND Country IS NULL) AND (Fax = @Fax OR @Fax1 IS NULL AND Fa" & _
  86.         "x IS NULL) AND (Phone = @Phone OR @Phone1 IS NULL AND Phone IS NULL) AND (Postal" & _
  87.         "Code = @PostalCode OR @PostalCode1 IS NULL AND PostalCode IS NULL) AND (Region =" & _
  88.         " @Region OR @Region1 IS NULL AND Region IS NULL)"
  89.         Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
  90.         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))
  91.         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))
  92.         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))
  93.         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))
  94.         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))
  95.         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))
  96.         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))
  97.         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))
  98.         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))
  99.         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))
  100.         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))
  101.         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))
  102.         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))
  103.         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))
  104.         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))
  105.         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))
  106.         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))
  107.         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))
  108.         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))
  109.         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))
  110.         '
  111.         'SqlConnection1
  112.         '
  113.         Me.SqlConnection1.ConnectionString = "data source=VSNET-2;initial catalog=Northwind;integrated security=SSPI;persist se" & _
  114.         "curity info=False;workstation id=VSNET-2;packet size=4096"
  115.         '
  116.         'SqlInsertCommand1
  117.         '
  118.         Me.SqlInsertCommand1.CommandText = "INSERT INTO Customers(CustomerID, CompanyName, ContactName, ContactTitle, Address" & _
  119.         ", City, Region, PostalCode, Country, Phone, Fax) VALUES (@CustomerID, @CompanyNa" & _
  120.         "me, @ContactName, @ContactTitle, @Address, @City, @Region, @PostalCode, @Country" & _
  121.         ", @Phone, @Fax); SELECT CustomerID, CompanyName, ContactName, ContactTitle, Addr" & _
  122.         "ess, City, Region, PostalCode, Country, Phone, Fax FROM Customers WHERE (Custome" & _
  123.         "rID = @Select_CustomerID)"
  124.         Me.SqlInsertCommand1.Connection = Me.SqlConnection1
  125.         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))
  126.         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))
  127.         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))
  128.         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))
  129.         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))
  130.         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))
  131.         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))
  132.         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))
  133.         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))
  134.         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))
  135.         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))
  136.         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))
  137.         '
  138.         'SqlSelectCommand1
  139.         '
  140.         Me.SqlSelectCommand1.CommandText = "SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, City, Region," & _
  141.         " PostalCode, Country, Phone, Fax FROM Customers"
  142.         Me.SqlSelectCommand1.Connection = Me.SqlConnection1
  143.         '
  144.         'SqlUpdateCommand1
  145.         '
  146.         Me.SqlUpdateCommand1.CommandText = "UPDATE Customers SET CustomerID = @CustomerID, CompanyName = @CompanyName, Contac" & _
  147.         "tName = @ContactName, ContactTitle = @ContactTitle, Address = @Address, City = @" & _
  148.         "City, Region = @Region, PostalCode = @PostalCode, Country = @Country, Phone = @P" & _
  149.         "hone, Fax = @Fax WHERE (CustomerID = @Original_CustomerID) AND (Address = @Origi" & _
  150.         "nal_Address OR @Original_Address1 IS NULL AND Address IS NULL) AND (City = @Orig" & _
  151.         "inal_City OR @Original_City1 IS NULL AND City IS NULL) AND (CompanyName = @Origi" & _
  152.         "nal_CompanyName) AND (ContactName = @Original_ContactName OR @Original_ContactNa" & _
  153.         "me1 IS NULL AND ContactName IS NULL) AND (ContactTitle = @Original_ContactTitle " & _
  154.         "OR @Original_ContactTitle1 IS NULL AND ContactTitle IS NULL) AND (Country = @Ori" & _
  155.         "ginal_Country OR @Original_Country1 IS NULL AND Country IS NULL) AND (Fax = @Ori" & _
  156.         "ginal_Fax OR @Original_Fax1 IS NULL AND Fax IS NULL) AND (Phone = @Original_Phon" & _
  157.         "e OR @Original_Phone1 IS NULL AND Phone IS NULL) AND (PostalCode = @Original_Pos" & _
  158.         "talCode OR @Original_PostalCode1 IS NULL AND PostalCode IS NULL) AND (Region = @" & _
  159.         "Original_Region OR @Original_Region1 IS NULL AND Region IS NULL); SELECT Custome" & _
  160.         "rID, CompanyName, ContactName, ContactTitle, Address, City, Region, PostalCode, " & _
  161.         "Country, Phone, Fax FROM Customers WHERE (CustomerID = @Select_CustomerID)"
  162.         Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
  163.         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))
  164.         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))
  165.         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))
  166.         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))
  167.         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))
  168.         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))
  169.         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))
  170.         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))
  171.         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))
  172.         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))
  173.         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))
  174.         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))
  175.         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))
  176.         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))
  177.         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))
  178.         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))
  179.         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))
  180.         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))
  181.         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))
  182.         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))
  183.         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))
  184.         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))
  185.         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))
  186.         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))
  187.         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))
  188.         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))
  189.         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))
  190.         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))
  191.         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))
  192.         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))
  193.         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))
  194.         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))
  195.         '
  196.         'BtnLast
  197.         '
  198.         Me.BtnLast.Location = New System.Drawing.Point(216, 88)
  199.         Me.BtnLast.Name = "BtnLast"
  200.         Me.BtnLast.Size = New System.Drawing.Size(32, 32)
  201.         Me.BtnLast.TabIndex = 7
  202.         Me.BtnLast.Text = "> |"
  203.         '
  204.         'Label1
  205.         '
  206.         Me.Label1.Location = New System.Drawing.Point(16, 24)
  207.         Me.Label1.Name = "Label1"
  208.         Me.Label1.Size = New System.Drawing.Size(96, 16)
  209.         Me.Label1.TabIndex = 0
  210.         Me.Label1.Text = "Company Name:"
  211.         '
  212.         'BtnPrevious
  213.         '
  214.         Me.BtnPrevious.Location = New System.Drawing.Point(144, 88)
  215.         Me.BtnPrevious.Name = "BtnPrevious"
  216.         Me.BtnPrevious.Size = New System.Drawing.Size(32, 32)
  217.         Me.BtnPrevious.TabIndex = 5
  218.         Me.BtnPrevious.Text = "<"
  219.         '
  220.         'BtnFirst
  221.         '
  222.         Me.BtnFirst.Location = New System.Drawing.Point(112, 88)
  223.         Me.BtnFirst.Name = "BtnFirst"
  224.         Me.BtnFirst.Size = New System.Drawing.Size(32, 32)
  225.         Me.BtnFirst.TabIndex = 4
  226.         Me.BtnFirst.Text = "| <"
  227.         '
  228.         'BtnNext
  229.         '
  230.         Me.BtnNext.Location = New System.Drawing.Point(176, 88)
  231.         Me.BtnNext.Name = "BtnNext"
  232.         Me.BtnNext.Size = New System.Drawing.Size(32, 32)
  233.         Me.BtnNext.TabIndex = 6
  234.         Me.BtnNext.Text = ">"
  235.         '
  236.         'BtnUpdate
  237.         '
  238.         Me.BtnUpdate.Location = New System.Drawing.Point(104, 128)
  239.         Me.BtnUpdate.Name = "BtnUpdate"
  240.         Me.BtnUpdate.Size = New System.Drawing.Size(80, 40)
  241.         Me.BtnUpdate.TabIndex = 8
  242.         Me.BtnUpdate.Text = "Save Changes"
  243.         '
  244.         'BtnNew
  245.         '
  246.         Me.BtnNew.Location = New System.Drawing.Point(184, 128)
  247.         Me.BtnNew.Name = "BtnNew"
  248.         Me.BtnNew.Size = New System.Drawing.Size(72, 40)
  249.         Me.BtnNew.TabIndex = 9
  250.         Me.BtnNew.Text = "Add New Record"
  251.         '
  252.         'DsNorthwind1
  253.         '
  254.         Me.DsNorthwind1.DataSetName = "DsNorthwind"
  255.         Me.DsNorthwind1.Locale = New System.Globalization.CultureInfo("en-US")
  256.         Me.DsNorthwind1.Namespace = "http://www.tempuri.org/DsNorthwind.xsd"
  257.         '
  258.         'TextBox2
  259.         '
  260.         Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsNorthwind1, "Customers.ContactName"))
  261.         Me.TextBox2.Location = New System.Drawing.Point(112, 56)
  262.         Me.TextBox2.Name = "TextBox2"
  263.         Me.TextBox2.Size = New System.Drawing.Size(168, 20)
  264.         Me.TextBox2.TabIndex = 3
  265.         Me.TextBox2.Text = "TextBox2"
  266.         '
  267.         'Label2
  268.         '
  269.         Me.Label2.Location = New System.Drawing.Point(16, 56)
  270.         Me.Label2.Name = "Label2"
  271.         Me.Label2.Size = New System.Drawing.Size(80, 16)
  272.         Me.Label2.TabIndex = 2
  273.         Me.Label2.Text = "Contact Name:"
  274.         '
  275.         'TextBox1
  276.         '
  277.         Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsNorthwind1, "Customers.CompanyName"))
  278.         Me.TextBox1.Location = New System.Drawing.Point(112, 24)
  279.         Me.TextBox1.Name = "TextBox1"
  280.         Me.TextBox1.Size = New System.Drawing.Size(168, 20)
  281.         Me.TextBox1.TabIndex = 1
  282.         Me.TextBox1.Text = "TextBox1"
  283.         '
  284.         'Form1
  285.         '
  286.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  287.         Me.ClientSize = New System.Drawing.Size(292, 213)
  288.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnNew, Me.BtnUpdate, Me.BtnLast, Me.BtnNext, Me.BtnPrevious, Me.BtnFirst, Me.TextBox2, Me.Label2, Me.TextBox1, Me.Label1})
  289.         Me.Name = "Form1"
  290.         Me.Text = "Form1"
  291.         CType(Me.DsNorthwind1, System.ComponentModel.ISupportInitialize).EndInit()
  292.         Me.ResumeLayout(False)
  293.  
  294.     End Sub
  295.  
  296. #End Region
  297.  
  298.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  299.         SqlDataAdapter1.Fill(DsNorthwind1, "Customers")
  300.     End Sub
  301.  
  302.     Private Sub BtnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click
  303.         Me.BindingContext(DsNorthwind1, "Customers").Position = 0
  304.     End Sub
  305.  
  306.     Private Sub BtnPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnPrevious.Click
  307.         Me.BindingContext(DsNorthwind1, "Customers").Position -= 1
  308.     End Sub
  309.  
  310.     Private Sub BtnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnNext.Click
  311.         Me.BindingContext(DsNorthwind1, "Customers").Position += 1
  312.     End Sub
  313.  
  314.     Private Sub BtnLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLast.Click
  315.         Me.BindingContext(DsNorthwind1, "Customers").Position = _
  316.             DsNorthwind1.Customers.Count - 1
  317.     End Sub
  318.  
  319.     Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
  320.         SqlDataAdapter1.Update(DsNorthwind1)
  321.         DsNorthwind1.AcceptChanges()
  322.     End Sub
  323.  
  324.     Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
  325.         Dim row As DataRow = _
  326.             DsNorthwind1.Customers.NewCustomersRow()
  327.         row.Item("CustomerID") = "NEWROW"
  328.         row.Item("CompanyName") = "New Company"
  329.         DsNorthwind1.Customers.AddCustomersRow(row)
  330.     End Sub
  331. End Class
  332.