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