Appframe Knowledge Base


1 hits
1

How to update data using afAccessLayer

Dim lstList As New List(Of KeyValuePair(Of String, Object))
lstList.Add(New KeyValuePair(Of String, Object)("UseRBS", IIf(Me.RadioGroup1.SelectedIndex = 0, True, False)))
lstList.Add(New KeyValuePair(Of String, Object)("Level1Title", Me.txtLevel1.Text))
lstList.Add(New KeyValuePair(Of String, Object)("Level2Title", Me.txtLevel2.Text))
lstList.Add(New KeyValuePair(Of String, Object)("Level3Title", Me.txtLevel3.Text))
 
Dim objColumnsToRetreive As New Appframe3.Common.Data.Columns.afSelectColumnCollection
objColumnsToRetreive.Add("Primkey")
 
Dim dt As DataTable
dt = Appframe3.Common.Data.afAccessLayer.PutData("atbv_RiskMgmt_Constants", lstList, Me.atbv_RiskMgmt_Constants.CurrentRow("Primkey").ToString, "", objColumnsToRetreive, "atbv_RiskMgmt_Constants")

win · Perma link post comment Posted by: Peter Øren (12-jan-2012)