Quote:VB.NET Private Sub Btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnadd.Click recordset.Open("Select * from table", database) vl = Val(txtVL.Text) sl = Val(txtSL.Text) el = Val(txtEL.Text) xtotalvl = recordset.Fields("Vacation_Leave").Value xtotalsl = recordset.Fields("Sick_Leave").Value xtotalel = recordset.Fields("Emergency_Leave").Value xtotalvl = +vl xtotalsl = +sl xtotalel = +el recordset.UpdateBatch() MsgBox("data saved") database.Close()
Private Sub Btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnadd.Click recordset.Open("Select * from table", database) vl = Val(txtVL.Text) sl = Val(txtSL.Text) el = Val(txtEL.Text) xtotalvl = recordset.Fields("Vacation_Leave").Value xtotalsl = recordset.Fields("Sick_Leave").Value xtotalel = recordset.Fields("Emergency_Leave").Value xtotalvl = +vl xtotalsl = +sl xtotalel = +el recordset.UpdateBatch() MsgBox("data saved") database.Close()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)