By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,569 Members | 1,358 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,569 IT Pros & Developers. It's quick & easy.

Concurrency violation at update

P: n/a
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
Aug 30 '06 #1
Share this Question
Share on Google+
11 Replies


P: n/a
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

Aug 30 '06 #2

P: n/a
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

Aug 30 '06 #3

P: n/a
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


Aug 30 '06 #4

P: n/a
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


Aug 30 '06 #5

P: n/a
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



Aug 30 '06 #6

P: n/a
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



Aug 30 '06 #7

P: n/a
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
>




Aug 30 '06 #8

P: n/a
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
>>
>
>




Aug 30 '06 #9

P: n/a
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
>>
>
>




Aug 30 '06 #10

P: n/a
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
>>>
>>
>>
>
>




Aug 30 '06 #11

P: n/a
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" ,
Aug 30 '06 #12

This discussion thread is closed

Replies have been disabled for this discussion.