I am executing four Insert procedures in my save button. On the initial save the code works fine but on the second save it gives me the above mentioned error while executing the first Insert procedure. When I save the first time and then Close the form and then come back in again and do the second save the code works fine and then i close the form and come back in again it works fine again and again. So I am guessing the error is due to on of my objects floating around but I cant seem to put my finger on which one exactly any help?
my Typical Insert procedure looks like this
The issue come up when I attempt to insert after another insert.
To try and debug I inserted and then closed the form came back again and did another insert, close the form came back in the form and did another insert this method actaully works but loading the form all the time takes a lot of time, which makes it not such a viable option.
Code:
DoInsertMainCustomer_Click(sender, e)
DoInsertCustomerBranch_Click(sender, e)
DoInsertCustomerIntoAudit_Click(sender, e)
DoInsertBranchIntoAudit_Click(sender, e)Code:
Private Sub DoInsertMainCustomer_Click(sender As System.Object, e As System.EventArgs) Handles DoInsertMainCustomer.Click
Dim myConn As OleDbConnection = frmLogIn.Conn
Dim cmdInsert As OleDbCommand = New OleDbCommand("Insert INTO CustomerMaster (MainSubCombo,AccountNumber,SubAccount,BranchName,RegisteredName,TradingName,Grouping,Category," & _
"PhysicalAddress1,PhysicalAddress2,PhysicalSuburb,PhysicalCity,PhysicalPostCode,PostalAddress1,PostalSuburb,PostalPostCode,PostalCity," & _
"Contact1Title,Contact1Initial,Contact1FirstName,Contact1Surname,Contact1Fullname,Contact1Occupation,Contact1DirectLine,Contact1Telephone,Contact1Mobile,Contact1Email,Contact1Fax,Contact1Fax2Email," & _
"Contact2Title,Contact2Initial,Contact2FirstName,Contact2Surname,Contact2Fullname,Contact2Occupation,Contact2DirectLine,Contact2Telephone,Contact2Mobile,Contact2Email,Contact2Fax,Contact2Fax2Email," & _
"Terms,TypeOfAccount,CreditLimit,RemainingCredit,InvoiceDiscount,PriceList,StatusOfAccount,SalesCode,Statements,DeliveryMethod,Documents," & _
"VatRegNumber,DefaultTaxType,DefaultTaxRate,TaxCode,TaxReference,TaxClearance,TaxProccessing,TaxExempt,TaxExemptReference,ServiceTax,ServiceTaxRate,FutureTax,FutureTaxRate,RoyaltyTax,RoyaltyTaxRate," & _
"UDText1,UDText2,UDText3,UDText4,UDText5,UDNumeric1,UDNumeric2,UDNumeric3,UDNumeric4,UDNumeric5,BranchCode,ExternalReference," & _
"CreatedBy,CreatedDate,CreatedTime,CreatedUserLevel,CreatedUserType,Comment,DeliveryAddress1,DeliveryAddress2,DeliveryAddress3,DeliveryAddress4) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) ", myConn)
cmdInsert.Parameters.AddWithValue("@MainSubCombo", txtAccountNumber.Text & "-" & "000")
cmdInsert.Parameters.AddWithValue("@AccountNumber", txtAccountNumber.Text)
cmdInsert.Parameters.AddWithValue("@SubAccount", "000")
cmdInsert.Parameters.AddWithValue("@BranchName", cmbBranchName.Text)
cmdInsert.Parameters.AddWithValue("@RegisteredName", txtDescription.Text)
cmdInsert.Parameters.AddWithValue("@TradingName", txtTradingName.Text)
cmdInsert.Parameters.AddWithValue("@Grouping", cmbGrouping.Text)
cmdInsert.Parameters.AddWithValue("@Category", cmbCategory.Text)
cmdInsert.Parameters.AddWithValue("@PhysicalAddress1", txtContactDeliveryAddress1.Text)
cmdInsert.Parameters.AddWithValue("@PhysicalAddress2", txtContactDeliveryAddress2.Text)
cmdInsert.Parameters.AddWithValue("@PhysicalSuburb", cmbPhysicalSuburb.Text)
cmdInsert.Parameters.AddWithValue("@PhysicalCity", txtStreetTownName.Text)
cmdInsert.Parameters.AddWithValue("@PhysicalPostCode", txtStreetCode.Text)
cmdInsert.Parameters.AddWithValue("@PostalAddress1", txtPostalAddress.Text)
cmdInsert.Parameters.AddWithValue("@PostalSuburb", cmbBoxSuburb2.Text)
cmdInsert.Parameters.AddWithValue("@PostalPostCode", txtPostalCode.Text)
cmdInsert.Parameters.AddWithValue("@PostalCity", txtTownName.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Title", cmbTitle1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Initial", txtInitial1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1FirstName", txtFirstName1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Surname", txtSurname1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Fullname", txtFullName1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Occupation", cmbOccupation1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1DirectLine", txtDirect1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Telephone", txtTelephone1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Mobile", txtMobile1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Email", txtEmail1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Fax", txtFax1.Text)
cmdInsert.Parameters.AddWithValue("@Contact1Fax2Email", txtFax2Email1.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Title", cmbTitle2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Initial", txtInitial2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2FirstName", txtFirstName2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Surname", txtSurname2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Fullname", txtFullName2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Occupation", cmbOccupation2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2DirectLine", txtDirectTelephone2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Telephone", txtTelephone2a.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Mobile", txtMobile2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Email", txtEmail2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Fax", txtFax2.Text)
cmdInsert.Parameters.AddWithValue("@Contact2Fax2Email", txtFax2Email2.Text)
cmdInsert.Parameters.AddWithValue("@Terms", cmbTerms.Text)
cmdInsert.Parameters.AddWithValue("@TypeOfAccount", cmbType.Text)
cmdInsert.Parameters.AddWithValue("@CreditLimit", txtCreditLimit.Text)
cmdInsert.Parameters.AddWithValue("@RemainingCredit", txtCreditLimit.Text)
cmdInsert.Parameters.AddWithValue("@InvoiceDiscount", txtInvoiceDiscPercentage.Text)
cmdInsert.Parameters.AddWithValue("@PriceList", cmbPriceList.Text)
cmdInsert.Parameters.AddWithValue("@StatusOfAccount", cmbStatus.Text)
cmdInsert.Parameters.AddWithValue("@SalesCode", cmbRepCode.Text)
cmdInsert.Parameters.AddWithValue("@Statements", cmbStatements.Text)
cmdInsert.Parameters.AddWithValue("@DeliveryMethod", cmbDeliveryMethod.Text)
cmdInsert.Parameters.AddWithValue("@Documents", cmbPrinting.Text)
cmdInsert.Parameters.AddWithValue("@VatRegNumber", txtVatRegNumber.Text)
cmdInsert.Parameters.AddWithValue("@DefaultTaxType", cmbDefaultTax2.Text)
cmdInsert.Parameters.AddWithValue("@DefaultTaxRate", myCommManager.isNumeric(frmLogIn.commm1.DefaultTaxRate))
cmdInsert.Parameters.AddWithValue("@TaxCode", txtTaxCode.Text)
cmdInsert.Parameters.AddWithValue("@TaxReference", txtTaxReference.Text)
cmdInsert.Parameters.AddWithValue("@TaxClearance", txtTaxClearance.Text)
cmdInsert.Parameters.AddWithValue("@TaxProccessing", cmbTaxProcessType.Text)
cmdInsert.Parameters.AddWithValue("@TaxExempt", chkTaxExempt.CheckState)
cmdInsert.Parameters.AddWithValue("@TaxExemptReference", txtTaxExempt2.Text)
cmdInsert.Parameters.AddWithValue("@ServiceTax", chkServiceTax.CheckState)
cmdInsert.Parameters.AddWithValue("@ServiceTaxRate", myCommManager.isNumeric(txtServiceTax.Text))
cmdInsert.Parameters.AddWithValue("@FutureTax", chkFutureTax.CheckState)
cmdInsert.Parameters.AddWithValue("@FutureTaxRate", myCommManager.isNumeric(txtFutureTax.Text))
cmdInsert.Parameters.AddWithValue("@RoyaltyTax", chkRoyaltyTax.CheckState)
cmdInsert.Parameters.AddWithValue("@RoyaltyTaxRate", myCommManager.isNumeric(txtRoyaltyTax.Text))
cmdInsert.Parameters.AddWithValue("@UDText1", txtUserDefined1.Text)
cmdInsert.Parameters.AddWithValue("@UDText2", txtUserDefined2.Text)
cmdInsert.Parameters.AddWithValue("@UDText3", txtUserDefined3.Text)
cmdInsert.Parameters.AddWithValue("@UDText4", txtUserDefined4.Text)
cmdInsert.Parameters.AddWithValue("@UDText5", txtUserDefined5.Text)
cmdInsert.Parameters.AddWithValue("@UDNumeric1", myCommManager.isNumeric(txtNumeric1.Text))
cmdInsert.Parameters.AddWithValue("@UDNumeric2", myCommManager.isNumeric(txtNumeric2.Text))
cmdInsert.Parameters.AddWithValue("@UDNumeric3", myCommManager.isNumeric(txtNumeric3.Text))
cmdInsert.Parameters.AddWithValue("@UDNumeric4", myCommManager.isNumeric(txtNumeric4.Text))
cmdInsert.Parameters.AddWithValue("@UDNumeric5", myCommManager.isNumeric(txtNumeric5.Text))
cmdInsert.Parameters.AddWithValue("@BranchCode", frmLogIn.commm1.CompanyBranchCode)
cmdInsert.Parameters.AddWithValue("@ExternalReference", txtExtRef.Text)
cmdInsert.Parameters.AddWithValue("@CreatedBy", frmLogIn.commm1.LogINUserName)
cmdInsert.Parameters.AddWithValue("@CreatedDate", Date.Now.Date.ToString("dddd , dd MMMM yyyy"))
cmdInsert.Parameters.AddWithValue("@CreatedTime", Date.Now.ToString("T"))
cmdInsert.Parameters.AddWithValue("@CreatedUserLevel", frmLogIn.commm1.UserLevel)
cmdInsert.Parameters.AddWithValue("@CreatedUserType", frmLogIn.commm1.UserType)
cmdInsert.Parameters.AddWithValue("@Comment", txtExtRef.Text)
cmdInsert.Parameters.AddWithValue("@DeliveryAddress1", txtDeliveryAddress1.Text)
cmdInsert.Parameters.AddWithValue("@DeliveryAddress2", txtDeliveryAddress2.Text)
cmdInsert.Parameters.AddWithValue("@DeliveryAddress3", txtDeliveryAddress3.Text)
cmdInsert.Parameters.AddWithValue("@DeliveryAddress4", txtDeliveryAddress4.Text)
'Try
myConn.Open()
cmdInsert.ExecuteNonQuery()
'Catch ex As Exception
' MsgBox(ex.Message)
'Finally
myConn.Close()
'End Try
End SubTo try and debug I inserted and then closed the form came back again and did another insert, close the form came back in the form and did another insert this method actaully works but loading the form all the time takes a lot of time, which makes it not such a viable option.