更新时发生并发冲突 [英] Concurrency violation at update

问题描述

嗨


我有一个带有访问后端的工作版vs 2003应用程序。我在访问数据库的表中添加了几个

字段，然后允许用户通过应用程序访问这些字段

我执行了以下操作;


1.通过运行数据适配器向导重新生成数据适配器sqls，并将结果代码粘贴到我的应用程序中。


2 。删除数据适配器对应于

数据集中的相关访问表，并将表重新拖动到数据集，以在生成的数据适配器中包含新字段

。


3.在代码下方用于将windows表单字段绑定到基础表

字段;


db = New System.Windows.Forms.Binding（" Text"，ds，" tblClients.MyField"）

txtMyField.DataBindings.Add（db）


现在，当我运行应用程序时，我可以查看字段中的数据，包括新的

但是如果我更改任何字段并尝试保存（da.Update（ds.tblClients）），

我得到以下错误;

并发冲突：UpdateCommand影响了0条记录。


即使只有一个用户正在运行该应用程序。有什么问题以及如何修复

？

谢谢


问候

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

推荐答案

嗨约翰，


为什么不看看更新命令文本？

我敢打赌它正在比较所有领域。

现在，我知道访问存在日期时间问题 - 它有时会删除一部分时间的剩余部分，你可以使用你的并发性例外。


-

Miha Markic [MVP C＃，INETA斯洛文尼亚国家领导人]

RightHand .NET咨询&开发 www.rthand.com

博客： http://cs.rthand.com/blogs/blog_with_righthand/


" John" < Jo ** @ nospam.infovis.co.ukwrote in message

news：ux ************** @ TK2MSFTNGP04.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...

嗨


我有一个具有访问后端的工作vs 2003应用程序。我在访问数据库的表中添加了几个

字段，然后允许用户通过应用程序访问这些字段

我执行了以下操作;


1.通过运行数据适配器向导重新生成数据适配器sqls

并将生成的代码粘贴到我的应用程序中。


2 。删除数据适配器对应于数据集的相关访问表，并将表重新拖动到数据集，以便在生成的数据适配器中包含新字段

。


3.在代码下方用于将windows表单字段绑定到基础表

字段;


db = New System.Windows.Forms.Binding（" Text"，ds，" tblClients.MyField"）

txtMyField.DataBindings.Add（db）


现在，当我运行应用程序时，我可以查看字段中的数据，包括新的

但是如果我更改任何字段并尝试保存

（da.Update （ds.tblClients）），我得到以下错误;


并发冲突：UpdateCommand影响了0条记录。


即使只有一个用户正在运行该应用程序。有什么问题以及如何修复

？

谢谢


问候

Hi

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

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

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

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

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

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

Concurrency violation: the UpdateCommand affected 0 records.

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

Thanks

Regards

John，


您使用的是自动编号整数并且正在更新更多次。比你更好

必须在使用Access更新后每次刷新数据集。


Cor


" John" ; < Jo ** @ nospam.infovis.co.ukschreef在bericht

新闻：ux ************** @ TK2MSFTNGP04.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...

嗨


我有一个具有访问后端的工作vs 2003应用程序。我在访问数据库的表中添加了几个

字段，然后允许用户通过应用程序访问这些字段

我执行了以下操作;


1.通过运行数据适配器向导重新生成数据适配器sqls

并将生成的代码粘贴到我的应用程序中。


2 。删除数据适配器对应于数据集的相关访问表，并将表重新拖动到数据集，以便在生成的数据适配器中包含新字段

。


3.在代码下方用于将windows表单字段绑定到基础表

字段;


db = New System.Windows.Forms.Binding（" Text"，ds，" tblClients.MyField"）

txtMyField.DataBindings.Add（db）


现在，当我运行应用程序时，我可以查看字段中的数据，包括新的

但是如果我更改任何字段并尝试保存

（da.Update （ds.tblClients）），我得到以下错误;


并发冲突：UpdateCommand影响了0条记录。


即使只有一个用户正在运行该应用程序。有什么问题以及如何修复

？

谢谢


问候

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

我有一个字段ID作为访问自动编号，但数据适配器配置

向导似乎已在其更新代码中跳过它。代码如下（对不起如此

多了）。


据我所知，我只是更新了一次。在我刚刚添加了几个新字段并使用向导重新生成

代码并将其粘贴到我的应用程序之前，更新代码是

工作正常。


谢谢


问候


updcomCompanies.CommandText =" UPDATE tblClients SET Account_Reference_No

= ?,地址= ?,区域= ?,阻塞=" &安培; _

"？，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 =？，

状态=？，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和地址IS

NULL）AND（是"& _

" a =？OR？IS NULL AND Area IS NULL）AND（Blocked =？） AND

（Blocked_Date =？OR"& _

"？IS NULL和Blocked_Date IS NULL）AND（Blocked_Department =？OR

？IS NULL AND"& _

" Blocked_Department IS NULL）AND（Company =？OR？IS NULL NULL

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和Date_Created IS NULL）和

（Date_Modified"& _

" ; =？OR？IS NULL和Date_Modified IS NULL）AND（EMail =？OR？IS

