B4J Question [Web][SithasoDaisy]

[Sivasaravanan]

private Sub a
    Dim RsHdr As BANanoMSSQLE
    'initialize table for table creation
    RsHdr.Initialize("itcotforms", "", "", "")
    'generate & run command to select all records
    Dim strSQL As String ="SELECT * FROM (Select * FROM formhdr a WHERE Not EXISTS (Select * FROM fieldaccess WHERE formcode = 'FDVS100' AND fieldname = a.fieldname AND attributes = '1' AND userid = 'admin')) b WHERE formcode = 'FDVS100' ORDER BY CASE WHEN fieldvisible = 'NO' THEN 1 ELSE 0 END,seqno"
    'Dim strsql As String  = "Select * from (Select * from formdtl0 where formcode = 'FDVS103') a order by seqno"
    Log(strSQL)
    strSQL= GVariables.ProcessNestedQueries("itcotforms","dbo", strSQL)
    Log(strSQL)
    RsHdr.Execute(strSQL)
    RsHdr.JSON = banano.CallInlinePHPWait(RsHdr.MethodName, RsHdr.Build)
    banano.Await(RsHdr.FromJSON)
    If RsHdr.OK = False Then
        app.ShowSwal(RsHdr.error)
    Else
        Log(banano.Await(RsHdr.result))
    End If

End Sub
private Sub b
    Dim RsMain As BANanoMSSQLE
    'initialize table for table creation
    RsMain.Initialize("itcotforms", "", "", "")
    'generate & run command to select all records
    'Dim strSQL As String ="SELECT * FROM (Select * FROM formhdr a WHERE Not EXISTS (Select * FROM fieldaccess WHERE formcode = 'FDVS100' AND fieldname = a.fieldname AND attributes = '1' AND userid = 'admin')) b WHERE formcode = 'FDVS100' ORDER BY CASE WHEN fieldvisible = 'NO' THEN 1 ELSE 0 END,seqno"
    Dim strsql1 As String  = "Select * from (Select * from formdtl0 where formcode = 'FDVS103') a order by seqno"
    Log(strsql1)
    strsql1= banano.Await(GVariables.ProcessNestedQueries("itcotforms","dbo", strsql1))
    Log(strsql1)
    RsMain.Execute(strsql1)
    RsMain.JSON = banano.CallInlinePHPWait(RsMain.MethodName, RsMain.Build)
    banano.Await(RsMain.FromJSON)
    If RsMain.OK = False Then
        app.ShowSwal(RsMain.error)
    Else
        Log(banano.Await(RsMain.result))
    End If
    
End Sub
private sub BrowRec()
a
b
end sub

Dear Anele,

both a procedures running alone perfectly. But combined run second procedure shows error
because the previous query appended with current one. But alone both the are working fine. any
clear or close database connectivity or else. Any Idea

 

[Mashiane]

Try

private sub BrowRec()
BANano.Await(a)
BANAno.Await(b)
end sub

 

[Sivasaravanan]

Thank you Anele