I using VB.NEt to connect to a Access Database. When I try
to add a record to the customer table. It gives me this
error.
An unhandled exception of
type 'System.Data.NoNullAllowedException' occurred in
system.data.dll
Additional information: Column 'WorkPhone' does not allow
nulls.
I verified how the data should be entered into the field
and made sure that I enter it that way onthe Vb form but I
still get the following error.
here is the code for my new customer form
Public Class frmCustomer
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form
Designer.
InitializeComponent()
'Add any initialization after the
InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal
disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the
Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents OleDbSelectCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents editWorkPhone As
System.Windows.Forms.TextBox
Friend WithEvents lblWorkPhone As
System.Windows.Forms.Label
Friend WithEvents lblAltPhone As
System.Windows.Forms.Label
Friend WithEvents editAltPhone As
System.Windows.Forms.TextBox
Friend WithEvents MenuItem1 As
System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As
System.Windows.Forms.MenuItem
Friend WithEvents daCustomer As
System.Data.OleDb.OleDbDataAdapter
Friend WithEvents conCustomer As
System.Data.OleDb.OleDbConnection
Friend WithEvents mnuCustomer As
System.Windows.Forms.MainMenu
Friend WithEvents dsCustomer As Concord.dsCustomer
Friend WithEvents LblCustomer As
System.Windows.Forms.Label
Friend WithEvents editCustomerNumber As
System.Windows.Forms.TextBox
Friend WithEvents editFirstName As
System.Windows.Forms.TextBox
Friend WithEvents lblFirstName As
System.Windows.Forms.Label
Friend WithEvents editLastName As
System.Windows.Forms.TextBox
Friend WithEvents lblLastname As
System.Windows.Forms.Label
Friend WithEvents TextBox12 As
System.Windows.Forms.TextBox
Friend WithEvents editAddress As
System.Windows.Forms.TextBox
Friend WithEvents lblAddress As
System.Windows.Forms.Label
Friend WithEvents editAddress1 As
System.Windows.Forms.TextBox
Friend WithEvents lblAddress1 As
System.Windows.Forms.Label
Friend WithEvents editCity As
System.Windows.Forms.TextBox
Friend WithEvents lblCity As System.Windows.Forms.Label
Friend WithEvents editStateOrProvince As
System.Windows.Forms.TextBox
Friend WithEvents lblStateOrProvince As
System.Windows.Forms.Label
Friend WithEvents editPostalCode As
System.Windows.Forms.TextBox
Friend WithEvents lblPostalCode As
System.Windows.Forms.Label
Friend WithEvents editCompanyName As
System.Windows.Forms.TextBox
Friend WithEvents lblCompanyName As
System.Windows.Forms.Label
Friend WithEvents editMobilePhone As
System.Windows.Forms.TextBox
Friend WithEvents lblMobilePhone As
System.Windows.Forms.Label
Friend WithEvents editBirthDate As
System.Windows.Forms.TextBox
Friend WithEvents lblBirthDate As
System.Windows.Forms.Label
Friend WithEvents lblNotes As
System.Windows.Forms.Label
Friend WithEvents editShppedVia As
System.Windows.Forms.TextBox
Friend WithEvents lblShppedVia As
System.Windows.Forms.Label
Friend WithEvents lblActive As
System.Windows.Forms.Label
Friend WithEvents cbActive As
System.Windows.Forms.CheckBox
Friend WithEvents TextBox1 As
System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.daCustomer = New
System.Data.OleDb.OleDbDataAdapter()
Me.OleDbDeleteCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.conCustomer = New
System.Data.OleDb.OleDbConnection()
Me.OleDbInsertCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.OleDbSelectCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.OleDbUpdateCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.dsCustomer = New Concord.dsCustomer()
Me.editWorkPhone = New System.Windows.Forms.TextBox
()
Me.lblWorkPhone = New System.Windows.Forms.Label()
Me.lblAltPhone = New System.Windows.Forms.Label()
Me.editAltPhone = New System.Windows.Forms.TextBox
()
Me.mnuCustomer = New System.Windows.Forms.MainMenu
()
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
Me.LblCustomer = New System.Windows.Forms.Label()
Me.editCustomerNumber = New
System.Windows.Forms.TextBox()
Me.editFirstName = New System.Windows.Forms.TextBox
()
Me.lblFirstName = New System.Windows.Forms.Label()
Me.editLastName = New System.Windows.Forms.TextBox
()
Me.lblLastname = New System.Windows.Forms.Label()
Me.editAddress = New System.Windows.Forms.TextBox()
Me.lblAddress = New System.Windows.Forms.Label()
Me.editAddress1 = New System.Windows.Forms.TextBox
()
Me.lblAddress1 = New System.Windows.Forms.Label()
Me.editCity = New System.Windows.Forms.TextBox()
Me.lblCity = New System.Windows.Forms.Label()
Me.editStateOrProvince = New
System.Windows.Forms.TextBox()
Me.lblStateOrProvince = New
System.Windows.Forms.Label()
Me.editPostalCode = New
System.Windows.Forms.TextBox()
Me.lblPostalCode = New System.Windows.Forms.Label()
Me.editCompanyName = New
System.Windows.Forms.TextBox()
Me.lblCompanyName = New System.Windows.Forms.Label
()
Me.editMobilePhone = New
System.Windows.Forms.TextBox()
Me.lblMobilePhone = New System.Windows.Forms.Label
()
Me.editBirthDate = New System.Windows.Forms.TextBox
()
Me.lblBirthDate = New System.Windows.Forms.Label()
Me.TextBox12 = New System.Windows.Forms.TextBox()
Me.lblNotes = New System.Windows.Forms.Label()
Me.editShppedVia = New System.Windows.Forms.TextBox
()
Me.lblShppedVia = New System.Windows.Forms.Label()
Me.lblActive = New System.Windows.Forms.Label()
Me.cbActive = New System.Windows.Forms.CheckBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
CType(Me.dsCustomer,
System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'daCustomer
'
Me.daCustomer.DeleteCommand =
Me.OleDbDeleteCommand1
Me.daCustomer.InsertCommand =
Me.OleDbInsertCommand1
Me.daCustomer.SelectCommand =
Me.OleDbSelectCommand1
Me.daCustomer.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "customers",
New System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping
("CustNum", "CustNum"), New
System.Data.Common.DataColumnMapping
("WorkPhone", "WorkPhone"), New
System.Data.Common.DataColumnMapping("Alt Phone", "Alt
Phone"), New System.Data.Common.DataColumnMapping
("FirstName", "FirstName"), New
System.Data.Common.DataColumnMapping
("LastName", "LastName"), New
System.Data.Common.DataColumnMapping
("Address", "Address"), New
System.Data.Common.DataColumnMapping
("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("City", "City"), New
System.Data.Common.DataColumnMapping
("StateOrProvince", "StateOrProvince"), New
System.Data.Common.DataColumnMapping
("PostalCode", "PostalCode"), New
System.Data.Common.DataColumnMapping
("CompanyName", "CompanyName"), New
System.Data.Common.DataColumnMapping
("MobilePhone", "MobilePhone"), New
System.Data.Common.DataColumnMapping
("Birthdate", "Birthdate"), New
System.Data.Common.DataColumnMapping
("EmailAddress", "EmailAddress"), New
System.Data.Common.DataColumnMapping("Notes", "Notes"),
New System.Data.Common.DataColumnMapping
("ShippedVia", "ShippedVia"), New
System.Data.Common.DataColumnMapping
("Active", "Active")})})
Me.daCustomer.UpdateCommand =
Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM
customers WHERE (WorkPhone = ?) AND (Active = ?) AND
(Address = ? OR " & _
"? IS NULL AND Address IS NULL) AND (Address1 = ?
OR ? IS NULL AND Address1 IS NU" & _
"LL) AND ([Alt Phone] = ? OR ? IS NULL AND [Alt
Phone] IS NULL) AND (Birthdate = " & _
"? OR ? IS NULL AND Birthdate IS NULL) AND (City
= ? OR ? IS NULL AND City IS NUL" & _
"L) AND (CompanyName = ?) AND (EmailAddress = ?
OR ? IS NULL AND EmailAddress IS " & _
"NULL) AND (FirstName = ? OR ? IS NULL AND
FirstName IS NULL) AND (LastName = ? O" & _
"R ? IS NULL AND LastName IS NULL) AND
(MobilePhone = ? OR ? IS NULL AND MobilePh" & _
"one IS NULL) AND (Notes = ? OR ? IS NULL AND
Notes IS NULL) AND (PostalCode = ? " & _
"OR ? IS NULL AND PostalCode IS NULL) AND
(ShippedVia = ? OR ? IS NULL AND Shippe" & _
"dVia IS NULL) AND (StateOrProvince = ? OR ? IS
NULL AND StateOrProvince IS NULL)" & _
""
Me.OleDbDeleteCommand1.Connection = Me.conCustomer
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_WorkPho ne",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "WorkPhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Active" ,
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Active",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address ",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 11",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 12",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company Name",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes1" ,
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
'
'conCustomer
'
Me.conCustomer.ConnectionString
= "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Us er
ID=Admin;Data Source=C:\Documen" & _
"ts and Settings\efletche.SAN.000
\Desktop\concord.mdb;Mode=Share Deny None;Extend" & _
"ed Properties="""";Jet OLEDB:System
database="""";Jet OLEDB:Registry Path="""";Jet OLE" & _
"DB:Database Password="""";Jet OLEDB:Engine
Type=5;Jet OLEDB:Database Locking Mode=" & _
"1;Jet OLEDB:Global Partial Bulk Ops=2;Jet
OLEDB:Global Bulk Transactions=1;Jet O" & _
"LEDB:New Database Password="""";Jet OLEDB:Create
System Database=False;Jet OLEDB:E" & _
"ncrypt Database=False;Jet OLEDB:Don't Copy Locale
on Compact=False;Jet OLEDB:Com" & _
"pact Without Replica Repair=False;Jet
OLEDB:SFP=False"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO
customers(Active, Address, Address1, [Alt Phone],
Birthdate, City, Co" & _
"mpanyName, EmailAddress, FirstName, LastName,
MobilePhone, Notes, PostalCode, Sh" & _
"ippedVia, StateOrProvince, WorkPhone) VALUES
(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
", ?, ?, ?, ?)"
Me.OleDbInsertCommand1.Connection = Me.conCustomer
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Active",
System.Data.OleDb.OleDbType.Boolean, 2, "Active"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address1"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Alt_Phone",
System.Data.OleDb.OleDbType.VarWChar, 30, "Alt Phone"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Birthdate",
System.Data.OleDb.OleDbType.DBDate, 0, "Birthdate"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarWChar, 50, "City"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EmailAddress",
System.Data.OleDb.OleDbType.VarWChar, 50, "EmailAddress"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 50, "FirstName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 50, "LastName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MobilePhone",
System.Data.OleDb.OleDbType.VarWChar, 30, "MobilePhone"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PostalCode",
System.Data.OleDb.OleDbType.VarWChar, 20, "PostalCode"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ShippedVia",
System.Data.OleDb.OleDbType.VarWChar, 50, "ShippedVia"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("StateOrProvince" ,
System.Data.OleDb.OleDbType.VarWChar,
20, "StateOrProvince"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("WorkPhone",
System.Data.OleDb.OleDbType.VarWChar, 10, "WorkPhone"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT
Active, Address, Address1, [Alt Phone], Birthdate, City,
CompanyName, Cust" & _
"Num, EmailAddress, FirstName, LastName,
MobilePhone, Notes, PostalCode, ShippedV" & _
"ia, StateOrProvince, WorkPhone FROM customers"
Me.OleDbSelectCommand1.Connection = Me.conCustomer
'
'OleDbUdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE
customers SET Active = ?, Address = ?, Address1 = ?, [Alt
Phone] = ?, Birt" & _
"hdate = ?, City = ?, CompanyName = ?,
EmailAddress = ?, FirstName = ?, LastName " & _
"= ?, MobilePhone = ?, Notes = ?, PostalCode = ?,
ShippedVia = ?, StateOrProvince" & _
" = ?, WorkPhone = ? WHERE (WorkPhone = ?) AND
(Active = ?) AND (Address = ? OR ?" & _
" IS NULL AND Address IS NULL) AND (Address1 = ?
OR ? IS NULL AND Address1 IS NUL" & _
"L) AND ([Alt Phone] = ? OR ? IS NULL AND [Alt
Phone] IS NULL) AND (Birthdate = ?" & _
" OR ? IS NULL AND Birthdate IS NULL) AND (City
= ? OR ? IS NULL AND City IS NULL" & _
") AND (CompanyName = ?) AND (EmailAddress = ?
OR ? IS NULL AND EmailAddress IS N" & _
"ULL) AND (FirstName = ? OR ? IS NULL AND
FirstName IS NULL) AND (LastName = ? OR" & _
" ? IS NULL AND LastName IS NULL) AND (MobilePhone
= ? OR ? IS NULL AND MobilePho" & _
"ne IS NULL) AND (Notes = ? OR ? IS NULL AND Notes
IS NULL) AND (PostalCode = ? O" & _
"R ? IS NULL AND PostalCode IS NULL) AND
(ShippedVia = ? OR ? IS NULL AND Shipped" & _
"Via IS NULL) AND (StateOrProvince = ? OR ? IS
NULL AND StateOrProvince IS NULL)"
Me.OleDbUpdateCommand1.Connection = Me.conCustomer
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Active",
System.Data.OleDb.OleDbType.Boolean, 2, "Active"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address1"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Alt_Phone",
System.Data.OleDb.OleDbType.VarWChar, 30, "Alt Phone"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Birthdate",
System.Data.OleDb.OleDbType.DBDate, 0, "Birthdate"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarWChar, 50, "City"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EmailAddress",
System.Data.OleDb.OleDbType.VarWChar, 50, "EmailAddress"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 50, "FirstName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 50, "LastName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MobilePhone",
System.Data.OleDb.OleDbType.VarWChar, 30, "MobilePhone"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PostalCode",
System.Data.OleDb.OleDbType.VarWChar, 20, "PostalCode"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ShippedVia",
System.Data.OleDb.OleDbType.VarWChar, 50, "ShippedVia"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("StateOrProvince" ,
System.Data.OleDb.OleDbType.VarWChar,
20, "StateOrProvince"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("WorkPhone",
System.Data.OleDb.OleDbType.VarWChar, 10, "WorkPhone"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_WorkPho ne",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "WorkPhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Active" ,
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Active",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address ",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 11",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 12",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company Name",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes1" ,
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
'
'dsCustomer
'
Me.dsCustomer.DataSetName = "dsCustomer"
Me.dsCustomer.Locale = New
System.Globalization.CultureInfo("en-US")
Me.dsCustomer.Namespace
= "http://tempuri.org/dsCustomer.xsd"
'
'editWorkPhone
'
Me.editWorkPhone.DataBindings.Add(New
System.Windows.Forms.Binding("Text",
Me.dsCustomer, "customers.WorkPhone"))
Me.editWorkPhone.Location = New
System.Drawing.Point(112, 16)
Me.editWorkPhone.Name = "editWorkPhone"
Me.editWorkPhone.TabIndex = 0
Me.editWorkPhone.Text = ""
'
'lblWorkPhone
'
Me.lblWorkPhone.Location = New System.Drawing.Point
(8, 16)
Me.lblWorkPhone.Name = "lblWorkPhone"
Me.lblWorkPhone.TabIndex = 1
Me.lblWorkPhone.Text = "Work Phone"
'
'lblAltPhone
'
Me.lblAltPhone.Location = New System.Drawing.Point
(8, 56)
Me.lblAltPhone.Name = "lblAltPhone"
Me.lblAltPhone.TabIndex = 3
Me.lblAltPhone.Text = "Alt Phone"
'
'editAltPhone
'
Me.editAltPhone.Location = New System.Drawing.Point
(120, 56)
Me.editAltPhone.Name = "editAltPhone"
Me.editAltPhone.TabIndex = 2
Me.editAltPhone.Text = ""
'
'mnuCustomer
'
Me.mnuCustomer.MenuItems.AddRange(New
System.Windows.Forms.MenuItem() {Me.MenuItem1})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New
System.Windows.Forms.MenuItem() {Me.MenuItem2})
Me.MenuItem1.Text = "Action"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Add New Customer"
'
'LblCustomer
'
Me.LblCustomer.Location = New System.Drawing.Point
(16, 88)
Me.LblCustomer.Name = "LblCustomer"
Me.LblCustomer.TabIndex = 4
Me.LblCustomer.Text = "Customer Number"
'
'editCustomerNumber
'
Me.editCustomerNumber.Location = New
System.Drawing.Point(128, 88)
Me.editCustomerNumber.Name = "editCustomerNumber"
Me.editCustomerNumber.TabIndex = 5
Me.editCustomerNumber.Text = ""
'
'editFirstName
'
Me.editFirstName.Location = New
System.Drawing.Point(120, 128)
Me.editFirstName.Name = "editFirstName"
Me.editFirstName.TabIndex = 7
Me.editFirstName.Text = ""
'
'lblFirstName
'
Me.lblFirstName.Location = New System.Drawing.Point
(8, 128)
Me.lblFirstName.Name = "lblFirstName"
Me.lblFirstName.TabIndex = 6
Me.lblFirstName.Text = "First Name"
'
'editLastName
'
Me.editLastName.Location = New System.Drawing.Point
(120, 160)
Me.editLastName.Name = "editLastName"
Me.editLastName.TabIndex = 9
Me.editLastName.Text = ""
'
'lblLastname
'
Me.lblLastname.Location = New System.Drawing.Point
(8, 160)
Me.lblLastname.Name = "lblLastname"
Me.lblLastname.TabIndex = 8
Me.lblLastname.Text = "Last NAme"
'
'editAddress
'
Me.editAddress.Location = New System.Drawing.Point
(120, 208)
Me.editAddress.Name = "editAddress"
Me.editAddress.TabIndex = 11
Me.editAddress.Text = ""
'
'lblAddress
'
Me.lblAddress.Location = New System.Drawing.Point
(8, 208)
Me.lblAddress.Name = "lblAddress"
Me.lblAddress.TabIndex = 10
Me.lblAddress.Text = "Address"
'
'editAddress1
'
Me.editAddress1.Location = New System.Drawing.Point
(128, 256)
Me.editAddress1.Name = "editAddress1"
Me.editAddress1.TabIndex = 13
Me.editAddress1.Text = ""
'
'lblAddress1
'
Me.lblAddress1.Location = New System.Drawing.Point
(16, 256)
Me.lblAddress1.Name = "lblAddress1"
Me.lblAddress1.TabIndex = 12
Me.lblAddress1.Text = "Suite/Apt #"
'
'editCity
'
Me.editCity.Location = New System.Drawing.Point
(408, 16)
Me.editCity.Name = "editCity"
Me.editCity.TabIndex = 15
Me.editCity.Text = ""
'
'lblCity
'
Me.lblCity.Location = New System.Drawing.Point
(296, 16)
Me.lblCity.Name = "lblCity"
Me.lblCity.TabIndex = 14
Me.lblCity.Text = "City"
'
'editStateOrProvince
'
Me.editStateOrProvince.Location = New
System.Drawing.Point(400, 48)
Me.editStateOrProvince.Name = "editStateOrProvince"
Me.editStateOrProvince.TabIndex = 17
Me.editStateOrProvince.Text = ""
'
'lblStateOrProvince
'
Me.lblStateOrProvince.Location = New
System.Drawing.Point(288, 48)
Me.lblStateOrProvince.Name = "lblStateOrProvince"
Me.lblStateOrProvince.TabIndex = 16
Me.lblStateOrProvince.Text = "State/Province"
'
'editPostalCode
'
Me.editPostalCode.Location = New
System.Drawing.Point(400, 80)
Me.editPostalCode.Name = "editPostalCode"
Me.editPostalCode.TabIndex = 19
Me.editPostalCode.Text = ""
'
'lblPostalCode
'
Me.lblPostalCode.Location = New
System.Drawing.Point(288, 80)
Me.lblPostalCode.Name = "lblPostalCode"
Me.lblPostalCode.TabIndex = 18
Me.lblPostalCode.Text = "Postal Code"
'
'editCompanyName
'
Me.editCompanyName.Location = New
System.Drawing.Point(400, 120)
Me.editCompanyName.Name = "editCompanyName"
Me.editCompanyName.TabIndex = 21
Me.editCompanyName.Text = ""
'
'lblCompanyName
'
Me.lblCompanyName.Location = New
System.Drawing.Point(288, 120)
Me.lblCompanyName.Name = "lblCompanyName"
Me.lblCompanyName.TabIndex = 20
Me.lblCompanyName.Text = "Company Name"
'
'editMobilePhone
'
Me.editMobilePhone.Location = New
System.Drawing.Point(416, 160)
Me.editMobilePhone.Name = "editMobilePhone"
Me.editMobilePhone.TabIndex = 23
Me.editMobilePhone.Text = ""
'
'lblMobilePhone
'
Me.lblMobilePhone.Location = New
System.Drawing.Point(304, 160)
Me.lblMobilePhone.Name = "lblMobilePhone"
Me.lblMobilePhone.TabIndex = 22
Me.lblMobilePhone.Text = "Mobile Phone"
'
'editBirthDate
'
Me.editBirthDate.Location = New
System.Drawing.Point(440, 208)
Me.editBirthDate.Name = "editBirthDate"
Me.editBirthDate.TabIndex = 25
Me.editBirthDate.Text = ""
'
'lblBirthDate
'
Me.lblBirthDate.Location = New System.Drawing.Point
(328, 208)
Me.lblBirthDate.Name = "lblBirthDate"
Me.lblBirthDate.TabIndex = 24
Me.lblBirthDate.Text = "Birth Date"
'
'TextBox12
'
Me.TextBox12.Location = New System.Drawing.Point
(168, 320)
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Size = New System.Drawing.Size(160,
20)
Me.TextBox12.TabIndex = 27
Me.TextBox12.Text = ""
'
'lblNotes
'
Me.lblNotes.Location = New System.Drawing.Point
(48, 288)
Me.lblNotes.Name = "lblNotes"
Me.lblNotes.TabIndex = 26
Me.lblNotes.Text = "Notes"
'
'editShppedVia
'
Me.editShppedVia.Location = New
System.Drawing.Point(448, 272)
Me.editShppedVia.Name = "editShppedVia"
Me.editShppedVia.TabIndex = 29
Me.editShppedVia.Text = ""
'
'lblShppedVia
'
Me.lblShppedVia.Location = New System.Drawing.Point
(336, 272)
Me.lblShppedVia.Name = "lblShppedVia"
Me.lblShppedVia.TabIndex = 28
Me.lblShppedVia.Text = "Shpped Via"
'
'lblActive
'
Me.lblActive.Location = New System.Drawing.Point
(544, 408)
Me.lblActive.Name = "lblActive"
Me.lblActive.TabIndex = 30
Me.lblActive.Text = "Active"
'
'cbActive
'
Me.cbActive.DataBindings.Add(New
System.Windows.Forms.Binding("Checked",
Me.dsCustomer, "customers.Active"))
Me.cbActive.Location = New System.Drawing.Point
(672, 408)
Me.cbActive.Name = "cbActive"
Me.cbActive.Size = New System.Drawing.Size(16, 24)
Me.cbActive.TabIndex = 31
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point
(264, 376)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 32
Me.TextBox1.Text = "TextBox1"
'
'frmCustomer
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5,
13)
Me.ClientSize = New System.Drawing.Size(704, 453)
Me.Controls.AddRange(New
System.Windows.Forms.Control() {Me.TextBox1, Me.cbActive,
Me.lblActive, Me.editShppedVia, Me.lblShppedVia,
Me.TextBox12, Me.lblNotes, Me.editBirthDate,
Me.lblBirthDate, Me.editMobilePhone, Me.lblMobilePhone,
Me.editCompanyName, Me.lblCompanyName, Me.editPostalCode,
Me.lblPostalCode, Me.editStateOrProvince,
Me.lblStateOrProvince, Me.editCity, Me.lblCity,
Me.editAddress1, Me.lblAddress1, Me.editAddress,
Me.lblAddress, Me.editLastName, Me.lblLastname,
Me.editFirstName, Me.lblFirstName, Me.editCustomerNumber,
Me.LblCustomer, Me.lblAltPhone, Me.editAltPhone,
Me.lblWorkPhone, Me.editWorkPhone})
Me.Menu = Me.mnuCustomer
Me.Name = "frmCustomer"
Me.Text = "frmCustomer"
CType(Me.dsCustomer,
System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)
End Sub
#End Region
Private WithEvents m_CurrencyManager As CurrencyManager
Private Sub frmCustomer_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
m_CurrencyManager = Me.BindingContext
(dsCustomer, "Customers")
End Sub
Private Sub MenuItem2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MenuItem2.Click
m_CurrencyManager.AddNew()
End Sub
End Class
4  2670 
First of all you should post this in the ADO.NET ng I think.
But apparently the field for WorkPhone is null when its content are being
written to the database.
In my opinion, (this is debated by many people much smarter than me) you
should never allow a database field to be null when entered. You are asking
for trouble down the road.
Please post the code that you are using.
"Solva" <So******@yahoo.com> wrote in message
news:02****************************@phx.gbl... I using VB.NEt to connect to a Access Database. When I try
to add a record to the customer table. It gives me this
error.
An unhandled exception of
type 'System.Data.NoNullAllowedException' occurred in
system.data.dll
Additional information: Column 'WorkPhone' does not allow
nulls.
I verified how the data should be entered into the field
and made sure that I enter it that way onthe Vb form but I
still get the following error.
here is the code for my new customer form
Public Class frmCustomer
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form
Designer.
InitializeComponent()
'Add any initialization after the
InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal
disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the
Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents OleDbSelectCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand1 As
System.Data.OleDb.OleDbCommand
Friend WithEvents editWorkPhone As
System.Windows.Forms.TextBox
Friend WithEvents lblWorkPhone As
System.Windows.Forms.Label
Friend WithEvents lblAltPhone As
System.Windows.Forms.Label
Friend WithEvents editAltPhone As
System.Windows.Forms.TextBox
Friend WithEvents MenuItem1 As
System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As
System.Windows.Forms.MenuItem
Friend WithEvents daCustomer As
System.Data.OleDb.OleDbDataAdapter
Friend WithEvents conCustomer As
System.Data.OleDb.OleDbConnection
Friend WithEvents mnuCustomer As
System.Windows.Forms.MainMenu
Friend WithEvents dsCustomer As Concord.dsCustomer
Friend WithEvents LblCustomer As
System.Windows.Forms.Label
Friend WithEvents editCustomerNumber As
System.Windows.Forms.TextBox
Friend WithEvents editFirstName As
System.Windows.Forms.TextBox
Friend WithEvents lblFirstName As
System.Windows.Forms.Label
Friend WithEvents editLastName As
System.Windows.Forms.TextBox
Friend WithEvents lblLastname As
System.Windows.Forms.Label
Friend WithEvents TextBox12 As
System.Windows.Forms.TextBox
Friend WithEvents editAddress As
System.Windows.Forms.TextBox
Friend WithEvents lblAddress As
System.Windows.Forms.Label
Friend WithEvents editAddress1 As
System.Windows.Forms.TextBox
Friend WithEvents lblAddress1 As
System.Windows.Forms.Label
Friend WithEvents editCity As
System.Windows.Forms.TextBox
Friend WithEvents lblCity As System.Windows.Forms.Label
Friend WithEvents editStateOrProvince As
System.Windows.Forms.TextBox
Friend WithEvents lblStateOrProvince As
System.Windows.Forms.Label
Friend WithEvents editPostalCode As
System.Windows.Forms.TextBox
Friend WithEvents lblPostalCode As
System.Windows.Forms.Label
Friend WithEvents editCompanyName As
System.Windows.Forms.TextBox
Friend WithEvents lblCompanyName As
System.Windows.Forms.Label
Friend WithEvents editMobilePhone As
System.Windows.Forms.TextBox
Friend WithEvents lblMobilePhone As
System.Windows.Forms.Label
Friend WithEvents editBirthDate As
System.Windows.Forms.TextBox
Friend WithEvents lblBirthDate As
System.Windows.Forms.Label
Friend WithEvents lblNotes As
System.Windows.Forms.Label
Friend WithEvents editShppedVia As
System.Windows.Forms.TextBox
Friend WithEvents lblShppedVia As
System.Windows.Forms.Label
Friend WithEvents lblActive As
System.Windows.Forms.Label
Friend WithEvents cbActive As
System.Windows.Forms.CheckBox
Friend WithEvents TextBox1 As
System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.daCustomer = New
System.Data.OleDb.OleDbDataAdapter()
Me.OleDbDeleteCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.conCustomer = New
System.Data.OleDb.OleDbConnection()
Me.OleDbInsertCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.OleDbSelectCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.OleDbUpdateCommand1 = New
System.Data.OleDb.OleDbCommand()
Me.dsCustomer = New Concord.dsCustomer()
Me.editWorkPhone = New System.Windows.Forms.TextBox
()
Me.lblWorkPhone = New System.Windows.Forms.Label()
Me.lblAltPhone = New System.Windows.Forms.Label()
Me.editAltPhone = New System.Windows.Forms.TextBox
()
Me.mnuCustomer = New System.Windows.Forms.MainMenu
()
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
Me.LblCustomer = New System.Windows.Forms.Label()
Me.editCustomerNumber = New
System.Windows.Forms.TextBox()
Me.editFirstName = New System.Windows.Forms.TextBox
()
Me.lblFirstName = New System.Windows.Forms.Label()
Me.editLastName = New System.Windows.Forms.TextBox
()
Me.lblLastname = New System.Windows.Forms.Label()
Me.editAddress = New System.Windows.Forms.TextBox()
Me.lblAddress = New System.Windows.Forms.Label()
Me.editAddress1 = New System.Windows.Forms.TextBox
()
Me.lblAddress1 = New System.Windows.Forms.Label()
Me.editCity = New System.Windows.Forms.TextBox()
Me.lblCity = New System.Windows.Forms.Label()
Me.editStateOrProvince = New
System.Windows.Forms.TextBox()
Me.lblStateOrProvince = New
System.Windows.Forms.Label()
Me.editPostalCode = New
System.Windows.Forms.TextBox()
Me.lblPostalCode = New System.Windows.Forms.Label()
Me.editCompanyName = New
System.Windows.Forms.TextBox()
Me.lblCompanyName = New System.Windows.Forms.Label
()
Me.editMobilePhone = New
System.Windows.Forms.TextBox()
Me.lblMobilePhone = New System.Windows.Forms.Label
()
Me.editBirthDate = New System.Windows.Forms.TextBox
()
Me.lblBirthDate = New System.Windows.Forms.Label()
Me.TextBox12 = New System.Windows.Forms.TextBox()
Me.lblNotes = New System.Windows.Forms.Label()
Me.editShppedVia = New System.Windows.Forms.TextBox
()
Me.lblShppedVia = New System.Windows.Forms.Label()
Me.lblActive = New System.Windows.Forms.Label()
Me.cbActive = New System.Windows.Forms.CheckBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
CType(Me.dsCustomer,
System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'daCustomer
'
Me.daCustomer.DeleteCommand =
Me.OleDbDeleteCommand1
Me.daCustomer.InsertCommand =
Me.OleDbInsertCommand1
Me.daCustomer.SelectCommand =
Me.OleDbSelectCommand1
Me.daCustomer.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "customers",
New System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping
("CustNum", "CustNum"), New
System.Data.Common.DataColumnMapping
("WorkPhone", "WorkPhone"), New
System.Data.Common.DataColumnMapping("Alt Phone", "Alt
Phone"), New System.Data.Common.DataColumnMapping
("FirstName", "FirstName"), New
System.Data.Common.DataColumnMapping
("LastName", "LastName"), New
System.Data.Common.DataColumnMapping
("Address", "Address"), New
System.Data.Common.DataColumnMapping
("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("City", "City"), New
System.Data.Common.DataColumnMapping
("StateOrProvince", "StateOrProvince"), New
System.Data.Common.DataColumnMapping
("PostalCode", "PostalCode"), New
System.Data.Common.DataColumnMapping
("CompanyName", "CompanyName"), New
System.Data.Common.DataColumnMapping
("MobilePhone", "MobilePhone"), New
System.Data.Common.DataColumnMapping
("Birthdate", "Birthdate"), New
System.Data.Common.DataColumnMapping
("EmailAddress", "EmailAddress"), New
System.Data.Common.DataColumnMapping("Notes", "Notes"),
New System.Data.Common.DataColumnMapping
("ShippedVia", "ShippedVia"), New
System.Data.Common.DataColumnMapping
("Active", "Active")})})
Me.daCustomer.UpdateCommand =
Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM
customers WHERE (WorkPhone = ?) AND (Active = ?) AND
(Address = ? OR " & _
"? IS NULL AND Address IS NULL) AND (Address1 = ?
OR ? IS NULL AND Address1 IS NU" & _
"LL) AND ([Alt Phone] = ? OR ? IS NULL AND [Alt
Phone] IS NULL) AND (Birthdate = " & _
"? OR ? IS NULL AND Birthdate IS NULL) AND (City
= ? OR ? IS NULL AND City IS NUL" & _
"L) AND (CompanyName = ?) AND (EmailAddress = ?
OR ? IS NULL AND EmailAddress IS " & _
"NULL) AND (FirstName = ? OR ? IS NULL AND
FirstName IS NULL) AND (LastName = ? O" & _
"R ? IS NULL AND LastName IS NULL) AND
(MobilePhone = ? OR ? IS NULL AND MobilePh" & _
"one IS NULL) AND (Notes = ? OR ? IS NULL AND
Notes IS NULL) AND (PostalCode = ? " & _
"OR ? IS NULL AND PostalCode IS NULL) AND
(ShippedVia = ? OR ? IS NULL AND Shippe" & _
"dVia IS NULL) AND (StateOrProvince = ? OR ? IS
NULL AND StateOrProvince IS NULL)" & _
""
Me.OleDbDeleteCommand1.Connection = Me.conCustomer
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_WorkPho ne",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "WorkPhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Active" ,
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Active",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address ",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 11",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 12",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company Name",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes1" ,
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
'
'conCustomer
'
Me.conCustomer.ConnectionString
= "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Us er
ID=Admin;Data Source=C:\Documen" & _
"ts and Settings\efletche.SAN.000
\Desktop\concord.mdb;Mode=Share Deny None;Extend" & _
"ed Properties="""";Jet OLEDB:System
database="""";Jet OLEDB:Registry Path="""";Jet OLE" & _
"DB:Database Password="""";Jet OLEDB:Engine
Type=5;Jet OLEDB:Database Locking Mode=" & _
"1;Jet OLEDB:Global Partial Bulk Ops=2;Jet
OLEDB:Global Bulk Transactions=1;Jet O" & _
"LEDB:New Database Password="""";Jet OLEDB:Create
System Database=False;Jet OLEDB:E" & _
"ncrypt Database=False;Jet OLEDB:Don't Copy Locale
on Compact=False;Jet OLEDB:Com" & _
"pact Without Replica Repair=False;Jet
OLEDB:SFP=False"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO
customers(Active, Address, Address1, [Alt Phone],
Birthdate, City, Co" & _
"mpanyName, EmailAddress, FirstName, LastName,
MobilePhone, Notes, PostalCode, Sh" & _
"ippedVia, StateOrProvince, WorkPhone) VALUES
(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
", ?, ?, ?, ?)"
Me.OleDbInsertCommand1.Connection = Me.conCustomer
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Active",
System.Data.OleDb.OleDbType.Boolean, 2, "Active"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address1"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Alt_Phone",
System.Data.OleDb.OleDbType.VarWChar, 30, "Alt Phone"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Birthdate",
System.Data.OleDb.OleDbType.DBDate, 0, "Birthdate"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarWChar, 50, "City"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EmailAddress",
System.Data.OleDb.OleDbType.VarWChar, 50, "EmailAddress"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 50, "FirstName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 50, "LastName"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MobilePhone",
System.Data.OleDb.OleDbType.VarWChar, 30, "MobilePhone"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PostalCode",
System.Data.OleDb.OleDbType.VarWChar, 20, "PostalCode"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ShippedVia",
System.Data.OleDb.OleDbType.VarWChar, 50, "ShippedVia"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("StateOrProvince" ,
System.Data.OleDb.OleDbType.VarWChar,
20, "StateOrProvince"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("WorkPhone",
System.Data.OleDb.OleDbType.VarWChar, 10, "WorkPhone"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT
Active, Address, Address1, [Alt Phone], Birthdate, City,
CompanyName, Cust" & _
"Num, EmailAddress, FirstName, LastName,
MobilePhone, Notes, PostalCode, ShippedV" _
"ia, StateOrProvince, WorkPhone FROM customers"
Me.OleDbSelectCommand1.Connection = Me.conCustomer
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE
customers SET Active = ?, Address = ?, Address1 = ?, [Alt
Phone] = ?, Birt" & _
"hdate = ?, City = ?, CompanyName = ?,
EmailAddress = ?, FirstName = ?, LastName " & _
"= ?, MobilePhone = ?, Notes = ?, PostalCode = ?,
ShippedVia = ?, StateOrProvince" & _
" = ?, WorkPhone = ? WHERE (WorkPhone = ?) AND
(Active = ?) AND (Address = ? OR ?" & _
" IS NULL AND Address IS NULL) AND (Address1 = ?
OR ? IS NULL AND Address1 IS NUL" & _
"L) AND ([Alt Phone] = ? OR ? IS NULL AND [Alt
Phone] IS NULL) AND (Birthdate = ?" & _
" OR ? IS NULL AND Birthdate IS NULL) AND (City
= ? OR ? IS NULL AND City IS NULL" & _
") AND (CompanyName = ?) AND (EmailAddress = ?
OR ? IS NULL AND EmailAddress IS N" & _
"ULL) AND (FirstName = ? OR ? IS NULL AND
FirstName IS NULL) AND (LastName = ? OR" & _
" ? IS NULL AND LastName IS NULL) AND (MobilePhone
= ? OR ? IS NULL AND MobilePho" & _
"ne IS NULL) AND (Notes = ? OR ? IS NULL AND Notes
IS NULL) AND (PostalCode = ? O" & _
"R ? IS NULL AND PostalCode IS NULL) AND
(ShippedVia = ? OR ? IS NULL AND Shipped" & _
"Via IS NULL) AND (StateOrProvince = ? OR ? IS
NULL AND StateOrProvince IS NULL)"
Me.OleDbUpdateCommand1.Connection = Me.conCustomer
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Active",
System.Data.OleDb.OleDbType.Boolean, 2, "Active"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address1"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Alt_Phone",
System.Data.OleDb.OleDbType.VarWChar, 30, "Alt Phone"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Birthdate",
System.Data.OleDb.OleDbType.DBDate, 0, "Birthdate"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarWChar, 50, "City"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CompanyName",
System.Data.OleDb.OleDbType.VarWChar, 50, "CompanyName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EmailAddress",
System.Data.OleDb.OleDbType.VarWChar, 50, "EmailAddress"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 50, "FirstName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 50, "LastName"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MobilePhone",
System.Data.OleDb.OleDbType.VarWChar, 30, "MobilePhone"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PostalCode",
System.Data.OleDb.OleDbType.VarWChar, 20, "PostalCode"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ShippedVia",
System.Data.OleDb.OleDbType.VarWChar, 50, "ShippedVia"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("StateOrProvince" ,
System.Data.OleDb.OleDbType.VarWChar,
20, "StateOrProvince"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("WorkPhone",
System.Data.OleDb.OleDbType.VarWChar, 10, "WorkPhone"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_WorkPho ne",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "WorkPhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Active" ,
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Active",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address ",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 11",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 12",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Address1",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Alt_Pho ne1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Alt Phone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Birthda te1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Birthdate",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "City",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company Name",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "CompanyName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EmailAd dress1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "EmailAddress",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "FirstName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "LastName",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MobileP hone1",
System.Data.OleDb.OleDbType.VarWChar, 30,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "MobilePhone",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Notes1" ,
System.Data.OleDb.OleDbType.VarWChar, 0,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "Notes",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PostalC ode1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "PostalCode",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shipped Via1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "ShippedVia",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter
("Original_StateOrProvince1",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0,
Byte), CType(0, Byte), "StateOrProvince",
System.Data.DataRowVersion.Original, Nothing))
'
'dsCustomer
'
Me.dsCustomer.DataSetName = "dsCustomer"
Me.dsCustomer.Locale = New
System.Globalization.CultureInfo("en-US")
Me.dsCustomer.Namespace
= "http://tempuri.org/dsCustomer.xsd"
'
'editWorkPhone
'
Me.editWorkPhone.DataBindings.Add(New
System.Windows.Forms.Binding("Text",
Me.dsCustomer, "customers.WorkPhone"))
Me.editWorkPhone.Location = New
System.Drawing.Point(112, 16)
Me.editWorkPhone.Name = "editWorkPhone"
Me.editWorkPhone.TabIndex = 0
Me.editWorkPhone.Text = ""
'
'lblWorkPhone
'
Me.lblWorkPhone.Location = New System.Drawing.Point
(8, 16)
Me.lblWorkPhone.Name = "lblWorkPhone"
Me.lblWorkPhone.TabIndex = 1
Me.lblWorkPhone.Text = "Work Phone"
'
'lblAltPhone
'
Me.lblAltPhone.Location = New System.Drawing.Point
(8, 56)
Me.lblAltPhone.Name = "lblAltPhone"
Me.lblAltPhone.TabIndex = 3
Me.lblAltPhone.Text = "Alt Phone"
'
'editAltPhone
'
Me.editAltPhone.Location = New System.Drawing.Point
(120, 56)
Me.editAltPhone.Name = "editAltPhone"
Me.editAltPhone.TabIndex = 2
Me.editAltPhone.Text = ""
'
'mnuCustomer
'
Me.mnuCustomer.MenuItems.AddRange(New
System.Windows.Forms.MenuItem() {Me.MenuItem1})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New
System.Windows.Forms.MenuItem() {Me.MenuItem2})
Me.MenuItem1.Text = "Action"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Add New Customer"
'
'LblCustomer
'
Me.LblCustomer.Location = New System.Drawing.Point
(16, 88)
Me.LblCustomer.Name = "LblCustomer"
Me.LblCustomer.TabIndex = 4
Me.LblCustomer.Text = "Customer Number"
'
'editCustomerNumber
'
Me.editCustomerNumber.Location = New
System.Drawing.Point(128, 88)
Me.editCustomerNumber.Name = "editCustomerNumber"
Me.editCustomerNumber.TabIndex = 5
Me.editCustomerNumber.Text = ""
'
'editFirstName
'
Me.editFirstName.Location = New
System.Drawing.Point(120, 128)
Me.editFirstName.Name = "editFirstName"
Me.editFirstName.TabIndex = 7
Me.editFirstName.Text = ""
'
'lblFirstName
'
Me.lblFirstName.Location = New System.Drawing.Point
(8, 128)
Me.lblFirstName.Name = "lblFirstName"
Me.lblFirstName.TabIndex = 6
Me.lblFirstName.Text = "First Name"
'
'editLastName
'
Me.editLastName.Location = New System.Drawing.Point
(120, 160)
Me.editLastName.Name = "editLastName"
Me.editLastName.TabIndex = 9
Me.editLastName.Text = ""
'
'lblLastname
'
Me.lblLastname.Location = New System.Drawing.Point
(8, 160)
Me.lblLastname.Name = "lblLastname"
Me.lblLastname.TabIndex = 8
Me.lblLastname.Text = "Last NAme"
'
'editAddress
'
Me.editAddress.Location = New System.Drawing.Point
(120, 208)
Me.editAddress.Name = "editAddress"
Me.editAddress.TabIndex = 11
Me.editAddress.Text = ""
'
'lblAddress
'
Me.lblAddress.Location = New System.Drawing.Point
(8, 208)
Me.lblAddress.Name = "lblAddress"
Me.lblAddress.TabIndex = 10
Me.lblAddress.Text = "Address"
'
'editAddress1
'
Me.editAddress1.Location = New System.Drawing.Point
(128, 256)
Me.editAddress1.Name = "editAddress1"
Me.editAddress1.TabIndex = 13
Me.editAddress1.Text = ""
'
'lblAddress1
'
Me.lblAddress1.Location = New System.Drawing.Point
(16, 256)
Me.lblAddress1.Name = "lblAddress1"
Me.lblAddress1.TabIndex = 12
Me.lblAddress1.Text = "Suite/Apt #"
'
'editCity
'
Me.editCity.Location = New System.Drawing.Point
(408, 16)
Me.editCity.Name = "editCity"
Me.editCity.TabIndex = 15
Me.editCity.Text = ""
'
'lblCity
'
Me.lblCity.Location = New System.Drawing.Point
(296, 16)
Me.lblCity.Name = "lblCity"
Me.lblCity.TabIndex = 14
Me.lblCity.Text = "City"
'
'editStateOrProvince
'
Me.editStateOrProvince.Location = New
System.Drawing.Point(400, 48)
Me.editStateOrProvince.Name = "editStateOrProvince"
Me.editStateOrProvince.TabIndex = 17
Me.editStateOrProvince.Text = ""
'
'lblStateOrProvince
'
Me.lblStateOrProvince.Location = New
System.Drawing.Point(288, 48)
Me.lblStateOrProvince.Name = "lblStateOrProvince"
Me.lblStateOrProvince.TabIndex = 16
Me.lblStateOrProvince.Text = "State/Province"
'
'editPostalCode
'
Me.editPostalCode.Location = New
System.Drawing.Point(400, 80)
Me.editPostalCode.Name = "editPostalCode"
Me.editPostalCode.TabIndex = 19
Me.editPostalCode.Text = ""
'
'lblPostalCode
'
Me.lblPostalCode.Location = New
System.Drawing.Point(288, 80)
Me.lblPostalCode.Name = "lblPostalCode"
Me.lblPostalCode.TabIndex = 18
Me.lblPostalCode.Text = "Postal Code"
'
'editCompanyName
'
Me.editCompanyName.Location = New
System.Drawing.Point(400, 120)
Me.editCompanyName.Name = "editCompanyName"
Me.editCompanyName.TabIndex = 21
Me.editCompanyName.Text = ""
'
'lblCompanyName
'
Me.lblCompanyName.Location = New
System.Drawing.Point(288, 120)
Me.lblCompanyName.Name = "lblCompanyName"
Me.lblCompanyName.TabIndex = 20
Me.lblCompanyName.Text = "Company Name"
'
'editMobilePhone
'
Me.editMobilePhone.Location = New
System.Drawing.Point(416, 160)
Me.editMobilePhone.Name = "editMobilePhone"
Me.editMobilePhone.TabIndex = 23
Me.editMobilePhone.Text = ""
'
'lblMobilePhone
'
Me.lblMobilePhone.Location = New
System.Drawing.Point(304, 160)
Me.lblMobilePhone.Name = "lblMobilePhone"
Me.lblMobilePhone.TabIndex = 22
Me.lblMobilePhone.Text = "Mobile Phone"
'
'editBirthDate
'
Me.editBirthDate.Location = New
System.Drawing.Point(440, 208)
Me.editBirthDate.Name = "editBirthDate"
Me.editBirthDate.TabIndex = 25
Me.editBirthDate.Text = ""
'
'lblBirthDate
'
Me.lblBirthDate.Location = New System.Drawing.Point
(328, 208)
Me.lblBirthDate.Name = "lblBirthDate"
Me.lblBirthDate.TabIndex = 24
Me.lblBirthDate.Text = "Birth Date"
'
'TextBox12
'
Me.TextBox12.Location = New System.Drawing.Point
(168, 320)
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Size = New System.Drawing.Size(160,
20)
Me.TextBox12.TabIndex = 27
Me.TextBox12.Text = ""
'
'lblNotes
'
Me.lblNotes.Location = New System.Drawing.Point
(48, 288)
Me.lblNotes.Name = "lblNotes"
Me.lblNotes.TabIndex = 26
Me.lblNotes.Text = "Notes"
'
'editShppedVia
'
Me.editShppedVia.Location = New
System.Drawing.Point(448, 272)
Me.editShppedVia.Name = "editShppedVia"
Me.editShppedVia.TabIndex = 29
Me.editShppedVia.Text = ""
'
'lblShppedVia
'
Me.lblShppedVia.Location = New System.Drawing.Point
(336, 272)
Me.lblShppedVia.Name = "lblShppedVia"
Me.lblShppedVia.TabIndex = 28
Me.lblShppedVia.Text = "Shpped Via"
'
'lblActive
'
Me.lblActive.Location = New System.Drawing.Point
(544, 408)
Me.lblActive.Name = "lblActive"
Me.lblActive.TabIndex = 30
Me.lblActive.Text = "Active"
'
'cbActive
'
Me.cbActive.DataBindings.Add(New
System.Windows.Forms.Binding("Checked",
Me.dsCustomer, "customers.Active"))
Me.cbActive.Location = New System.Drawing.Point
(672, 408)
Me.cbActive.Name = "cbActive"
Me.cbActive.Size = New System.Drawing.Size(16, 24)
Me.cbActive.TabIndex = 31
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point
(264, 376)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 32
Me.TextBox1.Text = "TextBox1"
'
'frmCustomer
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5,
13)
Me.ClientSize = New System.Drawing.Size(704, 453)
Me.Controls.AddRange(New
System.Windows.Forms.Control() {Me.TextBox1, Me.cbActive,
Me.lblActive, Me.editShppedVia, Me.lblShppedVia,
Me.TextBox12, Me.lblNotes, Me.editBirthDate,
Me.lblBirthDate, Me.editMobilePhone, Me.lblMobilePhone,
Me.editCompanyName, Me.lblCompanyName, Me.editPostalCode,
Me.lblPostalCode, Me.editStateOrProvince,
Me.lblStateOrProvince, Me.editCity, Me.lblCity,
Me.editAddress1, Me.lblAddress1, Me.editAddress,
Me.lblAddress, Me.editLastName, Me.lblLastname,
Me.editFirstName, Me.lblFirstName, Me.editCustomerNumber,
Me.LblCustomer, Me.lblAltPhone, Me.editAltPhone,
Me.lblWorkPhone, Me.editWorkPhone})
Me.Menu = Me.mnuCustomer
Me.Name = "frmCustomer"
Me.Text = "frmCustomer"
CType(Me.dsCustomer,
System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)
End Sub
#End Region
Private WithEvents m_CurrencyManager As CurrencyManager
Private Sub frmCustomer_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
m_CurrencyManager = Me.BindingContext
(dsCustomer, "Customers")
End Sub
Private Sub MenuItem2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MenuItem2.Click
m_CurrencyManager.AddNew()
End Sub
End Class
* "Peace" <Its the end of the world as we know it@here.com> scripsit: First of all you should post this in the ADO.NET ng I think.
And /you/ should not include the whole stuff posted by the OP in your
post.
--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>
> And /you/ should not include the whole stuff posted by the OP in your post.
Consider my self arrested, tried and convicted by the newsgroup police.
Herfried is the gatekeeper.......(do you watch star trek?) :)
* "Peace" <Its the end of the world as we know it@here.com> scripsit: And /you/ should not include the whole stuff posted by the OP in your
post.
Consider my self arrested, tried and convicted by the newsgroup police.
Oh, sorry. I didn't want to arrest you.
Herfried is the gatekeeper.......(do you watch star trek?) :)
When should I have time to do that? But you are right, working in this
group is sometimes like taking part in Star Trek...
;->
--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet> This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
by: Joao Santa Barbara |
last post by:
Hi all ..
how can i work with DataException ????
i will try to explain my problem perhaps someone could help me ...
i have a typeddataset, and when i try to add a new row,
When i press...
|
by: tonci.tomic |
last post by:
For example, I cought System.Data.NoNullAllowedException with message:
"Column 'XXX' does not allow nulls"
I want to translate that message into croatian:
"Kolona 'XXX' ne dozvoljava...
|
by: RFickling |
last post by:
Hi,
I have a DataGrid with custom ComboBox and DataTimePicker controls in
column styles. When I add a new row, typing values into all columns,
then close the form, I get a...
|
by: Rich |
last post by:
Getting error on insert when I try to add a new row to a dataset; used Visual
Studio IDE to generate stored procedures, data adapter, and dataset. Table
on SQL server has a column marked non-null....
|
by: Rich |
last post by:
I've used VS2003 Wizard to create sqlDataAdapter, stored procedures, and
dataset on my application. I can search and update fine but Insert has error
unless I perform a search or update prior to my...
| | |
by: James Cooke |
last post by:
Hi all,
I want to catch a duplicate key exception. I do not want to provide that
verbose message from the MSSQL server - I would put a user friendly message
out, like
"The item you have added...
|
by: Trevor |
last post by:
Hey,
I am trying to do this tutorial on the microsoft site :
http://msdn.microsoft.com/library/default.asp?
url=/library/en-us/dndotnet/html/usingadonet.asp
I can get everything to work up to...
|
by: Martin Widmer |
last post by:
Hi guys!
I get this message when trying to insert a new record into a datatabel which
is part of a dataset connected within VS 2005 (VB) from a datagridview
control via a DataTableBindingSource...
|
by: nzkks |
last post by:
Hi I am using these: ASP.Net 2.0 with VB.Net, Visual Studio 2005, SQL Server 2005
I suspect, there is something missing in BLL class.
I created the ASP.Net form also and checked whether it is...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
| | |
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| | |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...
| |
