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 11 1810
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" <Jo**@nospam.infovis.co.ukwrote in message
news:ux**************@TK2MSFTNGP04.phx.gbl...
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
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
"John" <Jo**@nospam.infovis.co.ukschreef in bericht
news:ux**************@TK2MSFTNGP04.phx.gbl...
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
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_Referenc e_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_Departme nt",
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_Registra tion_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_Commen ts",
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_Requirme nts",
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_Addres s",
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_N o",
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_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address", System.Data.DataRowVersion.Original, Nothing))
Me.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_Company 1",
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_Country 1",
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_Cr eated",
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_Cr eated1",
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_Mo dified",
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_Mo dified1",
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_C lient",
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_Modifie d_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_Modifie d_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_Postcod e",
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_Postcod e1",
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_G rade_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_G rade_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_G rade_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_G rade_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_Stateme nt_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_Stateme nt_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_Supplie r_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_Supplie r_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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 [MVP]" <no************@planet.nlwrote in message
news:ud*************@TK2MSFTNGP05.phx.gbl...
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
"John" <Jo**@nospam.infovis.co.ukschreef in bericht
news:ux**************@TK2MSFTNGP04.phx.gbl...
>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 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_Referenc e_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_Departme nt",
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_Registra tion_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_Commen ts",
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_Requirme nts",
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_Addres s",
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_N o",
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_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address", System.Data.DataRowVersion.Original, Nothing))
Me.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_Company 1",
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_Country 1",
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_Cr eated",
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_Cr eated1",
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_Mo dified",
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_Mo dified1",
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_C lient",
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_Modifie d_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_Modifie d_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_Postcod e",
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_Postcod e1",
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_G rade_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_G rade_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_G rade_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_G rade_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_Stateme nt_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_Stateme nt_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_Supplie r_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_Supplie r_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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 [MVP C#]" <miha at rthand comwrote in message
news:uS**************@TK2MSFTNGP03.phx.gbl...
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" <Jo**@nospam.infovis.co.ukwrote in message
news:ux**************@TK2MSFTNGP04.phx.gbl...
>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
John,
I did not count them exact. You know that the wizards can handle maxium 100
fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht
news:OP**************@TK2MSFTNGP06.phx.gbl...
>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_Referenc e_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_Departme nt",
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_Registra tion_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_Commen ts",
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_Requirme nts",
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_Addres s",
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_N o",
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_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 255,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.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_Company 1",
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_Country 1",
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_Cr eated",
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_Cr eated1",
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_Mo dified",
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_Mo dified1",
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_C lient",
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_Modifie d_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_Modifie d_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_Postcod e",
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_Postcod e1",
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_G rade_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_G rade_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_G rade_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_G rade_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_Stateme nt_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_Stateme nt_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_Supplie r_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_Supplie r_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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_Uniform s_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 [MVP]" <no************@planet.nlwrote in message
news:ud*************@TK2MSFTNGP05.phx.gbl...
>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
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:ux**************@TK2MSFTNGP04.phx.gbl...
>>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
Only about 56 or so fields in the actual table.
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:%2****************@TK2MSFTNGP04.phx.gbl...
John,
I did not count them exact. You know that the wizards can handle maxium
100 fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht
news:OP**************@TK2MSFTNGP06.phx.gbl...
>>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_Referen ce_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_Departm ent", 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_Specific s", 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_Registr ation_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_Comme nts", 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_Postcod e", 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_Requirm ents", 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_Addre ss", 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_Accoun t_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_Accoun t_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_Addres s", 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_Addres s1", 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_Blocke d", 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_Blocke d_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_Blocke d_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_Blocke d_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_Blocke d_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_Compan y", 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_Compan y1", 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_Compan y_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_Compan y_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_Countr y", 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_Countr y1", 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_County 1", 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_Create d_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_Create d_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_C reated", 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_C reated1", 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_M odified", 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_M odified1", 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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Invoic e_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_Modifi ed_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_Modifi ed_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_Parent 1", 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_Paymen t_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_Paymen t_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_Postco de", 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_Postco de1", 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_Source 1", 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_Statem ent_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_Statem ent_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_Status 1", 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_Suppli er_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_Suppli er_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_TempID 1", 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_Unifor ms_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_Unifor ms_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_Unifor ms_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_Unifor ms_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_Unifor ms_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_Unifor ms_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_Ventur e_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_Ventur e_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 [MVP]" <no************@planet.nlwrote in message news:ud*************@TK2MSFTNGP05.phx.gbl...
>>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
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:ux**************@TK2MSFTNGP04.phx.gbl... 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
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" <Jo**@nospam.infovis.co.ukschreef in bericht
news:et**************@TK2MSFTNGP06.phx.gbl...
Only about 56 or so fields in the actual table.
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:%2****************@TK2MSFTNGP04.phx.gbl...
>John,
I did not count them exact. You know that the wizards can handle maxium 100 fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:OP**************@TK2MSFTNGP06.phx.gbl...
>>>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_Refere nce_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_Depart ment", 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_Specifi cs", 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_Regist ration_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_Comm ents", 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_Addres s", System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Compan y", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Countr y", 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_Postco de", 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_Requir ments", 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_Addr ess", 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_Neede d", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Neede d_Elite", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Neede d_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_Accou nt_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_Accou nt_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_Addre ss", 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_Addre ss1", 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_Block ed", 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_Block ed_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_Block ed_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_Block ed_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_Block ed_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_Compa ny", 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_Compa ny1", 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_Compa ny_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_Compa ny_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_Count ry", 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_Count ry1", 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_Count y", 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_Count y1", 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_Creat ed_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_Creat ed_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_EMail 1", 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_Group 1", 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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Invoi ce_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_Modif ied_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_Modif ied_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_Paren t", 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_Paren t1", 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_Payme nt_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_Payme nt_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_Peopl e_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_Postc ode", 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_Postc ode1", 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_Sourc e", 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_Sourc e1", 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_Sourc e_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_Sourc e_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_State ment_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_State ment_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_Statu s", 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_Statu s1", 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_Statu s_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_Statu s_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_Suppl ier_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_Suppl ier_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_TempI D", 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_TempI D1", 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_Unifo rms_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_Unifo rms_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_Unifo rms_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_Unifo rms_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_Unifo rms_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_Unifo rms_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_Ventu re_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_Ventu re_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 [MVP]" <no************@planet.nlwrote in message news:ud*************@TK2MSFTNGP05.phx.gbl... 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
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:ux**************@TK2MSFTNGP04.phx.gbl... 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 >
Uniforms_Needed_Elite txt 255
Uniforms_Needed_Tech txt 255
Client_Specifics Memo (this one has not turned up in parameters possibly
because it is a memo)
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:On**************@TK2MSFTNGP02.phx.gbl...
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" <Jo**@nospam.infovis.co.ukschreef in bericht
news:et**************@TK2MSFTNGP06.phx.gbl...
>Only about 56 or so fields in the actual table.
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message news:%2****************@TK2MSFTNGP04.phx.gbl...
>>John,
I did not count them exact. You know that the wizards can handle maxium 100 fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:OP**************@TK2MSFTNGP06.phx.gbl... 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_Refer ence_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_Depar tment", System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Blocked_Reaso n", 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_Specif ics", 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_Regis tration_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_Com ments", 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_Addre ss", System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Compa ny", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Count ry", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Count y", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Postc ode", 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_Requi rments", 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_Add ress", 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_Need ed", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Need ed_Elite", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Need ed_Tech", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Venture_Debto r_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_Acco unt_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_Acco unt_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_Addr ess", 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_Addr ess1", 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_Area 1", 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_Bloc ked", 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_Bloc ked_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_Bloc ked_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_Bloc ked_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_Bloc ked_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_Comp any", 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_Comp any1", 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_Comp any_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_Comp any_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_Coun try", 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_Coun try1", 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_Coun ty", 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_Coun ty1", 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_Crea ted_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_Crea ted_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_EMai l", 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_EMai l1", 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_Elit e_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_Grou p", 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_Grou p1", 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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Modi fied_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_Modi fied_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_Pare nt", 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_Pare nt1", 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_Paym ent_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_Paym ent_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_Peop le_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_Post code", 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_Post code1", 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_Sort 1", 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_Sour ce", 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_Sour ce1", 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_Sour ce_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_Sour ce_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_Staf f_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_Staf f_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_Staf f_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_Staf f_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_Stat ement_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_Stat ement_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_Stat us", 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_Stat us1", 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_Stat us_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_Stat us_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_Supp lier_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_Supp lier_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_Temp ID", 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_Temp ID1", 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_Type 1", 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_Unif orms_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_Unif orms_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_Unif orms_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_Unif orms_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_Unif orms_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_Unif orms_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_Vent ure_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_Vent ure_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 [MVP]" <no************@planet.nlwrote in message news:ud*************@TK2MSFTNGP05.phx.gbl... 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 > "John" <Jo**@nospam.infovis.co.ukschreef in bericht news:ux**************@TK2MSFTNGP04.phx.gbl.. . >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 >> > >
Sorry client_specifics is there. I am just confusing myself.
Thanks again.
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:On**************@TK2MSFTNGP02.phx.gbl...
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" <Jo**@nospam.infovis.co.ukschreef in bericht
news:et**************@TK2MSFTNGP06.phx.gbl...
>Only about 56 or so fields in the actual table.
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message news:%2****************@TK2MSFTNGP04.phx.gbl...
>>John,
I did not count them exact. You know that the wizards can handle maxium 100 fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:OP**************@TK2MSFTNGP06.phx.gbl... 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_Refer ence_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_Depar tment", System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Blocked_Reaso n", 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_Specif ics", 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_Regis tration_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_Com ments", 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_Addre ss", System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Compa ny", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Count ry", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Count y", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Postc ode", 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_Requi rments", 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_Add ress", 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_Need ed", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Need ed_Elite", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Need ed_Tech", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Venture_Debto r_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_Acco unt_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_Acco unt_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_Addr ess", 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_Addr ess1", 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_Area 1", 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_Bloc ked", 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_Bloc ked_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_Bloc ked_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_Bloc ked_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_Bloc ked_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_Comp any", 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_Comp any1", 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_Comp any_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_Comp any_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_Coun try", 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_Coun try1", 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_Coun ty", 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_Coun ty1", 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_Crea ted_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_Crea ted_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_EMai l", 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_EMai l1", 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_Elit e_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_Grou p", 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_Grou p1", 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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Invo ice_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_Modi fied_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_Modi fied_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_Pare nt", 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_Pare nt1", 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_Paym ent_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_Paym ent_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_Peop le_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_Post code", 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_Post code1", 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_Sort 1", 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_Sour ce", 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_Sour ce1", 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_Sour ce_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_Sour ce_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_Staf f_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_Staf f_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_Staf f_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_Staf f_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_Stat ement_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_Stat ement_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_Stat us", 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_Stat us1", 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_Stat us_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_Stat us_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_Supp lier_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_Supp lier_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_Temp ID", 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_Temp ID1", 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_Type 1", 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_Unif orms_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_Unif orms_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_Unif orms_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_Unif orms_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_Unif orms_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_Unif orms_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_Vent ure_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_Vent ure_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 [MVP]" <no************@planet.nlwrote in message news:ud*************@TK2MSFTNGP05.phx.gbl... 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 > "John" <Jo**@nospam.infovis.co.ukschreef in bericht news:ux**************@TK2MSFTNGP04.phx.gbl.. . >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 >> > >
John,
I think we come to nothing, do you have the code where you fill your dataset
and there where you update that one?
We are in the blind now.
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht
news:%2****************@TK2MSFTNGP02.phx.gbl...
Uniforms_Needed_Elite txt 255
Uniforms_Needed_Tech txt 255
Client_Specifics Memo (this one has not turned up in parameters possibly
because it is a memo)
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:On**************@TK2MSFTNGP02.phx.gbl...
>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" <Jo**@nospam.infovis.co.ukschreef in bericht news:et**************@TK2MSFTNGP06.phx.gbl...
>>Only about 56 or so fields in the actual table.
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message news:%2****************@TK2MSFTNGP04.phx.gbl.. . John,
I did not count them exact. You know that the wizards can handle maxium 100 fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:OP**************@TK2MSFTNGP06.phx.gbl... >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_Refe rence_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_Depa rtment", System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Blocked_Reas on", 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_Speci fics", 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_Regi stration_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_Modifie d", 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_Co mments", 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_Addr ess", System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Comp any", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Coun try", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Coun ty", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Post code", 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_Term s", System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("People_Clien t", 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_Requ irments", 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_Ad dress", 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_Nee ded", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Nee ded_Elite", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Nee ded_Tech", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Venture_Debt or_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_Acc ount_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_Acc ount_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_Add ress", 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_Add ress1", 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_Are a", 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_Are a1", 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_Blo cked", 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_Blo cked_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_Blo cked_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_Blo cked_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_Blo cked_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_Com pany", 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_Com pany1", 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_Com pany_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_Com pany_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_Cou ntry", 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_Cou ntry1", 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_Cou nty", 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_Cou nty1", 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_Cre ated_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_Cre ated_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_Dat e_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_Dat e_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_Dat e_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_Dat e_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_EMa il", 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_EMa il1", 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_Eli te_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_Fax 1", 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_Gro up", 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_Gro up1", 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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Inv oice_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_Mod ified_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_Mod ified_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_Par ent", 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_Par ent1", 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_Pay ment_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_Pay ment_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_Peo ple_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_Pos tcode", 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_Pos tcode1", 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_Sor t", 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_Sor t1", 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_Sou rce", 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_Sou rce1", 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_Sou rce_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_Sou rce_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_Sta ff_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_Sta ff_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_Sta ff_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_Sta ff_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_Sta tement_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_Sta tement_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_Sta tus", 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_Sta tus1", 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_Sta tus_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_Sta tus_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_Sup plier_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_Sup plier_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_Tel 1", 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_Tem pID", 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_Tem pID1", 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_Typ e", 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_Typ e1", 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_Uni forms_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_Uni forms_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_Uni forms_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_Uni forms_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_Uni forms_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_Uni forms_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_Ven ture_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_Ven ture_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_Web 1", 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 [MVP]" <no************@planet.nlwrote in message news:ud*************@TK2MSFTNGP05.phx.gbl... >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 >> >"John" <Jo**@nospam.infovis.co.ukschreef in bericht >news:ux**************@TK2MSFTNGP04.phx.gbl. .. >>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 >>> >> >> > >
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" wrote:
Sorry client_specifics is there. I am just confusing myself.
Thanks again.
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:On**************@TK2MSFTNGP02.phx.gbl...
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" <Jo**@nospam.infovis.co.ukschreef in bericht
news:et**************@TK2MSFTNGP06.phx.gbl...
Only about 56 or so fields in the actual table.
Thanks
Regards
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:%2****************@TK2MSFTNGP04.phx.gbl... John,
I did not count them exact. You know that the wizards can handle maxium 100 fields?
Cor
"John" <Jo**@nospam.infovis.co.ukschreef in bericht news:OP**************@TK2MSFTNGP06.phx.gbl... 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_Refere nce_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_Depart ment", 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_Specifi cs", 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_Regist ration_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_Comm ents", 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_Addres s", System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Compan y", System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Invoice_Countr y", 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_Postco de", 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_Requir ments", 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_Addr ess", 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_Neede d", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Neede d_Elite", System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite")) Me.updcomCompanies.Parameters.Add(New System.Data.OleDb.OleDbParameter("Uniforms_Neede d_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" ,
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Billy Jacobs |
last post by:
I have a client who is getting a concurrency violation
error whenever she tries to update a record. I can log in
to the site as her simultaneously and update the record
with no problem.
I can...
|
by: Suzanne |
last post by:
Hi All
I'm having problems getting my data adapter to throw a concurrency
exception with an INSERT command. I want to throw a concurrency
exception if an attempt is made to enter a row into...
|
by: nick |
last post by:
I'm having trouble updating from a datagrid. It's says "Concurrency
violation: the UpdateCommand affected 0 records", though I can't see
how it's related to "concurrency". I can insert and delete...
|
by: Niyazi |
last post by:
Hi,
I have not understand the problem. Before all the coding with few
application everything worked perfectly. Now I am developing Cheque Writing
application and when the cheque is clear the...
|
by: Steven Nagy |
last post by:
Hi
Have a problem that consistantly occurs in my applications where using
a DataAdapter (OLEDB) and a dataset.
Using a simple process of adding a row to the dataset table and then
calling the...
|
by: Vladimir Oľura |
last post by:
I am building a pocket pc application that requires a datagrid. I am
inserting a new row this way:
private void mInsert_Click(object sender, System.EventArgs e)
{
try
{
DataRow dr =...
|
by: Jerry |
last post by:
Hi,
I have an app which retrieves data from a sql server table
and displays it on a datagrid. If 2 sessions of this app
are running and 2 users try to update the same record at
about the same...
|
by: Agnes |
last post by:
I got a simple form and using databinding manager to do the add new
Now , my big trobule is . I can update the 'addnew' record, However, after I
new the record, and then amend it , it got...
|
by: Vayse |
last post by:
In my save code, most of items save fine. But sometimes I get a concurrency
violation message.
"Concurrency violation: the UpdateCommand affected 0 of the expected 1
records."
It happens on the...
|
by: William E Voorhees |
last post by:
I'm updating an Access database in a windows multi-user environment.
I'm using disconnected data
I read data from an Access Data table to a data object
I update the data object from a...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
|
by: ryjfgjl |
last post by:
In our work, we often need to import Excel data into databases (such as MySQL, SQL Server, Oracle) for data analysis and processing. Usually, we use database tools like Navicat or the Excel import...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
| |