NULL AND EMai"& _

" l IS NULL）AND （Elite_Client =？）AND（传真=？OR？IS NULL和传真

IS NULL）和 &安培; _

" （[Group] =？OR？IS NULL和[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 （我"& _

" nvoice_Postcode =？OR？IS NULL和Invoice_Postcode IS NULL）和

（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和Payment_Terms IS

NULL）AND（P& _

" eople_Client =？）AND（Postcode =？ OR？IS NULL和Postcode IS

NULL）AND（排序"& _

" =？OR？IS NULL AND排序IS NULL）AND（Source =？要么 ？ IS NULL

AND Source IS N &安培; _

" ULL）AND（Source_Date =？OR？IS NULL和Source_Date IS NULL）和

（Staff_Grade"& _

_1 =？AND（Staff_Grade_2 =？）AND（Staff_Grade_3 =？）AND

（Staff_Grade_4 =？）" &安培; _

" AND（Statement_Address =？OR？IS NULL AND St​​atement_Address IS

NULL）AND（& _

" us =？OR？IS NULL AND St​​atus 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和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和Uniforms_Needed IS NULL）和

（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（新
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（新

System.Data.OleDb.OleDbParameter（" Blocked_Departme nt"，

System.Data.OleDb.OleDbType.VarWChar，50，Blocked_Department））

Me.updcomCompanies.Para meter.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））

我。 updcomCompanies.Parameters.Add（New

System.Data.OleDb.OleDbParameter（Country，

System.Data.OleDb.OleDbType.VarWChar，50，"国家））

Me.updcomCompanies.Parameters.Add（新

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 < br $>
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"，&br />
System.Data.OleDb.OleDbType.VarWChar，80，EMail））

Me.updcomCompanies.Parameters.Add（新

系统.Data.OleDb.OleDbParameter（" Event_Notes"，
System.Data.OleDb.OleDbType.VarWChar，0，" Event_Notes"））

Me.updcomCompanies。 Parameters.Add（New

System.Data.OleDb.OleDbParameter（" Fax"，$ / b
System.Data.OleDb.OleDbType.VarWChar，50，" Fax" ））

Me.updcomCompanies.Parameters.Add（新

System.Data.OleDb.OleDbParameter（&qu） ot; Financial_Commen ts"，

System.Data.OleDb.OleDbType.VarWChar，0，" Financial_Comments"））

Me.updcomCompanies.Parameters.Add（New < br $>
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（新

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（新

System.Data.OleDb.OleDbParam eter（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，父母））

Me.updcomCompanies.Parameters.Add（新

System.Data.OleDb.OleDbParameter（" Payment_Terms"，& br />
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"，$ / b $ 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.OleDbT ype.Boolean，2，" Staff_Grade_1"））

Me.updcomCompanies.Parameters.Add（新
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（新

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.OleDbT ype.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，"电话"））

Me.updcomCompanies.Parameters.Add（新

System.Data.OleDb.OleDbParameter（" TempID"，

System.Data.OleDb.OleDbType.Integer，0，" TempID"））

Me.updcomCompanies.Parameters.Add（新
System.Data.OleDb.OleDbParameter （类型，

System.Data.OleDb.OleDbType.VarWChar，50，类型））

Me.updcomC ompanies.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（新

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。添加（新

System.Data.OleDb.OleDbP arameter（" 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（新

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"，$ / b $ b $ 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，字节），CType（0，字节），

" Area"，System.Data.DataRowVersion。原创，没有））

Me.updcomCompanies.Parameters.Add（新

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，字节），CType（0，字节），

" Blocked"，System.Data.DataRowVersion.Original，Nothing））

Me.updcomCompanies.Parameters.Add（新

System.Data.OleDb.OleDbParameter（" Original_Blocked _Date"，$ / b $ B $ 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.ParameterDirec ing.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"，br />
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.OleD b.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（新

System.D ata.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，字节），

" 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。输入，False，CType（0，字节），CType（0，字节），

" 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.OleDbP arameter（" Original_Created _By1"，

System.Data.OleDb.OleDbType.VarWChar，50，

System.Data.ParameterDirection.Input，False，CType（0，字节），CType（0，字节），

" Created_By"，System.Data.DataRowVersion.Original，Nothing））

Me.updcomCompanies.Parameters.Add（新的

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.updcomCompani es.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。原创，没有））

Me.updcomCompanies.Parameters.Add（新

System.Data.OleDb.OleDbParameter（" Original_Date_Mo dified1"，
$ b） $b 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.DataRo wVersion.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.OleDb Type.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.updc omCompanies.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, Nothi ng))

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.OleDbPa rameter("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.updcomComp anies.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&quo t;, 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.OleDbPa rameter("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.updcomCompani es.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("Ori ginal_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.Parameter s.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.VarWC har, 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...
\t

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...

\t
\t\t\t\tJohn,


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...
\t

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...

\t
\t\t\t\t>Hi

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

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

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

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

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

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

Concurrency violation: the UpdateCommand affected 0 records.

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

Thanks

Regards

>Hi

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

这篇关于更新时发生并发冲突的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！