"John" wrote:

> Hi
>
> vs 2003. vb.net winform db app with ms access backend. I have created the
> data access layer from the code created by the data adapter wizard.
>
> Problem is when MyDataAdapter.Update(MyDataset.MyTable) is executed I get a
> concurrency error. As the code is generated by wizard and not modified by me
> what could be the problem? I vaguely remember that using
> System.Data.OleDb.OleDbType.DBDate parameter type is problematic with MS
> Access backend but am not sure.
>
> The exception stack log is;
>
> System.Data.DBConcurrencyException: Concurrency violation: the UpdateCommand
> affected 0 records.
>    at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows,
> DataTableMapping tableMapping)
>    at System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
>    at Contacts.frmClients.DoUpdate() in C:\Events Manager\Contacts
> Combined\frmClients.vb:line 3289
>
> The second problem is that stack log does not give any detail information on
> what data field etc it has problem with. Is there a way to get more specific
> info on the problem?
>
> Full relevant code is given below. Any ideas to fix this problem would be
> appreciated.
>
> Thanks
>
> Regards
>
>
> =========================================================
>
> daCompanies = New System.Data.OleDb.OleDbDataAdapter
> updcomCompanies = New System.Data.OleDb.OleDbCommand
> daCompanies.UpdateCommand = updcomCompanies
> updcomCompanies.Connection = dbConContacts
>
>
> Table Mapping Code
>
> daCompanies.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
> {New System.Data.Common.DataTableMapping("Table", "tblClients", New
> System.Data.Common.DataColumnMapping() {New
> System.Data.Common.DataColumnMapping("Account_Reference_No",
> "Account_Reference_No"), New System.Data.Common.DataColumnMapping("Address",
> "Address"), New System.Data.Common.DataColumnMapping("Area", "Area"), New
> System.Data.Common.DataColumnMapping("Blocked", "Blocked"), New
> System.Data.Common.DataColumnMapping("Blocked_Date", "Blocked_Date"), New
> System.Data.Common.DataColumnMapping("Blocked_Department",
> "Blocked_Department"), New
> System.Data.Common.DataColumnMapping("Blocked_Reason", "Blocked_Reason"),
> New System.Data.Common.DataColumnMapping("Client_Criteria",
> "Client_Criteria"), New System.Data.Common.DataColumnMapping("Client_Notes",
> "Client_Notes"), New
> System.Data.Common.DataColumnMapping("Client_Specifics",
> "Client_Specifics"), New System.Data.Common.DataColumnMapping("Company",
> "Company"), New
> System.Data.Common.DataColumnMapping("Company_Registration_No",
> "Company_Registration_No"), New
> System.Data.Common.DataColumnMapping("Country", "Country"), New
> System.Data.Common.DataColumnMapping("County", "County"), New
> System.Data.Common.DataColumnMapping("Create_Date", "Create_Date"), New
> System.Data.Common.DataColumnMapping("Create_User", "Create_User"), New
> System.Data.Common.DataColumnMapping("Created_By", "Created_By"), New
> System.Data.Common.DataColumnMapping("Date_Created", "Date_Created"), New
> System.Data.Common.DataColumnMapping("Date_Modified", "Date_Modified"), New
> System.Data.Common.DataColumnMapping("DB_Update_Date", "DB_Update_Date"),
> New System.Data.Common.DataColumnMapping("Directions", "Directions"), New
> System.Data.Common.DataColumnMapping("Elite_Client", "Elite_Client"), New
> System.Data.Common.DataColumnMapping("EMail", "EMail"), New
> System.Data.Common.DataColumnMapping("Event_Notes", "Event_Notes"), New
> System.Data.Common.DataColumnMapping("Fax", "Fax"), New
> System.Data.Common.DataColumnMapping("Fax_Masked", "Fax_Masked"), New
> System.Data.Common.DataColumnMapping("Financial_Comments",
> "Financial_Comments"), New System.Data.Common.DataColumnMapping("Group",
> "Group"), New System.Data.Common.DataColumnMapping("ID", "ID"), New
> System.Data.Common.DataColumnMapping("Image_List", "Image_List"), New
> System.Data.Common.DataColumnMapping("Invoice_Address", "Invoice_Address"),
> New System.Data.Common.DataColumnMapping("Invoice_Company",
> "Invoice_Company"), New
> System.Data.Common.DataColumnMapping("Invoice_Country", "Invoice_Country"),
> New System.Data.Common.DataColumnMapping("Invoice_County",
> "Invoice_County"), New
> System.Data.Common.DataColumnMapping("Invoice_Postcode",
> "Invoice_Postcode"), New System.Data.Common.DataColumnMapping("Map", "Map"),
> New System.Data.Common.DataColumnMapping("Modified_By", "Modified_By"), New
> System.Data.Common.DataColumnMapping("Modify_Date", "Modify_Date"), New
> System.Data.Common.DataColumnMapping("Modify_User", "Modify_User"), New
> System.Data.Common.DataColumnMapping("Nominal", "Nominal"), New
> System.Data.Common.DataColumnMapping("Parent", "Parent"), New
> System.Data.Common.DataColumnMapping("Payment_Terms", "Payment_Terms"), New
> System.Data.Common.DataColumnMapping("People_Client", "People_Client"), New
> System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New
> System.Data.Common.DataColumnMapping("Site_Update_Date",
> "Site_Update_Date"), New System.Data.Common.DataColumnMapping("Sort",
> "Sort"), New System.Data.Common.DataColumnMapping("Source", "Source"), New
> System.Data.Common.DataColumnMapping("Source_Date", "Source_Date"), New
> System.Data.Common.DataColumnMapping("Special_Requirments",
> "Special_Requirments"), New
> System.Data.Common.DataColumnMapping("Staff_Grade_1", "Staff_Grade_1"), New
> System.Data.Common.DataColumnMapping("Staff_Grade_2", "Staff_Grade_2"), New
> System.Data.Common.DataColumnMapping("Staff_Grade_3", "Staff_Grade_3"), New
> System.Data.Common.DataColumnMapping("Staff_Grade_4", "Staff_Grade_4"), New
> System.Data.Common.DataColumnMapping("StaffCategoryReport",
> "StaffCategoryReport"), New
> System.Data.Common.DataColumnMapping("Statement_Address",
> "Statement_Address"), New System.Data.Common.DataColumnMapping("Status",
> "Status"), New System.Data.Common.DataColumnMapping("Status_Date",
> "Status_Date"), New System.Data.Common.DataColumnMapping("Supplier_No",
> "Supplier_No"), New System.Data.Common.DataColumnMapping("Tel", "Tel"), New
> System.Data.Common.DataColumnMapping("Tel_Masked", "Tel_Masked"), New
> System.Data.Common.DataColumnMapping("TempID", "TempID"), New
> System.Data.Common.DataColumnMapping("Type", "Type"), New
> System.Data.Common.DataColumnMapping("Uniforms_Needed", "Uniforms_Needed"),
> New System.Data.Common.DataColumnMapping("Uniforms_Needed_Elite",
> "Uniforms_Needed_Elite"), New
> System.Data.Common.DataColumnMapping("Uniforms_Needed_Tech",
> "Uniforms_Needed_Tech"), New
> System.Data.Common.DataColumnMapping("Venture_Debtor_No",
> "Venture_Debtor_No"), New System.Data.Common.DataColumnMapping("Web",
> "Web"), New System.Data.Common.DataColumnMapping("Web_Enabled",
> "Web_Enabled"), New System.Data.Common.DataColumnMapping("Web_ID",
> "Web_ID")})})
>
>
> Update Command Text
>
> updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No =
> ?, Address = ?, Area = ?, Blocked = " & _
> "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
> Client_Criteria" & _
> " = ?, Client_Notes = ?, Client_Specifics = ?, Company = ?,
> Company_Registration_" & _
> "No = ?, Country = ?, County = ?, Create_Date = ?, Create_User = ?,
> Created_By = " & _
> "?, Date_Created = ?, Date_Modified = ?, DB_Update_Date = ?, Directions = ?,
> Elit" & _
> "e_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?, Fax_Masked = ?,
> Financial_Com" & _
> "ments = ?, [Group] = ?, Image_List = ?, Invoice_Address = ?,
> Invoice_Company = ?" & _
> ", Invoice_Country = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
> Modifi" & _
> "ed_By = ?, Modify_Date = ?, Modify_User = ?, Nominal = ?, Parent = ?,
> Payment_Te" & _
> "rms = ?, People_Client = ?, Postcode = ?, Site_Update_Date = ?, Sort = ?,
> Source" & _
> " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
> Staff_Grade_2" & _
> " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, StaffCategoryReport = ?,
> Statement_A" & _
> "ddress = ?, Status = ?, Status_Date = ?, Supplier_No = ?, Tel = ?,
> Tel_Masked = " & _
> "?, TempID = ?, Type = ?, Uniforms_Needed = ?, Uniforms_Needed_Elite = ?,
> Uniform" & _
> "s_Needed_Tech = ?, Venture_Debtor_No = ?, Web = ?, Web_Enabled = ?, Web_ID
> = ? W" & _
> "HERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL AND
> Account_Reference_N" & _
> "o IS NULL) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (Area = ?
> 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_D" & _
> "epartment IS NULL) AND (Company = ? OR ? IS NULL AND Company IS NULL) AND
> (Compa" & _
> "ny_Registration_No = ? OR ? IS NULL AND Company_Registration_No IS NULL)
> AND (Co" & _
> "untry = ? OR ? IS NULL AND Country IS NULL) AND (County = ? OR ? IS NULL
> AND Cou" & _
> "nty IS NULL) AND (Create_Date = ? OR ? IS NULL AND Create_Date IS NULL) AND
> (Cre" & _
> "ate_User = ? OR ? IS NULL AND Create_User IS NULL) AND (Created_By = ? OR ?
> IS N" & _
> "ULL AND Created_By IS NULL) AND (DB_Update_Date = ? OR ? IS NULL AND
> DB_Update_D" & _
> "ate IS NULL) AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
> AND (D" & _
> "ate_Modified = ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR
> ? IS " & _
> "NULL AND EMail IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL
> AND Fax" & _
> " IS NULL) AND (Fax_Masked = ? OR ? IS NULL AND Fax_Masked 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
> Invoice_Compa" & _
> "ny IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND Invoice_Country IS
> NULL) A" & _
> "ND (Invoice_County = ? OR ? IS NULL AND Invoice_County IS NULL) AND
> (Invoice_Pos" & _
> "tcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND (Modified_By = ?
> OR ? I" & _
> "S NULL AND Modified_By IS NULL) AND (Modify_Date = ? OR ? IS NULL AND
> Modify_Dat" & _
> "e IS NULL) AND (Modify_User = ? OR ? IS NULL AND Modify_User IS NULL) AND
> (Nomin" & _
> "al = ? OR ? IS NULL AND Nominal IS NULL) AND (Parent = ? OR ? IS NULL AND
> Parent" & _
> " IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms IS NULL)
> AND (Pe" & _
> "ople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS NULL) AND
> (Site_" & _
> "Update_Date = ? OR ? IS NULL AND Site_Update_Date IS NULL) AND (Sort = ? OR
> ? IS" & _
> " NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL AND Source IS NULL)
> AND (So" & _
> "urce_Date = ? OR ? IS NULL AND Source_Date IS NULL) AND
> (StaffCategoryReport = ?" & _
> ") AND (Staff_Grade_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?)
> AND (S" & _
> "taff_Grade_4 = ?) AND (Statement_Address = ? OR ? IS NULL AND
> Statement_Address " & _
> "IS NULL) AND (Status = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date
> = ? O" & _
> "R ? IS NULL AND Status_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
> Suppl" & _
> "ier_No IS NULL) AND (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (Tel_Masked
> = ? O" & _
> "R ? IS NULL AND Tel_Masked IS NULL) AND (TempID = ? OR ? IS NULL AND TempID
> IS N" & _
> "ULL) 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
> NULL A" & _
> "ND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ? OR ? IS NULL
> AND Ven" & _
> "ture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS NULL) AND
> (Web_Enab" & _
> "led = ?) AND (Web_ID = ? OR ? IS NULL AND Web_ID IS NULL)"
>
>
> Update Command Parameters
>
>
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Account_Reference_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Address",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Area",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked",
> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Department",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Reason",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Criteria",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Criteria"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Notes",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Specifics",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Company",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Company_Registration_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Country",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("County",
> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Create_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Create_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Create_User",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Create_User"))
> 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

"John Bundy" <jmbu***@gmail.com(remove)> wrote in message
news:1ABAF7FE-0915-4B22-87A1-9300867C84EC@microsoft.com...
>I don't recall if it was the same error, but do you have a key defined both
> in the database and in your program? Also, there is a setting under
> advanced
> options in the table adapter configuration that lets you specify
> concurrent
> updates etc.
> --
> -John http://www.jmbundy.blogspot.com/
> Please rate when your question is answered to help us and others know what
> is helpful.
>
>
> "John" wrote:
>
>> Hi
>>
>> vs 2003. vb.net winform db app with ms access backend. I have created the
>> data access layer from the code created by the data adapter wizard.
>>
>> Problem is when MyDataAdapter.Update(MyDataset.MyTable) is executed I get
>> a
>> concurrency error. As the code is generated by wizard and not modified by
>> me
>> what could be the problem? I vaguely remember that using
>> System.Data.OleDb.OleDbType.DBDate parameter type is problematic with MS
>> Access backend but am not sure.
>>
>> The exception stack log is;
>>
>> System.Data.DBConcurrencyException: Concurrency violation: the
>> UpdateCommand
>> affected 0 records.
>>    at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows,
>> DataTableMapping tableMapping)
>>    at System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
>>    at Contacts.frmClients.DoUpdate() in C:\Events Manager\Contacts
>> Combined\frmClients.vb:line 3289
>>
>> The second problem is that stack log does not give any detail information
>> on
>> what data field etc it has problem with. Is there a way to get more
>> specific
>> info on the problem?
>>
>> Full relevant code is given below. Any ideas to fix this problem would be
>> appreciated.
>>
>> Thanks
>>
>> Regards
>>
>>
>> =========================================================
>>
>> daCompanies = New System.Data.OleDb.OleDbDataAdapter
>> updcomCompanies = New System.Data.OleDb.OleDbCommand
>> daCompanies.UpdateCommand = updcomCompanies
>> updcomCompanies.Connection = dbConContacts
>>
>>
>> Table Mapping Code
>>
>> daCompanies.TableMappings.AddRange(New
>> System.Data.Common.DataTableMapping()
>> {New System.Data.Common.DataTableMapping("Table", "tblClients", New
>> System.Data.Common.DataColumnMapping() {New
>> System.Data.Common.DataColumnMapping("Account_Reference_No",
>> "Account_Reference_No"), New
>> System.Data.Common.DataColumnMapping("Address",
>> "Address"), New System.Data.Common.DataColumnMapping("Area", "Area"), New
>> System.Data.Common.DataColumnMapping("Blocked", "Blocked"), New
>> System.Data.Common.DataColumnMapping("Blocked_Date", "Blocked_Date"), New
>> System.Data.Common.DataColumnMapping("Blocked_Department",
>> "Blocked_Department"), New
>> System.Data.Common.DataColumnMapping("Blocked_Reason", "Blocked_Reason"),
>> New System.Data.Common.DataColumnMapping("Client_Criteria",
>> "Client_Criteria"), New
>> System.Data.Common.DataColumnMapping("Client_Notes",
>> "Client_Notes"), New
>> System.Data.Common.DataColumnMapping("Client_Specifics",
>> "Client_Specifics"), New System.Data.Common.DataColumnMapping("Company",
>> "Company"), New
>> System.Data.Common.DataColumnMapping("Company_Registration_No",
>> "Company_Registration_No"), New
>> System.Data.Common.DataColumnMapping("Country", "Country"), New
>> System.Data.Common.DataColumnMapping("County", "County"), New
>> System.Data.Common.DataColumnMapping("Create_Date", "Create_Date"), New
>> System.Data.Common.DataColumnMapping("Create_User", "Create_User"), New
>> System.Data.Common.DataColumnMapping("Created_By", "Created_By"), New
>> System.Data.Common.DataColumnMapping("Date_Created", "Date_Created"), New
>> System.Data.Common.DataColumnMapping("Date_Modified", "Date_Modified"),
>> New
>> System.Data.Common.DataColumnMapping("DB_Update_Date", "DB_Update_Date"),
>> New System.Data.Common.DataColumnMapping("Directions", "Directions"), New
>> System.Data.Common.DataColumnMapping("Elite_Client", "Elite_Client"), New
>> System.Data.Common.DataColumnMapping("EMail", "EMail"), New
>> System.Data.Common.DataColumnMapping("Event_Notes", "Event_Notes"), New
>> System.Data.Common.DataColumnMapping("Fax", "Fax"), New
>> System.Data.Common.DataColumnMapping("Fax_Masked", "Fax_Masked"), New
>> System.Data.Common.DataColumnMapping("Financial_Comments",
>> "Financial_Comments"), New System.Data.Common.DataColumnMapping("Group",
>> "Group"), New System.Data.Common.DataColumnMapping("ID", "ID"), New
>> System.Data.Common.DataColumnMapping("Image_List", "Image_List"), New
>> System.Data.Common.DataColumnMapping("Invoice_Address",
>> "Invoice_Address"),
>> New System.Data.Common.DataColumnMapping("Invoice_Company",
>> "Invoice_Company"), New
>> System.Data.Common.DataColumnMapping("Invoice_Country",
>> "Invoice_Country"),
>> New System.Data.Common.DataColumnMapping("Invoice_County",
>> "Invoice_County"), New
>> System.Data.Common.DataColumnMapping("Invoice_Postcode",
>> "Invoice_Postcode"), New System.Data.Common.DataColumnMapping("Map",
>> "Map"),
>> New System.Data.Common.DataColumnMapping("Modified_By", "Modified_By"),
>> New
>> System.Data.Common.DataColumnMapping("Modify_Date", "Modify_Date"), New
>> System.Data.Common.DataColumnMapping("Modify_User", "Modify_User"), New
>> System.Data.Common.DataColumnMapping("Nominal", "Nominal"), New
>> System.Data.Common.DataColumnMapping("Parent", "Parent"), New
>> System.Data.Common.DataColumnMapping("Payment_Terms", "Payment_Terms"),
>> New
>> System.Data.Common.DataColumnMapping("People_Client", "People_Client"),
>> New
>> System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New
>> System.Data.Common.DataColumnMapping("Site_Update_Date",
>> "Site_Update_Date"), New System.Data.Common.DataColumnMapping("Sort",
>> "Sort"), New System.Data.Common.DataColumnMapping("Source", "Source"),
>> New
>> System.Data.Common.DataColumnMapping("Source_Date", "Source_Date"), New
>> System.Data.Common.DataColumnMapping("Special_Requirments",
>> "Special_Requirments"), New
>> System.Data.Common.DataColumnMapping("Staff_Grade_1", "Staff_Grade_1"),
>> New
>> System.Data.Common.DataColumnMapping("Staff_Grade_2", "Staff_Grade_2"),
>> New
>> System.Data.Common.DataColumnMapping("Staff_Grade_3", "Staff_Grade_3"),
>> New
>> System.Data.Common.DataColumnMapping("Staff_Grade_4", "Staff_Grade_4"),
>> New
>> System.Data.Common.DataColumnMapping("StaffCategoryReport",
>> "StaffCategoryReport"), New
>> System.Data.Common.DataColumnMapping("Statement_Address",
>> "Statement_Address"), New System.Data.Common.DataColumnMapping("Status",
>> "Status"), New System.Data.Common.DataColumnMapping("Status_Date",
>> "Status_Date"), New System.Data.Common.DataColumnMapping("Supplier_No",
>> "Supplier_No"), New System.Data.Common.DataColumnMapping("Tel", "Tel"),
>> New
>> System.Data.Common.DataColumnMapping("Tel_Masked", "Tel_Masked"), New
>> System.Data.Common.DataColumnMapping("TempID", "TempID"), New
>> System.Data.Common.DataColumnMapping("Type", "Type"), New
>> System.Data.Common.DataColumnMapping("Uniforms_Needed",
>> "Uniforms_Needed"),
>> New System.Data.Common.DataColumnMapping("Uniforms_Needed_Elite",
>> "Uniforms_Needed_Elite"), New
>> System.Data.Common.DataColumnMapping("Uniforms_Needed_Tech",
>> "Uniforms_Needed_Tech"), New
>> System.Data.Common.DataColumnMapping("Venture_Debtor_No",
>> "Venture_Debtor_No"), New System.Data.Common.DataColumnMapping("Web",
>> "Web"), New System.Data.Common.DataColumnMapping("Web_Enabled",
>> "Web_Enabled"), New System.Data.Common.DataColumnMapping("Web_ID",
>> "Web_ID")})})
>>
>>
>> Update Command Text
>>
>> updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
>> =
>> ?, Address = ?, Area = ?, Blocked = " & _
>> "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
>> Client_Criteria" & _
>> " = ?, Client_Notes = ?, Client_Specifics = ?, Company = ?,
>> Company_Registration_" & _
>> "No = ?, Country = ?, County = ?, Create_Date = ?, Create_User = ?,
>> Created_By = " & _
>> "?, Date_Created = ?, Date_Modified = ?, DB_Update_Date = ?, Directions =
>> ?,
>> Elit" & _
>> "e_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?, Fax_Masked = ?,
>> Financial_Com" & _
>> "ments = ?, [Group] = ?, Image_List = ?, Invoice_Address = ?,
>> Invoice_Company = ?" & _
>> ", Invoice_Country = ?, Invoice_County = ?, Invoice_Postcode = ?, Map =
>> ?,
>> Modifi" & _
>> "ed_By = ?, Modify_Date = ?, Modify_User = ?, Nominal = ?, Parent = ?,
>> Payment_Te" & _
>> "rms = ?, People_Client = ?, Postcode = ?, Site_Update_Date = ?, Sort =
>> ?,
>> Source" & _
>> " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
>> Staff_Grade_2" & _
>> " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, StaffCategoryReport = ?,
>> Statement_A" & _
>> "ddress = ?, Status = ?, Status_Date = ?, Supplier_No = ?, Tel = ?,
>> Tel_Masked = " & _
>> "?, TempID = ?, Type = ?, Uniforms_Needed = ?, Uniforms_Needed_Elite = ?,
>> Uniform" & _
>> "s_Needed_Tech = ?, Venture_Debtor_No = ?, Web = ?, Web_Enabled = ?,
>> Web_ID
>> = ? W" & _
>> "HERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL AND
>> Account_Reference_N" & _
>> "o IS NULL) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (Area
>> = ?
>> 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_D" & _
>> "epartment IS NULL) AND (Company = ? OR ? IS NULL AND Company IS NULL)
>> AND
>> (Compa" & _
>> "ny_Registration_No = ? OR ? IS NULL AND Company_Registration_No IS NULL)
>> AND (Co" & _
>> "untry = ? OR ? IS NULL AND Country IS NULL) AND (County = ? OR ? IS NULL
>> AND Cou" & _
>> "nty IS NULL) AND (Create_Date = ? OR ? IS NULL AND Create_Date IS NULL)
>> AND
>> (Cre" & _
>> "ate_User = ? OR ? IS NULL AND Create_User IS NULL) AND (Created_By = ?
>> OR ?
>> IS N" & _
>> "ULL AND Created_By IS NULL) AND (DB_Update_Date = ? OR ? IS NULL AND
>> DB_Update_D" & _
>> "ate IS NULL) AND (Date_Created = ? OR ? IS NULL AND Date_Created IS
>> NULL)
>> AND (D" & _
>> "ate_Modified = ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ?
>> OR
>> ? IS " & _
>> "NULL AND EMail IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL
>> AND Fax" & _
>> " IS NULL) AND (Fax_Masked = ? OR ? IS NULL AND Fax_Masked 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
>> Invoice_Compa" & _
>> "ny IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND Invoice_Country IS
>> NULL) A" & _
>> "ND (Invoice_County = ? OR ? IS NULL AND Invoice_County IS NULL) AND
>> (Invoice_Pos" & _
>> "tcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND (Modified_By =
>> ?
>> OR ? I" & _
>> "S NULL AND Modified_By IS NULL) AND (Modify_Date = ? OR ? IS NULL AND
>> Modify_Dat" & _
>> "e IS NULL) AND (Modify_User = ? OR ? IS NULL AND Modify_User IS NULL)
>> AND
>> (Nomin" & _
>> "al = ? OR ? IS NULL AND Nominal IS NULL) AND (Parent = ? OR ? IS NULL
>> AND
>> Parent" & _
>> " IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms IS NULL)
>> AND (Pe" & _
>> "ople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS NULL)
>> AND
>> (Site_" & _
>> "Update_Date = ? OR ? IS NULL AND Site_Update_Date IS NULL) AND (Sort = ?
>> OR
>> ? IS" & _
>> " NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL AND Source IS NULL)
>> AND (So" & _
>> "urce_Date = ? OR ? IS NULL AND Source_Date IS NULL) AND
>> (StaffCategoryReport = ?" & _
>> ") AND (Staff_Grade_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 =
>> ?)
>> AND (S" & _
>> "taff_Grade_4 = ?) AND (Statement_Address = ? OR ? IS NULL AND
>> Statement_Address " & _
>> "IS NULL) AND (Status = ? OR ? IS NULL AND Status IS NULL) AND
>> (Status_Date
>> = ? O" & _
>> "R ? IS NULL AND Status_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL
>> AND
>> Suppl" & _
>> "ier_No IS NULL) AND (Tel = ? OR ? IS NULL AND Tel IS NULL) AND
>> (Tel_Masked
>> = ? O" & _
>> "R ? IS NULL AND Tel_Masked IS NULL) AND (TempID = ? OR ? IS NULL AND
>> TempID
>> IS N" & _
>> "ULL) 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
>> NULL A" & _
>> "ND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ? OR ? IS NULL
>> AND Ven" & _
>> "ture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS NULL) AND
>> (Web_Enab" & _
>> "led = ?) AND (Web_ID = ? OR ? IS NULL AND Web_ID IS NULL)"
>>
>>
>> Update Command Parameters
>>
>>
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Address",
>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Area",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked_Department",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Client_Criteria",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Criteria"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Client_Notes",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Client_Specifics",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Company",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Country",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("County",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Create_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Create_Date"))
>> Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Create_User",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Create_User"))
>> 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

"John" <info@nospam.infovis.co.uk> wrote in message
news:ugQVeHm$JHA.1376@TK2MSFTNGP02.phx.gbl...
> Hi
>
> vs 2003. vb.net winform db app with ms access backend. I have created the
> data access layer from the code created by the data adapter wizard.
>
> Problem is when MyDataAdapter.Update(MyDataset.MyTable) is executed I get
> a concurrency error. As the code is generated by wizard and not modified
> by me what could be the problem? I vaguely remember that using
> System.Data.OleDb.OleDbType.DBDate parameter type is problematic with MS
> Access backend but am not sure.
>
> The exception stack log is;
>
> System.Data.DBConcurrencyException: Concurrency violation: the
> UpdateCommand affected 0 records.
>   at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows,
> DataTableMapping tableMapping)
>   at System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
>   at Contacts.frmClients.DoUpdate() in C:\Events Manager\Contacts
> Combined\frmClients.vb:line 3289
>
> The second problem is that stack log does not give any detail information
> on what data field etc it has problem with. Is there a way to get more
> specific info on the problem?
>
> Full relevant code is given below. Any ideas to fix this problem would be
> appreciated.
>
> Thanks
>
> Regards
>
>
> =========================================================
>
> daCompanies = New System.Data.OleDb.OleDbDataAdapter
> updcomCompanies = New System.Data.OleDb.OleDbCommand
> daCompanies.UpdateCommand = updcomCompanies
> updcomCompanies.Connection = dbConContacts
>
>
> Table Mapping Code
>
> daCompanies.TableMappings.AddRange(New
> System.Data.Common.DataTableMapping() {New
> System.Data.Common.DataTableMapping("Table", "tblClients", New
> System.Data.Common.DataColumnMapping() {New
> System.Data.Common.DataColumnMapping("Account_Reference_No",
> "Account_Reference_No"), New
> System.Data.Common.DataColumnMapping("Address", "Address"), New
> System.Data.Common.DataColumnMapping("Area", "Area"), New
> System.Data.Common.DataColumnMapping("Blocked", "Blocked"), New
> System.Data.Common.DataColumnMapping("Blocked_Date", "Blocked_Date"), New
> System.Data.Common.DataColumnMapping("Blocked_Department",
> "Blocked_Department"), New
> System.Data.Common.DataColumnMapping("Blocked_Reason", "Blocked_Reason"),
> New System.Data.Common.DataColumnMapping("Client_Criteria",
> "Client_Criteria"), New
> System.Data.Common.DataColumnMapping("Client_Notes", "Client_Notes"), New
> System.Data.Common.DataColumnMapping("Client_Specifics",
> "Client_Specifics"), New System.Data.Common.DataColumnMapping("Company",
> "Company"), New
> System.Data.Common.DataColumnMapping("Company_Registration_No",
> "Company_Registration_No"), New
> System.Data.Common.DataColumnMapping("Country", "Country"), New
> System.Data.Common.DataColumnMapping("County", "County"), New
> System.Data.Common.DataColumnMapping("Create_Date", "Create_Date"), New
> System.Data.Common.DataColumnMapping("Create_User", "Create_User"), New
> System.Data.Common.DataColumnMapping("Created_By", "Created_By"), New
> System.Data.Common.DataColumnMapping("Date_Created", "Date_Created"), New
> System.Data.Common.DataColumnMapping("Date_Modified", "Date_Modified"),
> New System.Data.Common.DataColumnMapping("DB_Update_Date",
> "DB_Update_Date"), New System.Data.Common.DataColumnMapping("Directions",
> "Directions"), New System.Data.Common.DataColumnMapping("Elite_Client",
> "Elite_Client"), New System.Data.Common.DataColumnMapping("EMail",
> "EMail"), New System.Data.Common.DataColumnMapping("Event_Notes",
> "Event_Notes"), New System.Data.Common.DataColumnMapping("Fax", "Fax"),
> New System.Data.Common.DataColumnMapping("Fax_Masked", "Fax_Masked"), New
> System.Data.Common.DataColumnMapping("Financial_Comments",
> "Financial_Comments"), New System.Data.Common.DataColumnMapping("Group",
> "Group"), New System.Data.Common.DataColumnMapping("ID", "ID"), New
> System.Data.Common.DataColumnMapping("Image_List", "Image_List"), New
> System.Data.Common.DataColumnMapping("Invoice_Address",
> "Invoice_Address"), New
> System.Data.Common.DataColumnMapping("Invoice_Company",
> "Invoice_Company"), New
> System.Data.Common.DataColumnMapping("Invoice_Country",
> "Invoice_Country"), New
> System.Data.Common.DataColumnMapping("Invoice_County", "Invoice_County"),
> New System.Data.Common.DataColumnMapping("Invoice_Postcode",
> "Invoice_Postcode"), New System.Data.Common.DataColumnMapping("Map",
> "Map"), New System.Data.Common.DataColumnMapping("Modified_By",
> "Modified_By"), New System.Data.Common.DataColumnMapping("Modify_Date",
> "Modify_Date"), New System.Data.Common.DataColumnMapping("Modify_User",
> "Modify_User"), New System.Data.Common.DataColumnMapping("Nominal",
> "Nominal"), New System.Data.Common.DataColumnMapping("Parent", "Parent"),
> New System.Data.Common.DataColumnMapping("Payment_Terms",
> "Payment_Terms"), New
> System.Data.Common.DataColumnMapping("People_Client", "People_Client"),
> New System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New
> System.Data.Common.DataColumnMapping("Site_Update_Date",
> "Site_Update_Date"), New System.Data.Common.DataColumnMapping("Sort",
> "Sort"), New System.Data.Common.DataColumnMapping("Source", "Source"), New
> System.Data.Common.DataColumnMapping("Source_Date", "Source_Date"), New
> System.Data.Common.DataColumnMapping("Special_Requirments",
> "Special_Requirments"), New
> System.Data.Common.DataColumnMapping("Staff_Grade_1", "Staff_Grade_1"),
> New System.Data.Common.DataColumnMapping("Staff_Grade_2",
> "Staff_Grade_2"), New
> System.Data.Common.DataColumnMapping("Staff_Grade_3", "Staff_Grade_3"),
> New System.Data.Common.DataColumnMapping("Staff_Grade_4",
> "Staff_Grade_4"), New
> System.Data.Common.DataColumnMapping("StaffCategoryReport",
> "StaffCategoryReport"), New
> System.Data.Common.DataColumnMapping("Statement_Address",
> "Statement_Address"), New System.Data.Common.DataColumnMapping("Status",
> "Status"), New System.Data.Common.DataColumnMapping("Status_Date",
> "Status_Date"), New System.Data.Common.DataColumnMapping("Supplier_No",
> "Supplier_No"), New System.Data.Common.DataColumnMapping("Tel", "Tel"),
> New System.Data.Common.DataColumnMapping("Tel_Masked", "Tel_Masked"), New
> System.Data.Common.DataColumnMapping("TempID", "TempID"), New
> System.Data.Common.DataColumnMapping("Type", "Type"), New
> System.Data.Common.DataColumnMapping("Uniforms_Needed",
> "Uniforms_Needed"), New
> System.Data.Common.DataColumnMapping("Uniforms_Needed_Elite",
> "Uniforms_Needed_Elite"), New
> System.Data.Common.DataColumnMapping("Uniforms_Needed_Tech",
> "Uniforms_Needed_Tech"), New
> System.Data.Common.DataColumnMapping("Venture_Debtor_No",
> "Venture_Debtor_No"), New System.Data.Common.DataColumnMapping("Web",
> "Web"), New System.Data.Common.DataColumnMapping("Web_Enabled",
> "Web_Enabled"), New System.Data.Common.DataColumnMapping("Web_ID",
> "Web_ID")})})
>
>
> Update Command Text
>
> updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
> = ?, Address = ?, Area = ?, Blocked = " & _
> "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
> Client_Criteria" & _
> " = ?, Client_Notes = ?, Client_Specifics = ?, Company = ?,
> Company_Registration_" & _
> "No = ?, Country = ?, County = ?, Create_Date = ?, Create_User = ?,
> Created_By = " & _
> "?, Date_Created = ?, Date_Modified = ?, DB_Update_Date = ?, Directions =
> ?, Elit" & _
> "e_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?, Fax_Masked = ?,
> Financial_Com" & _
> "ments = ?, [Group] = ?, Image_List = ?, Invoice_Address = ?,
> Invoice_Company = ?" & _
> ", Invoice_Country = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
> Modifi" & _
> "ed_By = ?, Modify_Date = ?, Modify_User = ?, Nominal = ?, Parent = ?,
> Payment_Te" & _
> "rms = ?, People_Client = ?, Postcode = ?, Site_Update_Date = ?, Sort = ?,
> Source" & _
> " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
> Staff_Grade_2" & _
> " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, StaffCategoryReport = ?,
> Statement_A" & _
> "ddress = ?, Status = ?, Status_Date = ?, Supplier_No = ?, Tel = ?,
> Tel_Masked = " & _
> "?, TempID = ?, Type = ?, Uniforms_Needed = ?, Uniforms_Needed_Elite = ?,
> Uniform" & _
> "s_Needed_Tech = ?, Venture_Debtor_No = ?, Web = ?, Web_Enabled = ?,
> Web_ID = ? W" & _
> "HERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL AND
> Account_Reference_N" & _
> "o IS NULL) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (Area =
> ? 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_D" & _
> "epartment IS NULL) AND (Company = ? OR ? IS NULL AND Company IS NULL) AND
> (Compa" & _
> "ny_Registration_No = ? OR ? IS NULL AND Company_Registration_No IS NULL)
> AND (Co" & _
> "untry = ? OR ? IS NULL AND Country IS NULL) AND (County = ? OR ? IS NULL
> AND Cou" & _
> "nty IS NULL) AND (Create_Date = ? OR ? IS NULL AND Create_Date IS NULL)
> AND (Cre" & _
> "ate_User = ? OR ? IS NULL AND Create_User IS NULL) AND (Created_By = ? OR
> ? IS N" & _
> "ULL AND Created_By IS NULL) AND (DB_Update_Date = ? OR ? IS NULL AND
> DB_Update_D" & _
> "ate IS NULL) AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
> AND (D" & _
> "ate_Modified = ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ?
> OR ? IS " & _
> "NULL AND EMail IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL
> AND Fax" & _
> " IS NULL) AND (Fax_Masked = ? OR ? IS NULL AND Fax_Masked 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
> Invoice_Compa" & _
> "ny IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND Invoice_Country IS
> NULL) A" & _
> "ND (Invoice_County = ? OR ? IS NULL AND Invoice_County IS NULL) AND
> (Invoice_Pos" & _
> "tcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND (Modified_By = ?
> OR ? I" & _
> "S NULL AND Modified_By IS NULL) AND (Modify_Date = ? OR ? IS NULL AND
> Modify_Dat" & _
> "e IS NULL) AND (Modify_User = ? OR ? IS NULL AND Modify_User IS NULL) AND
> (Nomin" & _
> "al = ? OR ? IS NULL AND Nominal IS NULL) AND (Parent = ? OR ? IS NULL AND
> Parent" & _
> " IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms IS NULL)
> AND (Pe" & _
> "ople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS NULL) AND
> (Site_" & _
> "Update_Date = ? OR ? IS NULL AND Site_Update_Date IS NULL) AND (Sort = ?
> OR ? IS" & _
> " NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL AND Source IS NULL)
> AND (So" & _
> "urce_Date = ? OR ? IS NULL AND Source_Date IS NULL) AND
> (StaffCategoryReport = ?" & _
> ") AND (Staff_Grade_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?)
> AND (S" & _
> "taff_Grade_4 = ?) AND (Statement_Address = ? OR ? IS NULL AND
> Statement_Address " & _
> "IS NULL) AND (Status = ? OR ? IS NULL AND Status IS NULL) AND
> (Status_Date = ? O" & _
> "R ? IS NULL AND Status_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL
> AND Suppl" & _
> "ier_No IS NULL) AND (Tel = ? OR ? IS NULL AND Tel IS NULL) AND
> (Tel_Masked = ? O" & _
> "R ? IS NULL AND Tel_Masked IS NULL) AND (TempID = ? OR ? IS NULL AND
> TempID IS N" & _
> "ULL) 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
> NULL A" & _
> "ND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ? OR ? IS NULL
> AND Ven" & _
> "ture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS NULL) AND
> (Web_Enab" & _
> "led = ?) AND (Web_ID = ? OR ? IS NULL AND Web_ID IS NULL)"
>
>
> Update Command Parameters
>
>
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Account_Reference_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Address",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Area",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked",
> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Department",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Reason",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Criteria",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Criteria"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Notes",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Specifics",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Company",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Company_Registration_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Country",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("County",
> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Create_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Create_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Create_User",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Create_User"))
> 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("DB_Update_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "DB_Update_Date"))
> 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("Fax_Masked",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax_Masked"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Financial_Comments",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Group",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Image_List",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Address",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Company",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Country",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_County",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Map",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Modified_By",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Modify_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Modify_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Modify_User",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Modify_User"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Nominal",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Nominal"))
> 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("Site_Update_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Site_Update_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Sort",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Source",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Source_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Special_Requirments",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("StaffCategoryReport",
> System.Data.OleDb.OleDbType.Boolean, 2, "StaffCategoryReport"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Statement_Address",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Status",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Status_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Supplier_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Tel",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Tel_Masked",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel_Masked"))
> 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("Web_Enabled",
> System.Data.OleDb.OleDbType.Boolean, 2, "Web_Enabled"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Web_ID",
> System.Data.OleDb.OleDbType.Integer, 0, "Web_ID"))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_ID",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Address",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Address1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Area",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Area1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Country",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Country1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_County",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_County1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Create_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Create_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Create_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Create_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Create_User",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Create_User", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Create_User1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Create_User", 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_DB_Update_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "DB_Update_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_DB_Update_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "DB_Update_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Created",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_EMail",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_EMail1",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Fax",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Fax1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Fax_Masked",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Fax_Masked", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Fax_Masked1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Fax_Masked", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Group",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Group1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modified_By",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modify_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modify_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modify_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modify_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modify_User",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modify_User", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modify_User1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modify_User", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Nominal",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Nominal", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Nominal1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Nominal", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Parent",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Parent1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_People_Client",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Postcode1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Site_Update_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Site_Update_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Site_Update_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Site_Update_Date", 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_StaffCategoryReport",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "StaffCategoryReport", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Statement_Address", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Statement_Address", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Tel",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Tel1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Tel_Masked",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Tel_Masked", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Tel_Masked1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Tel_Masked", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_TempID",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_TempID1",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Type",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Type1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
> Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web1",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web_Enabled",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web_Enabled", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web_ID",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web_ID", System.Data.DataRowVersion.Original, Nothing))
> Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web_ID1",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web_ID", System.Data.DataRowVersion.Original, Nothing))
>

On Jul 6, 11:35 pm, "Cor Ligthert[MVP]" <Notmyfirstn***@planet.nl>
wrote:
> John,
>
> In my opinion is your first problem, that you have done everything inline..
>
> It is not maintainable.
>
> I know no OleDBParamater issues other then that they have to be in the
> sequence from the way they are used in the SQL transact statements, but that
> is hard to check looking how many you have in one method.
>
> Cor
>
> "John" <i...@nospam.infovis.co.uk> wrote in message
>
> news:ugQVeHm$JHA.1376@TK2MSFTNGP02.phx.gbl...
>
>
>
> > Hi
>
> > vs 2003. vb.net winform db app with ms access backend. I have created the
> > data access layer from the code created by the data adapter wizard.
>
> > Problem is when MyDataAdapter.Update(MyDataset.MyTable) is executed I get
> > a concurrency error. As the code is generated by wizard and not modified
> > by me what could be the problem? I vaguely remember that using
> > System.Data.OleDb.OleDbType.DBDate parameter type is problematic with MS
> > Access backend but am not sure.
>
> > The exception stack log is;
>
> > System.Data.DBConcurrencyException: Concurrency violation: the
> > UpdateCommand affected 0 records.
> >   at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows,
> > DataTableMapping tableMapping)
> >   at System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
> >   at Contacts.frmClients.DoUpdate() in C:\Events Manager\Contacts
> > Combined\frmClients.vb:line 3289
>
> > The second problem is that stack log does not give any detail information
> > on what data field etc it has problem with. Is there a way to get more
> > specific info on the problem?
>
> > Full relevant code is given below. Any ideas to fix this problem would be
> > appreciated.
>
> > Thanks
>
> > Regards
>
> > =========================================================
>
> > daCompanies = New System.Data.OleDb.OleDbDataAdapter
> > updcomCompanies = New System.Data.OleDb.OleDbCommand
> > daCompanies.UpdateCommand = updcomCompanies
> > updcomCompanies.Connection = dbConContacts
>
> > Table Mapping Code
>
> > daCompanies.TableMappings.AddRange(New
> > System.Data.Common.DataTableMapping() {New
> > System.Data.Common.DataTableMapping("Table", "tblClients", New
> > System.Data.Common.DataColumnMapping() {New
> > System.Data.Common.DataColumnMapping("Account_Reference_No",
> > "Account_Reference_No"), New
> > System.Data.Common.DataColumnMapping("Address", "Address"), New
> > System.Data.Common.DataColumnMapping("Area", "Area"), New
> > System.Data.Common.DataColumnMapping("Blocked", "Blocked"), New
> > System.Data.Common.DataColumnMapping("Blocked_Date", "Blocked_Date"), New
> > System.Data.Common.DataColumnMapping("Blocked_Department",
> > "Blocked_Department"), New
> > System.Data.Common.DataColumnMapping("Blocked_Reason", "Blocked_Reason"),
> > New System.Data.Common.DataColumnMapping("Client_Criteria",
> > "Client_Criteria"), New
> > System.Data.Common.DataColumnMapping("Client_Notes", "Client_Notes"), New
> > System.Data.Common.DataColumnMapping("Client_Specifics",
> > "Client_Specifics"), New System.Data.Common.DataColumnMapping("Company",
> > "Company"), New
> > System.Data.Common.DataColumnMapping("Company_Registration_No",
> > "Company_Registration_No"), New
> > System.Data.Common.DataColumnMapping("Country", "Country"), New
> > System.Data.Common.DataColumnMapping("County", "County"), New
> > System.Data.Common.DataColumnMapping("Create_Date", "Create_Date"), New
> > System.Data.Common.DataColumnMapping("Create_User", "Create_User"), New
> > System.Data.Common.DataColumnMapping("Created_By", "Created_By"), New
> > System.Data.Common.DataColumnMapping("Date_Created", "Date_Created"), New
> > System.Data.Common.DataColumnMapping("Date_Modified", "Date_Modified"),
> > New System.Data.Common.DataColumnMapping("DB_Update_Date",
> > "DB_Update_Date"), New System.Data.Common.DataColumnMapping("Directions",
> > "Directions"), New System.Data.Common.DataColumnMapping("Elite_Client",
> > "Elite_Client"), New System.Data.Common.DataColumnMapping("EMail",
> > "EMail"), New System.Data.Common.DataColumnMapping("Event_Notes",
> > "Event_Notes"), New System.Data.Common.DataColumnMapping("Fax", "Fax"),
> > New System.Data.Common.DataColumnMapping("Fax_Masked", "Fax_Masked"), New
> > System.Data.Common.DataColumnMapping("Financial_Comments",
> > "Financial_Comments"), New System.Data.Common.DataColumnMapping("Group",
> > "Group"), New System.Data.Common.DataColumnMapping("ID", "ID"), New
> > System.Data.Common.DataColumnMapping("Image_List", "Image_List"), New
> > System.Data.Common.DataColumnMapping("Invoice_Address",
> > "Invoice_Address"), New
> > System.Data.Common.DataColumnMapping("Invoice_Company",
> > "Invoice_Company"), New
> > System.Data.Common.DataColumnMapping("Invoice_Country",
> > "Invoice_Country"), New
> > System.Data.Common.DataColumnMapping("Invoice_County", "Invoice_County"),
> > New System.Data.Common.DataColumnMapping("Invoice_Postcode",
> > "Invoice_Postcode"), New System.Data.Common.DataColumnMapping("Map",
> > "Map"), New System.Data.Common.DataColumnMapping("Modified_By",
> > "Modified_By"), New System.Data.Common.DataColumnMapping("Modify_Date",
> > "Modify_Date"), New System.Data.Common.DataColumnMapping("Modify_User",
> > "Modify_User"), New System.Data.Common.DataColumnMapping("Nominal",
> > "Nominal"), New System.Data.Common.DataColumnMapping("Parent", "Parent"),
> > New System.Data.Common.DataColumnMapping("Payment_Terms",
> > "Payment_Terms"), New
> > System.Data.Common.DataColumnMapping("People_Client", "People_Client"),
> > New System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New
> > System.Data.Common.DataColumnMapping("Site_Update_Date",
> > "Site_Update_Date"), New System.Data.Common.DataColumnMapping("Sort",
> > "Sort"), New System.Data.Common.DataColumnMapping("Source", "Source"), New
> > System.Data.Common.DataColumnMapping("Source_Date", "Source_Date"), New
> > System.Data.Common.DataColumnMapping("Special_Requirments",
> > "Special_Requirments"), New
> > System.Data.Common.DataColumnMapping("Staff_Grade_1", "Staff_Grade_1"),
> > New System.Data.Common.DataColumnMapping("Staff_Grade_2",
> > "Staff_Grade_2"), New
> > System.Data.Common.DataColumnMapping("Staff_Grade_3", "Staff_Grade_3"),
> > New System.Data.Common.DataColumnMapping("Staff_Grade_4",
> > "Staff_Grade_4"), New
> > System.Data.Common.DataColumnMapping("StaffCategoryReport",
> > "StaffCategoryReport"), New
> > System.Data.Common.DataColumnMapping("Statement_Address",
> > "Statement_Address"), New System.Data.Common.DataColumnMapping("Status",
> > "Status"), New System.Data.Common.DataColumnMapping("Status_Date",
> > "Status_Date"), New System.Data.Common.DataColumnMapping("Supplier_No",
> > "Supplier_No"), New System.Data.Common.DataColumnMapping("Tel", "Tel"),
> > New System.Data.Common.DataColumnMapping("Tel_Masked", "Tel_Masked"), New
> > System.Data.Common.DataColumnMapping("TempID", "TempID"), New
> > System.Data.Common.DataColumnMapping("Type", "Type"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed",
> > "Uniforms_Needed"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed_Elite",
> > "Uniforms_Needed_Elite"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed_Tech",
> > "Uniforms_Needed_Tech"), New
> > System.Data.Common.DataColumnMapping("Venture_Debtor_No",
> > "Venture_Debtor_No"), New System.Data.Common.DataColumnMapping("Web",
> > "Web"), New System.Data.Common.DataColumnMapping("Web_Enabled",
> > "Web_Enabled"), New System.Data.Common.DataColumnMapping("Web_ID",
> > "Web_ID")})})
>
> > Update Command Text
>
> > updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
> > = ?, Address = ?, Area = ?, Blocked = " & _
> > "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
> > Client_Criteria" & _
> > " = ?, Client_Notes = ?, Client_Specifics = ?, Company = ?,
> > Company_Registration_" & _
> > "No = ?, Country = ?, County = ?, Create_Date = ?, Create_User = ?,
> > Created_By = " & _
> > "?, Date_Created = ?, Date_Modified = ?, DB_Update_Date = ?, Directions =
> > ?, Elit" & _
> > "e_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?, Fax_Masked = ?,
> > Financial_Com" & _
> > "ments = ?, [Group] = ?, Image_List = ?, Invoice_Address = ?,
> > Invoice_Company = ?" & _
> > ", Invoice_Country = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
> > Modifi" & _
> > "ed_By = ?, Modify_Date = ?, Modify_User = ?, Nominal = ?, Parent = ?,
> > Payment_Te" & _
> > "rms = ?, People_Client = ?, Postcode = ?, Site_Update_Date = ?, Sort = ?,
> > Source" & _
> > " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
> > Staff_Grade_2" & _
> > " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, StaffCategoryReport = ?,
> > Statement_A" & _
> > "ddress = ?, Status = ?, Status_Date = ?, Supplier_No = ?, Tel = ?,
> > Tel_Masked = " & _
> > "?, TempID = ?, Type = ?, Uniforms_Needed = ?, Uniforms_Needed_Elite = ?,
> > Uniform" & _
> > "s_Needed_Tech = ?, Venture_Debtor_No = ?, Web = ?, Web_Enabled = ?,
> > Web_ID = ? W" & _
> > "HERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL AND
> > Account_Reference_N" & _
> > "o IS NULL) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (Area =
> > ? 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_D" & _
> > "epartment IS NULL) AND (Company = ? OR ? IS NULL AND Company IS NULL) AND
> > (Compa" & _
> > "ny_Registration_No = ? OR ? IS NULL AND Company_Registration_No IS NULL)
> > AND (Co" & _
> > "untry = ? OR ? IS NULL AND Country IS NULL) AND (County = ? OR ? IS NULL
> > AND Cou" & _
> > "nty IS NULL) AND (Create_Date = ? OR ? IS NULL AND Create_Date IS NULL)
> > AND (Cre" & _
> > "ate_User = ? OR ? IS NULL AND Create_User IS NULL) AND (Created_By = ? OR
> > ? IS N" & _
> > "ULL AND Created_By IS NULL) AND (DB_Update_Date = ? OR ? IS NULL AND
> > DB_Update_D" & _
> > "ate IS NULL) AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
> > AND (D" & _
> > "ate_Modified = ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ?
> > OR ? IS " & _
> > "NULL AND EMail IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL
> > AND Fax" & _
> > "
>
> ...
>
> read more »- Hide quoted text -
>
> - Show quoted text -

On Jul 6, 11:35 pm, "Cor Ligthert[MVP]" <Notmyfirstn***@planet.nl>
wrote:
> John,
>
> In my opinion is your first problem, that you have done everything inline.
>
> It is not maintainable.
>
> I know no OleDBParamater issues other then that they have to be in the
> sequence from the way they are used in the SQL transact statements, but
> that
> is hard to check looking how many you have in one method.
>
> Cor
>
> "John" <i...@nospam.infovis.co.uk> wrote in message
>
> news:ugQVeHm$JHA.1376@TK2MSFTNGP02.phx.gbl...
>
>
>
> > Hi
>
> > vs 2003. vb.net winform db app with ms access backend. I have created
> > the
> > data access layer from the code created by the data adapter wizard.
>
> > Problem is when MyDataAdapter.Update(MyDataset.MyTable) is executed I
> > get
> > a concurrency error. As the code is generated by wizard and not modified
> > by me what could be the problem? I vaguely remember that using
> > System.Data.OleDb.OleDbType.DBDate parameter type is problematic with MS
> > Access backend but am not sure.
>
> > The exception stack log is;
>
> > System.Data.DBConcurrencyException: Concurrency violation: the
> > UpdateCommand affected 0 records.
> > at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows,
> > DataTableMapping tableMapping)
> > at System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
> > at Contacts.frmClients.DoUpdate() in C:\Events Manager\Contacts
> > Combined\frmClients.vb:line 3289
>
> > The second problem is that stack log does not give any detail
> > information
> > on what data field etc it has problem with. Is there a way to get more
> > specific info on the problem?
>
> > Full relevant code is given below. Any ideas to fix this problem would
> > be
> > appreciated.
>
> > Thanks
>
> > Regards
>
> > =========================================================
>
> > daCompanies = New System.Data.OleDb.OleDbDataAdapter
> > updcomCompanies = New System.Data.OleDb.OleDbCommand
> > daCompanies.UpdateCommand = updcomCompanies
> > updcomCompanies.Connection = dbConContacts
>
> > Table Mapping Code
>
> > daCompanies.TableMappings.AddRange(New
> > System.Data.Common.DataTableMapping() {New
> > System.Data.Common.DataTableMapping("Table", "tblClients", New
> > System.Data.Common.DataColumnMapping() {New
> > System.Data.Common.DataColumnMapping("Account_Reference_No",
> > "Account_Reference_No"), New
> > System.Data.Common.DataColumnMapping("Address", "Address"), New
> > System.Data.Common.DataColumnMapping("Area", "Area"), New
> > System.Data.Common.DataColumnMapping("Blocked", "Blocked"), New
> > System.Data.Common.DataColumnMapping("Blocked_Date", "Blocked_Date"),
> > New
> > System.Data.Common.DataColumnMapping("Blocked_Department",
> > "Blocked_Department"), New
> > System.Data.Common.DataColumnMapping("Blocked_Reason",
> > "Blocked_Reason"),
> > New System.Data.Common.DataColumnMapping("Client_Criteria",
> > "Client_Criteria"), New
> > System.Data.Common.DataColumnMapping("Client_Notes", "Client_Notes"),
> > New
> > System.Data.Common.DataColumnMapping("Client_Specifics",
> > "Client_Specifics"), New System.Data.Common.DataColumnMapping("Company",
> > "Company"), New
> > System.Data.Common.DataColumnMapping("Company_Registration_No",
> > "Company_Registration_No"), New
> > System.Data.Common.DataColumnMapping("Country", "Country"), New
> > System.Data.Common.DataColumnMapping("County", "County"), New
> > System.Data.Common.DataColumnMapping("Create_Date", "Create_Date"), New
> > System.Data.Common.DataColumnMapping("Create_User", "Create_User"), New
> > System.Data.Common.DataColumnMapping("Created_By", "Created_By"), New
> > System.Data.Common.DataColumnMapping("Date_Created", "Date_Created"),
> > New
> > System.Data.Common.DataColumnMapping("Date_Modified", "Date_Modified"),
> > New System.Data.Common.DataColumnMapping("DB_Update_Date",
> > "DB_Update_Date"), New
> > System.Data.Common.DataColumnMapping("Directions",
> > "Directions"), New System.Data.Common.DataColumnMapping("Elite_Client",
> > "Elite_Client"), New System.Data.Common.DataColumnMapping("EMail",
> > "EMail"), New System.Data.Common.DataColumnMapping("Event_Notes",
> > "Event_Notes"), New System.Data.Common.DataColumnMapping("Fax", "Fax"),
> > New System.Data.Common.DataColumnMapping("Fax_Masked", "Fax_Masked"),
> > New
> > System.Data.Common.DataColumnMapping("Financial_Comments",
> > "Financial_Comments"), New System.Data.Common.DataColumnMapping("Group",
> > "Group"), New System.Data.Common.DataColumnMapping("ID", "ID"), New
> > System.Data.Common.DataColumnMapping("Image_List", "Image_List"), New
> > System.Data.Common.DataColumnMapping("Invoice_Address",
> > "Invoice_Address"), New
> > System.Data.Common.DataColumnMapping("Invoice_Company",
> > "Invoice_Company"), New
> > System.Data.Common.DataColumnMapping("Invoice_Country",
> > "Invoice_Country"), New
> > System.Data.Common.DataColumnMapping("Invoice_County",
> > "Invoice_County"),
> > New System.Data.Common.DataColumnMapping("Invoice_Postcode",
> > "Invoice_Postcode"), New System.Data.Common.DataColumnMapping("Map",
> > "Map"), New System.Data.Common.DataColumnMapping("Modified_By",
> > "Modified_By"), New System.Data.Common.DataColumnMapping("Modify_Date",
> > "Modify_Date"), New System.Data.Common.DataColumnMapping("Modify_User",
> > "Modify_User"), New System.Data.Common.DataColumnMapping("Nominal",
> > "Nominal"), New System.Data.Common.DataColumnMapping("Parent",
> > "Parent"),
> > New System.Data.Common.DataColumnMapping("Payment_Terms",
> > "Payment_Terms"), New
> > System.Data.Common.DataColumnMapping("People_Client", "People_Client"),
> > New System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New
> > System.Data.Common.DataColumnMapping("Site_Update_Date",
> > "Site_Update_Date"), New System.Data.Common.DataColumnMapping("Sort",
> > "Sort"), New System.Data.Common.DataColumnMapping("Source", "Source"),
> > New
> > System.Data.Common.DataColumnMapping("Source_Date", "Source_Date"), New
> > System.Data.Common.DataColumnMapping("Special_Requirments",
> > "Special_Requirments"), New
> > System.Data.Common.DataColumnMapping("Staff_Grade_1", "Staff_Grade_1"),
> > New System.Data.Common.DataColumnMapping("Staff_Grade_2",
> > "Staff_Grade_2"), New
> > System.Data.Common.DataColumnMapping("Staff_Grade_3", "Staff_Grade_3"),
> > New System.Data.Common.DataColumnMapping("Staff_Grade_4",
> > "Staff_Grade_4"), New
> > System.Data.Common.DataColumnMapping("StaffCategoryReport",
> > "StaffCategoryReport"), New
> > System.Data.Common.DataColumnMapping("Statement_Address",
> > "Statement_Address"), New System.Data.Common.DataColumnMapping("Status",
> > "Status"), New System.Data.Common.DataColumnMapping("Status_Date",
> > "Status_Date"), New System.Data.Common.DataColumnMapping("Supplier_No",
> > "Supplier_No"), New System.Data.Common.DataColumnMapping("Tel", "Tel"),
> > New System.Data.Common.DataColumnMapping("Tel_Masked", "Tel_Masked"),
> > New
> > System.Data.Common.DataColumnMapping("TempID", "TempID"), New
> > System.Data.Common.DataColumnMapping("Type", "Type"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed",
> > "Uniforms_Needed"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed_Elite",
> > "Uniforms_Needed_Elite"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed_Tech",
> > "Uniforms_Needed_Tech"), New
> > System.Data.Common.DataColumnMapping("Venture_Debtor_No",
> > "Venture_Debtor_No"), New System.Data.Common.DataColumnMapping("Web",
> > "Web"), New System.Data.Common.DataColumnMapping("Web_Enabled",
> > "Web_Enabled"), New System.Data.Common.DataColumnMapping("Web_ID",
> > "Web_ID")})})
>
> > Update Command Text
>
> > updcomCompanies.CommandText = "UPDATE tblClients SET
> > Account_Reference_No
> > = ?, Address = ?, Area = ?, Blocked = " & _
> > "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
> > Client_Criteria" & _
> > " = ?, Client_Notes = ?, Client_Specifics = ?, Company = ?,
> > Company_Registration_" & _
> > "No = ?, Country = ?, County = ?, Create_Date = ?, Create_User = ?,
> > Created_By = " & _
> > "?, Date_Created = ?, Date_Modified = ?, DB_Update_Date = ?, Directions
> > =
> > ?, Elit" & _
> > "e_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?, Fax_Masked = ?,
> > Financial_Com" & _
> > "ments = ?, [Group] = ?, Image_List = ?, Invoice_Address = ?,
> > Invoice_Company = ?" & _
> > ", Invoice_Country = ?, Invoice_County = ?, Invoice_Postcode = ?, Map =
> > ?,
> > Modifi" & _
> > "ed_By = ?, Modify_Date = ?, Modify_User = ?, Nominal = ?, Parent = ?,
> > Payment_Te" & _
> > "rms = ?, People_Client = ?, Postcode = ?, Site_Update_Date = ?, Sort =
> > ?,
> > Source" & _
> > " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
> > Staff_Grade_2" & _
> > " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, StaffCategoryReport = ?,
> > Statement_A" & _
> > "ddress = ?, Status = ?, Status_Date = ?, Supplier_No = ?, Tel = ?,
> > Tel_Masked = " & _
> > "?, TempID = ?, Type = ?, Uniforms_Needed = ?, Uniforms_Needed_Elite =
> > ?,
> > Uniform" & _
> > "s_Needed_Tech = ?, Venture_Debtor_No = ?, Web = ?, Web_Enabled = ?,
> > Web_ID = ? W" & _
> > "HERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL AND
> > Account_Reference_N" & _
> > "o IS NULL) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (Area
> > =
> > ? 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_D" & _
> > "epartment IS NULL) AND (Company = ? OR ? IS NULL AND Company IS NULL)
> > AND
> > (Compa" & _
> > "ny_Registration_No = ? OR ? IS NULL AND Company_Registration_No IS
> > NULL)
> > AND (Co" & _
> > "untry = ? OR ? IS NULL AND Country IS NULL) AND (County = ? OR ? IS
> > NULL
> > AND Cou" & _
> > "nty IS NULL) AND (Create_Date = ? OR ? IS NULL AND Create_Date IS NULL)
> > AND (Cre" & _
> > "ate_User = ? OR ? IS NULL AND Create_User IS NULL) AND (Created_By = ?
> > OR
> > ? IS N" & _
> > "ULL AND Created_By IS NULL) AND (DB_Update_Date = ? OR ? IS NULL AND
> > DB_Update_D" & _
> > "ate IS NULL) AND (Date_Created = ? OR ? IS NULL AND Date_Created IS
> > NULL)
> > AND (D" & _
> > "ate_Modified = ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ?
> > OR ? IS " & _
> > "NULL AND EMail IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS
> > NULL
> > AND Fax" & _
> > "
>
> ...
>
> read more »- Hide quoted text -
>
> - Show quoted text -

On Jul 6, 11:35 pm, "Cor Ligthert[MVP]" <Notmyfirstn***@planet.nl>
wrote:
> John,
>
> In my opinion is your first problem, that you have done everything inline.
>
> It is not maintainable.
>
> I know no OleDBParamater issues other then that they have to be in the
> sequence from the way they are used in the SQL transact statements, but
> that
> is hard to check looking how many you have in one method.
>
> Cor
>
> "John" <i...@nospam.infovis.co.uk> wrote in message
>
> news:ugQVeHm$JHA.1376@TK2MSFTNGP02.phx.gbl...
>
>
>
> > Hi
>
> > vs 2003. vb.net winform db app with ms access backend. I have created
> > the
> > data access layer from the code created by the data adapter wizard.
>
> > Problem is when MyDataAdapter.Update(MyDataset.MyTable) is executed I
> > get
> > a concurrency error. As the code is generated by wizard and not modified
> > by me what could be the problem? I vaguely remember that using
> > System.Data.OleDb.OleDbType.DBDate parameter type is problematic with MS
> > Access backend but am not sure.
>
> > The exception stack log is;
>
> > System.Data.DBConcurrencyException: Concurrency violation: the
> > UpdateCommand affected 0 records.
> > at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows,
> > DataTableMapping tableMapping)
> > at System.Data.Common.DbDataAdapter.Update(DataTable dataTable)
> > at Contacts.frmClients.DoUpdate() in C:\Events Manager\Contacts
> > Combined\frmClients.vb:line 3289
>
> > The second problem is that stack log does not give any detail
> > information
> > on what data field etc it has problem with. Is there a way to get more
> > specific info on the problem?
>
> > Full relevant code is given below. Any ideas to fix this problem would
> > be
> > appreciated.
>
> > Thanks
>
> > Regards
>
> > =========================================================
>
> > daCompanies = New System.Data.OleDb.OleDbDataAdapter
> > updcomCompanies = New System.Data.OleDb.OleDbCommand
> > daCompanies.UpdateCommand = updcomCompanies
> > updcomCompanies.Connection = dbConContacts
>
> > Table Mapping Code
>
> > daCompanies.TableMappings.AddRange(New
> > System.Data.Common.DataTableMapping() {New
> > System.Data.Common.DataTableMapping("Table", "tblClients", New
> > System.Data.Common.DataColumnMapping() {New
> > System.Data.Common.DataColumnMapping("Account_Reference_No",
> > "Account_Reference_No"), New
> > System.Data.Common.DataColumnMapping("Address", "Address"), New
> > System.Data.Common.DataColumnMapping("Area", "Area"), New
> > System.Data.Common.DataColumnMapping("Blocked", "Blocked"), New
> > System.Data.Common.DataColumnMapping("Blocked_Date", "Blocked_Date"),
> > New
> > System.Data.Common.DataColumnMapping("Blocked_Department",
> > "Blocked_Department"), New
> > System.Data.Common.DataColumnMapping("Blocked_Reason",
> > "Blocked_Reason"),
> > New System.Data.Common.DataColumnMapping("Client_Criteria",
> > "Client_Criteria"), New
> > System.Data.Common.DataColumnMapping("Client_Notes", "Client_Notes"),
> > New
> > System.Data.Common.DataColumnMapping("Client_Specifics",
> > "Client_Specifics"), New System.Data.Common.DataColumnMapping("Company",
> > "Company"), New
> > System.Data.Common.DataColumnMapping("Company_Registration_No",
> > "Company_Registration_No"), New
> > System.Data.Common.DataColumnMapping("Country", "Country"), New
> > System.Data.Common.DataColumnMapping("County", "County"), New
> > System.Data.Common.DataColumnMapping("Create_Date", "Create_Date"), New
> > System.Data.Common.DataColumnMapping("Create_User", "Create_User"), New
> > System.Data.Common.DataColumnMapping("Created_By", "Created_By"), New
> > System.Data.Common.DataColumnMapping("Date_Created", "Date_Created"),
> > New
> > System.Data.Common.DataColumnMapping("Date_Modified", "Date_Modified"),
> > New System.Data.Common.DataColumnMapping("DB_Update_Date",
> > "DB_Update_Date"), New
> > System.Data.Common.DataColumnMapping("Directions",
> > "Directions"), New System.Data.Common.DataColumnMapping("Elite_Client",
> > "Elite_Client"), New System.Data.Common.DataColumnMapping("EMail",
> > "EMail"), New System.Data.Common.DataColumnMapping("Event_Notes",
> > "Event_Notes"), New System.Data.Common.DataColumnMapping("Fax", "Fax"),
> > New System.Data.Common.DataColumnMapping("Fax_Masked", "Fax_Masked"),
> > New
> > System.Data.Common.DataColumnMapping("Financial_Comments",
> > "Financial_Comments"), New System.Data.Common.DataColumnMapping("Group",
> > "Group"), New System.Data.Common.DataColumnMapping("ID", "ID"), New
> > System.Data.Common.DataColumnMapping("Image_List", "Image_List"), New
> > System.Data.Common.DataColumnMapping("Invoice_Address",
> > "Invoice_Address"), New
> > System.Data.Common.DataColumnMapping("Invoice_Company",
> > "Invoice_Company"), New
> > System.Data.Common.DataColumnMapping("Invoice_Country",
> > "Invoice_Country"), New
> > System.Data.Common.DataColumnMapping("Invoice_County",
> > "Invoice_County"),
> > New System.Data.Common.DataColumnMapping("Invoice_Postcode",
> > "Invoice_Postcode"), New System.Data.Common.DataColumnMapping("Map",
> > "Map"), New System.Data.Common.DataColumnMapping("Modified_By",
> > "Modified_By"), New System.Data.Common.DataColumnMapping("Modify_Date",
> > "Modify_Date"), New System.Data.Common.DataColumnMapping("Modify_User",
> > "Modify_User"), New System.Data.Common.DataColumnMapping("Nominal",
> > "Nominal"), New System.Data.Common.DataColumnMapping("Parent",
> > "Parent"),
> > New System.Data.Common.DataColumnMapping("Payment_Terms",
> > "Payment_Terms"), New
> > System.Data.Common.DataColumnMapping("People_Client", "People_Client"),
> > New System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New
> > System.Data.Common.DataColumnMapping("Site_Update_Date",
> > "Site_Update_Date"), New System.Data.Common.DataColumnMapping("Sort",
> > "Sort"), New System.Data.Common.DataColumnMapping("Source", "Source"),
> > New
> > System.Data.Common.DataColumnMapping("Source_Date", "Source_Date"), New
> > System.Data.Common.DataColumnMapping("Special_Requirments",
> > "Special_Requirments"), New
> > System.Data.Common.DataColumnMapping("Staff_Grade_1", "Staff_Grade_1"),
> > New System.Data.Common.DataColumnMapping("Staff_Grade_2",
> > "Staff_Grade_2"), New
> > System.Data.Common.DataColumnMapping("Staff_Grade_3", "Staff_Grade_3"),
> > New System.Data.Common.DataColumnMapping("Staff_Grade_4",
> > "Staff_Grade_4"), New
> > System.Data.Common.DataColumnMapping("StaffCategoryReport",
> > "StaffCategoryReport"), New
> > System.Data.Common.DataColumnMapping("Statement_Address",
> > "Statement_Address"), New System.Data.Common.DataColumnMapping("Status",
> > "Status"), New System.Data.Common.DataColumnMapping("Status_Date",
> > "Status_Date"), New System.Data.Common.DataColumnMapping("Supplier_No",
> > "Supplier_No"), New System.Data.Common.DataColumnMapping("Tel", "Tel"),
> > New System.Data.Common.DataColumnMapping("Tel_Masked", "Tel_Masked"),
> > New
> > System.Data.Common.DataColumnMapping("TempID", "TempID"), New
> > System.Data.Common.DataColumnMapping("Type", "Type"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed",
> > "Uniforms_Needed"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed_Elite",
> > "Uniforms_Needed_Elite"), New
> > System.Data.Common.DataColumnMapping("Uniforms_Needed_Tech",
> > "Uniforms_Needed_Tech"), New
> > System.Data.Common.DataColumnMapping("Venture_Debtor_No",
> > "Venture_Debtor_No"), New System.Data.Common.DataColumnMapping("Web",
> > "Web"), New System.Data.Common.DataColumnMapping("Web_Enabled",
> > "Web_Enabled"), New System.Data.Common.DataColumnMapping("Web_ID",
> > "Web_ID")})})
>
> > Update Command Text
>
> > updcomCompanies.CommandText = "UPDATE tblClients SET
> > Account_Reference_No
> > = ?, Address = ?, Area = ?, Blocked = " & _
> > "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
> > Client_Criteria" & _
> > " = ?, Client_Notes = ?, Client_Specifics = ?, Company = ?,
> > Company_Registration_" & _
> > "No = ?, Country = ?, County = ?, Create_Date = ?, Create_User = ?,
> > Created_By = " & _
> > "?, Date_Created = ?, Date_Modified = ?, DB_Update_Date = ?, Directions
> > =
> > ?, Elit" & _
> > "e_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?, Fax_Masked = ?,
> > Financial_Com" & _
> > "ments = ?, [Group] = ?, Image_List = ?, Invoice_Address = ?,
> > Invoice_Company = ?" & _
> > ", Invoice_Country = ?, Invoice_County = ?, Invoice_Postcode = ?, Map =
> > ?,
> > Modifi" & _
> > "ed_By = ?, Modify_Date = ?, Modify_User = ?, Nominal = ?, Parent = ?,
> > Payment_Te" & _
> > "rms = ?, People_Client = ?, Postcode = ?, Site_Update_Date = ?, Sort =
> > ?,
> > Source" & _
> > " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
> > Staff_Grade_2" & _
> > " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, StaffCategoryReport = ?,
> > Statement_A" & _
> > "ddress = ?, Status = ?, Status_Date = ?, Supplier_No = ?, Tel = ?,
> > Tel_Masked = " & _
> > "?, TempID = ?, Type = ?, Uniforms_Needed = ?, Uniforms_Needed_Elite =
> > ?,
> > Uniform" & _
> > "s_Needed_Tech = ?, Venture_Debtor_No = ?, Web = ?, Web_Enabled = ?,
> > Web_ID = ? W" & _
> > "HERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL AND
> > Account_Reference_N" & _
> > "o IS NULL) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (Area
> > =
> > ? 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_D" & _
> > "epartment IS NULL) AND (Company = ? OR ? IS NULL AND Company IS NULL)
> > AND
> > (Compa" & _
> > "ny_Registration_No = ? OR ? IS NULL AND Company_Registration_No IS
> > NULL)
> > AND (Co" & _
> > "untry = ? OR ? IS NULL AND Country IS NULL) AND (County = ? OR ? IS
> > NULL
> > AND Cou" & _
> > "nty IS NULL) AND (Create_Date = ? OR ? IS NULL AND Create_Date IS NULL)
> > AND (Cre" & _
> > "ate_User = ? OR ? IS NULL AND Create_User IS NULL) AND (Created_By = ?
> > OR
> > ? IS N" & _
> > "ULL AND Created_By IS NULL) AND (DB_Update_Date = ? OR ? IS NULL AND
> > DB_Update_D" & _
> > "ate IS NULL) AND (Date_Created = ? OR ? IS NULL AND Date_Created IS
> > NULL)
> > AND (D" & _
> > "ate_Modified = ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ?
> > OR ? IS " & _
> > "NULL AND EMail IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS
> > NULL
> > AND Fax" & _
> > "
>
> ...
>
> read more »- Hide quoted text -
>
> - Show quoted text -