Concurrency violation at update

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hi

I had a working vs 2003 application with access backend. I added a couple
fields in a table in access db and then to allow user to have access to
these fields via app I did the following;

1. Regenerated the data adapter sqls by running the data adapter wizard and
pasting the resulting code into my app.

2. Deleted the data adapter correspond to the relevant access table from the
dataset and re-dragged the table to dataset to have the new fields included
in the resulting data adapter.

3. Used below code to bind the windows form field to the underlying table
field;

db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
txtMyField.DataBindings.Add(db)

Now when I run the app I can view the data in the fields including the new
ones but if I change any field and try to save (da.Update(ds.tblClients)),
I get the below error;

Concurrency violation: the UpdateCommand affected 0 records.

Even though only one user is running the app. What is the problem and how
can it be fixed?

Thanks

Regards
 
Hi John,

Why don't you look at Update command text?
I bet it is comparing all fields.
Now, I know that access has problems with datetimes - it sometimes strips a
part of time and there you go with your concurrency exception.
 
John,

Are you using an autonumbering integer and are updating more times. Than you
have to refresh everytime your dataset after an update with Access.

Cor
 
I have a field ID as access auto number but the data adapter configuration
wizard seems to have skipped it in its update code. Code below (sorry for so
much).

I am just updating once as far as I can tell. Also the update code was
working fine before I just added a couple of new fields and regenerated the
code using the wizard and pasted it in my app.

Thanks

Regards

updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
= ?, Address = ?, Area = ?, Blocked = " & _
"?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
Client_Notes = " & _
"?, Client_Specifics = ?, Company = ?, Company_Registration_No = ?,
Country = ?, " & _
"County = ?, Created_By = ?, Date_Created = ?, Date_Modified = ?,
Directions = ?," & _
" Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
Financial_Comments = ?, " & _
"[Group] = ?, Image_List = ?, Invoice_Address = ?, Invoice_Company =
?, Invoice_C" & _
"ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
Modified_By = ?, " & _
"Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
Sort = ?, Source" & _
" = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
Staff_Grade_2" & _
" = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address = ?,
Status = ?, S" & _
"tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
Uniforms_Needed " & _
"= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
Venture_Debtor_No = ?," & _
" Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL
AND Account_R" & _
"eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address IS
NULL) AND (Are" & _
"a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
(Blocked_Date = ? OR " & _
"? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ? OR
? IS NULL AND" & _
" Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
Company IS NULL) " & _
"AND (Company_Registration_No = ? OR ? IS NULL AND
Company_Registration_No IS NUL" & _
"L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (County =
? OR ? IS NU" & _
"LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
Created_By IS NULL) " & _
"AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL) AND
(Date_Modified " & _
"= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ? IS
NULL AND EMai" & _
"l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND Fax
IS NULL) AND" & _
" ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
(Invoice_Address = ? OR ? IS" & _
" NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR ? IS
NULL AND Inv" & _
"oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
Invoice_Country " & _
"IS NULL) AND (Invoice_County = ? OR ? IS NULL AND Invoice_County IS
NULL) AND (I" & _
"nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND
(Modified_By " & _
"= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ? IS
NULL AND Paren" & _
"t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms IS
NULL) AND (P" & _
"eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS
NULL) AND (Sort" & _
" = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL
AND Source IS N" & _
"ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL) AND
(Staff_Grade" & _
"_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
(Staff_Grade_4 = ?) " & _
"AND (Statement_Address = ? OR ? IS NULL AND Statement_Address IS
NULL) AND (Stat" & _
"us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR ?
IS NULL AND St" & _
"atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
Supplier_No IS NULL) AN" & _
"D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ? IS
NULL AND TempID" & _
" IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
(Uniforms_Needed = ? " & _
"OR ? IS NULL AND Uniforms_Needed IS NULL) AND
(Uniforms_Needed_Elite = ? OR ? IS" & _
" NULL AND Uniforms_Needed_Elite IS NULL) AND (Uniforms_Needed_Tech
= ? OR ? IS N" & _
"ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ? OR
? IS NULL AN" & _
"D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS
NULL)"
Me.updcomCompanies.Connection = dbConContacts
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Area",
System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked",
System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Reason",
System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Specifics",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Directions",
System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Event_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Financial_Comments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Group",
System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Image_List",
System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Map",
System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Parent",
System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("People_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sort",
System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source",
System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Special_Requirments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status",
System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tel",
System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TempID",
System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Type",
System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Web",
System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Account_Reference_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Account_Reference_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Area",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Area", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Area1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Area", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Blocked", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Blocked_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Blocked_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Blocked_Department", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Blocked_Department", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company_Registration_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company_Registration_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Created_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Created_By1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Created_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Created",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Created1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Created",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Modified",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Modified",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"EMail", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"EMail", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Elite_Client", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Fax", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Fax", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Group",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Group", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Group1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Group", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Modified_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Modified_By1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Modified_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Parent",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Parent", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Parent1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Parent", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_People_Client",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"People_Client", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Postcode1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sort",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Sort", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sort1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Sort", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Source", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Source", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Source_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source_Date1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Source_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Statement_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Statement_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Status", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Status", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Status_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status_Date1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Status_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Supplier_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Supplier_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tel",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Tel", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tel1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Tel", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TempID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"TempID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TempID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"TempID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Type",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Type", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Type1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Type", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Elite", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Elite", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Tech", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Tech", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Web",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Web", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Web1",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Web", System.Data.DataRowVersion.Original, Nothing))
 
Hi Miha

The code is below (sorry for so much). It does not seem to have included the
ID field which is an auto number and primary key for the table.

The date fields are all using System.Data.OleDb.OleDbType.DBDate data type
in code but are access date/time in access table.

Anything I can do from here?

Thanks

Regards


updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
= ?, Address = ?, Area = ?, Blocked = " & _
"?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
Client_Notes = " & _
"?, Client_Specifics = ?, Company = ?, Company_Registration_No = ?,
Country = ?, " & _
"County = ?, Created_By = ?, Date_Created = ?, Date_Modified = ?,
Directions = ?," & _
" Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
Financial_Comments = ?, " & _
"[Group] = ?, Image_List = ?, Invoice_Address = ?, Invoice_Company =
?, Invoice_C" & _
"ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
Modified_By = ?, " & _
"Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
Sort = ?, Source" & _
" = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
Staff_Grade_2" & _
" = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address = ?,
Status = ?, S" & _
"tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
Uniforms_Needed " & _
"= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
Venture_Debtor_No = ?," & _
" Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL
AND Account_R" & _
"eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address IS
NULL) AND (Are" & _
"a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
(Blocked_Date = ? OR " & _
"? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ? OR
? IS NULL AND" & _
" Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
Company IS NULL) " & _
"AND (Company_Registration_No = ? OR ? IS NULL AND
Company_Registration_No IS NUL" & _
"L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (County =
? OR ? IS NU" & _
"LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
Created_By IS NULL) " & _
"AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL) AND
(Date_Modified " & _
"= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ? IS
NULL AND EMai" & _
"l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND Fax
IS NULL) AND" & _
" ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
(Invoice_Address = ? OR ? IS" & _
" NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR ? IS
NULL AND Inv" & _
"oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
Invoice_Country " & _
"IS NULL) AND (Invoice_County = ? OR ? IS NULL AND Invoice_County IS
NULL) AND (I" & _
"nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND
(Modified_By " & _
"= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ? IS
NULL AND Paren" & _
"t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms IS
NULL) AND (P" & _
"eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS
NULL) AND (Sort" & _
" = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL
AND Source IS N" & _
"ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL) AND
(Staff_Grade" & _
"_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
(Staff_Grade_4 = ?) " & _
"AND (Statement_Address = ? OR ? IS NULL AND Statement_Address IS
NULL) AND (Stat" & _
"us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR ?
IS NULL AND St" & _
"atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
Supplier_No IS NULL) AN" & _
"D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ? IS
NULL AND TempID" & _
" IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
(Uniforms_Needed = ? " & _
"OR ? IS NULL AND Uniforms_Needed IS NULL) AND
(Uniforms_Needed_Elite = ? OR ? IS" & _
" NULL AND Uniforms_Needed_Elite IS NULL) AND (Uniforms_Needed_Tech
= ? OR ? IS N" & _
"ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ? OR
? IS NULL AN" & _
"D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS
NULL)"
Me.updcomCompanies.Connection = dbConContacts
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Area",
System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked",
System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Reason",
System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Specifics",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Directions",
System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Event_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Financial_Comments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Group",
System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Image_List",
System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Map",
System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Parent",
System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("People_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sort",
System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source",
System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Special_Requirments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status",
System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tel",
System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TempID",
System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Type",
System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Web",
System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Account_Reference_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Account_Reference_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Area",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Area", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Area1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Area", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Blocked", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Blocked_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Blocked_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Blocked_Department", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Blocked_Department", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company_Registration_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Company_Registration_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Created_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Created_By1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Created_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Created",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Created1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Created",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Modified",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Date_Modified",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"EMail", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"EMail", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Elite_Client", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Fax", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Fax", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Group",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Group", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Group1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Group", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Modified_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Modified_By1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Modified_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Parent",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Parent", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Parent1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Parent", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_People_Client",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"People_Client", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Postcode1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sort",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Sort", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sort1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Sort", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Source", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Source", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Source_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source_Date1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Source_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Statement_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Statement_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Status", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Status", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Status_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status_Date1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Status_Date",
System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Supplier_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Supplier_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tel",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Tel", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tel1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Tel", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TempID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"TempID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TempID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"TempID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Type",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Type", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Type1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Type", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Elite", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Elite", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Tech", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Uniforms_Needed_Tech", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Web",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Web", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Web1",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Web", System.Data.DataRowVersion.Original, Nothing))


Miha Markic said:
Hi John,

Why don't you look at Update command text?
I bet it is comparing all fields.
Now, I know that access has problems with datetimes - it sometimes strips
a part of time and there you go with your concurrency exception.

--
Miha Markic [MVP C#, INETA Country Leader for Slovenia]
RightHand .NET consulting & development www.rthand.com
Blog: http://cs.rthand.com/blogs/blog_with_righthand/

John said:
Hi

I had a working vs 2003 application with access backend. I added a couple
fields in a table in access db and then to allow user to have access to
these fields via app I did the following;

1. Regenerated the data adapter sqls by running the data adapter wizard
and pasting the resulting code into my app.

2. Deleted the data adapter correspond to the relevant access table from
the dataset and re-dragged the table to dataset to have the new fields
included in the resulting data adapter.

3. Used below code to bind the windows form field to the underlying table
field;

db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
txtMyField.DataBindings.Add(db)

Now when I run the app I can view the data in the fields including the
new ones but if I change any field and try to save
(da.Update(ds.tblClients)), I get the below error;

Concurrency violation: the UpdateCommand affected 0 records.

Even though only one user is running the app. What is the problem and how
can it be fixed?

Thanks

Regards
Click to expand...
Click to expand...
 
John,

I did not count them exact. You know that the wizards can handle maxium 100
fields?

Cor

John said:
I have a field ID as access auto number but the data adapter configuration
wizard seems to have skipped it in its update code. Code below (sorry for
so much).

I am just updating once as far as I can tell. Also the update code was
working fine before I just added a couple of new fields and regenerated
the code using the wizard and pasted it in my app.

Thanks

Regards

updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
= ?, Address = ?, Area = ?, Blocked = " & _
"?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
Client_Notes = " & _
"?, Client_Specifics = ?, Company = ?, Company_Registration_No = ?,
Country = ?, " & _
"County = ?, Created_By = ?, Date_Created = ?, Date_Modified = ?,
Directions = ?," & _
" Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
Financial_Comments = ?, " & _
"[Group] = ?, Image_List = ?, Invoice_Address = ?, Invoice_Company
= ?, Invoice_C" & _
"ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
Modified_By = ?, " & _
"Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
Sort = ?, Source" & _
" = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
Staff_Grade_2" & _
" = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address = ?,
Status = ?, S" & _
"tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
Uniforms_Needed " & _
"= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
Venture_Debtor_No = ?," & _
" Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL
AND Account_R" & _
"eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address IS
NULL) AND (Are" & _
"a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
(Blocked_Date = ? OR " & _
"? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ? OR
? IS NULL AND" & _
" Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
Company IS NULL) " & _
"AND (Company_Registration_No = ? OR ? IS NULL AND
Company_Registration_No IS NUL" & _
"L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (County
= ? OR ? IS NU" & _
"LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
Created_By IS NULL) " & _
"AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL) AND
(Date_Modified " & _
"= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ? IS
NULL AND EMai" & _
"l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
Fax IS NULL) AND" & _
" ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
(Invoice_Address = ? OR ? IS" & _
" NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR ?
IS NULL AND Inv" & _
"oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
Invoice_Country " & _
"IS NULL) AND (Invoice_County = ? OR ? IS NULL AND Invoice_County
IS NULL) AND (I" & _
"nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND
(Modified_By " & _
"= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ? IS
NULL AND Paren" & _
"t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms
IS NULL) AND (P" & _
"eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS
NULL) AND (Sort" & _
" = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL
AND Source IS N" & _
"ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
AND (Staff_Grade" & _
"_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
(Staff_Grade_4 = ?) " & _
"AND (Statement_Address = ? OR ? IS NULL AND Statement_Address IS
NULL) AND (Stat" & _
"us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR ?
IS NULL AND St" & _
"atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
Supplier_No IS NULL) AN" & _
"D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ? IS
NULL AND TempID" & _
" IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
(Uniforms_Needed = ? " & _
"OR ? IS NULL AND Uniforms_Needed IS NULL) AND
(Uniforms_Needed_Elite = ? OR ? IS" & _
" NULL AND Uniforms_Needed_Elite IS NULL) AND (Uniforms_Needed_Tech
= ? OR ? IS N" & _
"ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ?
OR ? IS NULL AN" & _
"D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS
NULL)"
Me.updcomCompanies.Connection = dbConContacts
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Area",
System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked",
System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Reason",
System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Specifics",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Directions",
System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Event_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Financial_Comments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Group",
System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Image_List",
System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Map",
System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Parent",
System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("People_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sort",
System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source",
System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Special_Requirments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status",
System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tel",
System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TempID",
System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Type",
System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Web",
System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Area",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Area1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Created_By1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Created1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Group",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Group1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Modified_By1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Parent",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Parent1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_People_Client",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Postcode1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sort",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sort1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Source_Date1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Statement_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Statement_Address", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Status_Date1",
System.Data.OleDb.OleDbType.DBDate, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tel",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tel1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TempID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TempID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Type",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Type1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Web",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Web1",
System.Data.OleDb.OleDbType.VarWChar, 80,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Web", System.Data.DataRowVersion.Original, Nothing))

Cor Ligthert said:
John,

Are you using an autonumbering integer and are updating more times. Than
you have to refresh everytime your dataset after an update with Access.

Cor
Click to expand...
Click to expand...
 
One of the many trials and tribulations of using wizards to generate code;
when something doesn't work, it can be hell to find the problem!
--
Dennis in Houston


John said:
Sorry client_specifics is there. I am just confusing myself.

Thanks again.

Regards

Cor Ligthert said:
What were the names of the fields that you did add?

I am not good in SQL transactcode therefore fieldnames as type give me
always not such a well idea.

Cor

John said:
Only about 56 or so fields in the actual table.

Thanks

Regards

John,

I did not count them exact. You know that the wizards can handle maxium
100 fields?

Cor

"John" <[email protected]> schreef in bericht
I have a field ID as access auto number but the data adapter
configuration wizard seems to have skipped it in its update code. Code
below (sorry for so much).

I am just updating once as far as I can tell. Also the update code was
working fine before I just added a couple of new fields and regenerated
the code using the wizard and pasted it in my app.

Thanks

Regards

updcomCompanies.CommandText = "UPDATE tblClients SET
Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
"?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason =
?, Client_Notes = " & _
"?, Client_Specifics = ?, Company = ?, Company_Registration_No =
?, Country = ?, " & _
"County = ?, Created_By = ?, Date_Created = ?, Date_Modified =
?, Directions = ?," & _
" Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
Financial_Comments = ?, " & _
"[Group] = ?, Image_List = ?, Invoice_Address = ?,
Invoice_Company = ?, Invoice_C" & _
"ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
Modified_By = ?, " & _
"Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
Sort = ?, Source" & _
" = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 =
?, Staff_Grade_2" & _
" = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address =
?, Status = ?, S" & _
"tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
Uniforms_Needed " & _
"= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
Venture_Debtor_No = ?," & _
" Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
NULL AND Account_R" & _
"eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address
IS NULL) AND (Are" & _
"a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
(Blocked_Date = ? OR " & _
"? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ?
OR ? IS NULL AND" & _
" Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
Company IS NULL) " & _
"AND (Company_Registration_No = ? OR ? IS NULL AND
Company_Registration_No IS NUL" & _
"L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND
(County = ? OR ? IS NU" & _
"LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
Created_By IS NULL) " & _
"AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
AND (Date_Modified " & _
"= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ?
IS NULL AND EMai" & _
"l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
Fax IS NULL) AND" & _
" ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
(Invoice_Address = ? OR ? IS" & _
" NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR
? IS NULL AND Inv" & _
"oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
Invoice_Country " & _
"IS NULL) AND (Invoice_County = ? OR ? IS NULL AND
Invoice_County IS NULL) AND (I" & _
"nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
AND (Modified_By " & _
"= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ?
IS NULL AND Paren" & _
"t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND
Payment_Terms IS NULL) AND (P" & _
"eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode
IS NULL) AND (Sort" & _
" = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS
NULL AND Source IS N" & _
"ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
AND (Staff_Grade" & _
"_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
(Staff_Grade_4 = ?) " & _
"AND (Statement_Address = ? OR ? IS NULL AND Statement_Address
IS NULL) AND (Stat" & _
"us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR
? IS NULL AND St" & _
"atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
Supplier_No IS NULL) AN" & _
"D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ?
IS NULL AND TempID" & _
" IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
(Uniforms_Needed = ? " & _
"OR ? IS NULL AND Uniforms_Needed IS NULL) AND
(Uniforms_Needed_Elite = ? OR ? IS" & _
" NULL AND Uniforms_Needed_Elite IS NULL) AND
(Uniforms_Needed_Tech = ? OR ? IS N" & _
"ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No =
? OR ? IS NULL AN" & _
"D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web
IS NULL)"
Me.updcomCompanies.Connection = dbConContacts
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Account_Reference_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Area",
System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked",
System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Department",
System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Blocked_Reason",
System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Client_Specifics",
System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company_Registration_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Created_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Created",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Date_Modified",
System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Directions",
System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Elite_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Event_Notes",
System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Financial_Comments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Group",
System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Image_List",
System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Address",
System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Company",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_County",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Invoice_Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Map",
System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Modified_By",
System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Parent",
System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Payment_Terms",
System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("People_Client",
System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Postcode",
System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sort",
System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source",
System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Source_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Special_Requirments",
System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_1",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_2",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_3",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Staff_Grade_4",
System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Statement_Address",
System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status",
System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Status_Date",
System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Supplier_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tel",
System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TempID",
System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Type",
System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Web",
System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
Me.updcomCompanies.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
Click to expand...
Click to expand...
Click to expand...
 
One of the many trials and tribulations of using wizards to generate code;
when something doesn't work, it can be hell to find the problem!
Click to expand...


It may not be a wizard problem. There is a hole in the DataSet bucket
when using auto-increment fields and attempting to update records that
were freshly inserted.

This explanation is going to get messy so I am not going to try to
back fill it into your code. Sorry.

**[ the short answer ]**
When you create a database that contains an auto-increment field, the
value generated by the database does not propagate back to your
DataSet when you insert a record. Therefore when you go to update the
record a second time, the field is different and you get the
concurrency violation. Or as a previous poster indicated, you need to
refresh your database every time you insert a record. Not very
efficient. (There is a better answer under certain circumstances. See
below).

**[ the long answer ]**
The proof is real messy so please bear with me. I am trying to create
a small example of this to post, but it is not ready yet.

Let's start with a small database; 3 columns:
* RecNo an auto-increment column and primary key,
* LastName a string column, and
* FirstName also a string column.

There are 3 records in the database when read them into your
datatable:

1 Johnson Bob
2 Anderson William
3 Carson Tom

Your application inserts 1 more record, using the example given in
several books you assign a large value (99999) to the RecNo column,
because you know that the auto-increment will fix it up correctly. You
look at the data base using the database manager and the record is
there:

4 Williams Walt

Your application then changes the FirstName column of RecNo 1 to
Robert
Pseudocode = {
DataRow.BeginEdit();
DataRow["FirstName"] = "Robert";
DataRow.EndEdit;
DataAdapter.Update();
DataSet.AcceptChanges();
}

Works like a charm.

Go for broke, let's change the FirstName column of the new record from
Walt to Walter:

Pseudocode = {
DataRow.BeginEdit();
DataRow["FirstName"] = "Walter";
DataRow.EndEdit;
DataAdapter.Update();
DataSet.AcceptChanges();
}

Concurrency Violation occurs at the update. Why?

The answer is not obvious, but if you check the state of record 4
(DataRow.DataState, IIRC) you will see that it is unmodified, meaning
that it has not been modified since it was last written to the
database. Which is what you would expect after the AcceptChanges()
call. So why is it violating???

Inside your application, look at the value for RecNo for the first
record (DataSet.Tables["name"].Rows[0]["RecNo"]) it is 1. Look at the
value for RecNo for the 4th record
(DataSet.Tables["name"].Rows[4]["RecNo"]). It is 99999. 99999 ???????

What happened? Simple, when the record was inserted into the database,
the value in the RecNo field was ignored and the database fixed it.
The DataAdapter did not re-read the value after writing it and so left
it as 99999. The next time you update this record, the DataAdapter
will verify that the fields have not been modified and will check the
value of RecNo from the database and from the internal DataSet. They
won't match, so somebody must have snuck in and tinkered with the
data, Alarm!!! Alarm!!! Concurrency Violation!!!!

So why didn't it blow up on RecNo 1? Because the RecNo was read into
the DataSet and there was no reason to change it. So when any other
column was changed all of the other values still matched, therefore no
concurrency violation.

So how do we fix the hole in the bucket?

Now that we know what it is, the answer is simple. If you can
guarantee that there is only one entity updating the database (it
doesn't matter how many are reading it, there can be only one writer),
then set the value to be written to the auto-increment field to
DataTable["names"].Rows.Count+1. And you will stay in synch with the
auto-increment.

If you can't guarantee that you are the only writer, you will need to
lock the database, refresh your internal copy, update the record and
unlock the database.

Or we can tell Microsoft that this is a bug and wait for them to fix
it by making the DataAdapter recognize that there is an auto-increment
field and read the value back after an insert. Not as efficient as
just ignoring it like they are doing now, but the correct way to fix
the problem.

If it ain't broke....fix it anyway!

[To Email Replies Remove the nospam from the address]
 
Back
Top