cancel
Showing results for 
Search instead for 
Did you mean: 

How to Update a UserTable

Former Member
0 Kudos

Hi Masters

I have a Form which was designed in Screen Painter which is also bounded to a UserTable , I am able to Add the details from SBO when my Application Runs But i am unable to UPDATE the same, could you please tell me the entire query to update my Table

This is my Method to Add ,i am able to Add But please provide me the query for UPDATE

Public Sub addPOReq(ByVal objForm As SAPbouiCOM.Form)

Dim strSQL As String

Dim objRS As SAPbobsCOM.Recordset

Dim intCode As Integer

Dim intDocEntry As Integer

intCode = objAddOn.objGenFunc.GetCode("[@ALTPOREQHD]")

intDocEntry = GetNextCode()

strSQL = "INSERT INTO [@ALTPOREQHD](Code, Name, U_DocEntry, U_DocNum, U_Status, U_DeliveryDate, U_DocDate, U_EmpCode, U_EmpName) VALUES(" & _

" " & intCode & _

",'" & intCode & "'" & _

", " & intDocEntry & _

",'" & intDocEntry & "'" & _

",'" & "O" & "'" & _

",'" & objAddOn.objGenFunc.GetDateTimeValue(objForm.Items.Item("13").Specific.String).ToString("yyyy-MM-dd") & "'" & _

",'" & objAddOn.objGenFunc.GetDateTimeValue(objForm.Items.Item("15").Specific.String).ToString("yyyy-MM-dd") & "'" & _

",'" & objForm.Items.Item("4").Specific.String & "'" & _

",'" & objForm.Items.Item("7").Specific.string & "'" & _

")"

objRS = objAddOn.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)

objRS.DoQuery(strSQL)

objAddOn.objApplication.StatusBar.SetText("Added successfully ")

End Sub

Regards

Mohamed

Accepted Solutions (0)

Answers (1)

Answers (1)

former_member583013
Active Contributor
0 Kudos

Hello MOHAMED ZUBAIR

You will get a faster answer if you post this question to the SDK forum as this is pertaining to SDK.

Suda