Pace
Well-known member
Hi all,
I have a form that displays customer records... I let the user pick a record, edit it, then save the updated record to the backend...
Now when you make an edit and hit save it looks fine, however the backend has not changed... if you move to another record and hit update then save I get the following error:
The code that I have is also included...
can anyone help me?
I have a form that displays customer records... I let the user pick a record, edit it, then save the updated record to the backend...
Now when you make an edit and hit save it looks fine, however the backend has not changed... if you move to another record and hit update then save I get the following error:
The code that I have is also included...
can anyone help me?
VB.NET:
[size=2]
[/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] MenuItem2_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] MenuItem2.Click
[/size][size=2][color=#0000ff]If[/color][/size][size=2] MsgBox("Are you Sure?", MsgBoxStyle.YesNo, "Quit?") = MsgBoxResult.Yes _
[/size][size=2][color=#0000ff]Then[/color][/size][size=2] Application.Exit()
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Form1_Load([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Object[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] [/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Load
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].DsCust1.Clear()
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].OleDbDataAdapter1.Fill(DsCust1)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSave.Visible = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] MenuItem3_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] MenuItem3.Click
MsgBox("Phone Barry and say 'I just used your Help Menu!'", MsgBoxStyle.Information, "Well Done")
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] btnUpdate_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] btnUpdate.Click
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtCustName.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd1.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd2.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd3.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd4.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtCountry.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtPcode.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtPhone.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtFax.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtIndSec.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtStat.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtIndSec.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtPriceList.ReadOnly = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnUpdate.Visible = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSave.Visible = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSave.ForeColor = System.Drawing.Color.Red
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] btnSave_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] btnSave.Click
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSave.Visible = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnUpdate.Visible = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtCustName.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd1.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd2.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd3.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtAdd4.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtCountry.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtPcode.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtPhone.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtFax.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtIndSec.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtStat.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtIndSec.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtPriceList.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Try
[/color][/size][size=2]OleDbDataAdapter1.Update(DsCust1, "Customer")
[/size][size=2][color=#0000ff]Catch[/color][/size][size=2] ex [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception
MsgBox(ex.ToString)
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Try
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
End[/color][/size][size=2] [/size][size=2][color=#0000ff]Class
[/color][/size]