Android Question base64string problem

[Imran_Farooq]

hi

the supplied code not worked for update MS Sql update query for PICS2 data field, how ever when it set any static string so it update it, but not update for Base64string.

Private Sub Button2_Click
    Try
        If TK_IMAGE=True Then
            Dim sf As Object = xui.Msgbox2Async("Update Image?", "Image Update Confirmation", "Yes", "", "No",  Null)
            Wait For (sf) Msgbox_Result (Result As Int)
            If Result = xui.DialogResponse_Positive Then
                Log(TK_IMAGE)
                Dim base As String = Base64EncodeDecodeImage.Base64ImageToString(File.DirInternal,"Test.png")
                Log(base)
                If Base64EncodeDecodeImage.ValidBase64(base) Then
                Log("valid string")
                End If
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                ProgressDialogShow2("Waiting..",False)
                Private MainUrl As String = B4XPages.MainPage.db_server & "/schoolapp/NewRegistration.aspx"
                Dim mianjob As HttpJob
                mianjob.Initialize("", Me)
                'Dim su As StringUtils

                   'Log(su.EncodeUrl(base, "UTF-8"))

'''''''''''''''''''''''''''''''''''''it worked''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                mianjob.PostString(MainUrl, "UPDATE STUDENT_PROFILE SET PICS2='testing string',PICS2_UPDATED=1  WHERE CELL='" & B4XPages.MainPage.CELL_num & "' AND 
SNO=" & B4XPages.MainPage.SNO & " AND IDNO=" & B4XPages.MainPage.IDNO  )
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

              
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''not worked '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 'mianjob.PostString(MainUrl, "UPDATE STUDENT_PROFILE SET PICS2='" & base & "',PICS2_UPDATED=1  WHERE CELL='" & B4XPages.MainPage.CELL_num & "' AND SNO=" & B4XPages.MainPage.SNO & " AND IDNO=" & B4XPages.MainPage.IDNO  )
        
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



                Dim body As String = "query=" & su.EncodeUrl(sql, "UTF-8")
                mianjob.PostString(MainUrl, body)
                mianjob.GetRequest.Timeout=9000
                Wait For (mianjob) JobDone(mianjob As HttpJob)
                If mianjob.Success Then
                    Dim parser2 As JSONParser
                    Dim response2 As String = mianjob.GetString
                    parser2.Initialize(response2)
                    File.Copy(File.DirInternal, "Test.png", File.DirInternal, upd_img_fn)
                    ToastMessageShow("Updated - OK, Please Restart the APP",True)
                    Sleep(3000)
                    ExitApplication
                Else
                    ToastMessageShow("Not Updated,Please Try Again !",True)
                End If
                mianjob.Release
                ProgressDialogHide
                Sleep(3000)
            End If
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If File.Exists(File.DirInternal, "untitled.jpg") = True Then
                Dim bmp As B4XBitmap = xui.LoadBitmap(File.DirInternal,"untitled.jpg")
                ImageView1.SetBitmap(bmp)
            End If
            TK_IMAGE=False
            B4XPages.ClosePage(Me)
        Else
            ToastMessageShow("Empty Image Not Allowed!",True)
        End If
    Catch
        ToastMessageShow(LastException.Message,True)
    End Try
End Sub