Android Question passing parameters

[Makumbi]

jt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBAlevelreportArchive.ashx?customerId=${Account.Text}&customerId2=${spnFirstName.SelectedItem}&customerId3=${Spinner1.SelectedItem}"$ )

Please help iam trying to pass these parameters but my code has remain in red color please help me out were could the problem be

 

[MarkusR]

you forgot the $ before "
there is a better example with key value pairs.

 

[Makumbi]

you forgot the $ before "
there is a better example with key value pairs.

Thank you very much you have saved me alot long live man

 

[DonManfred]

You should use Download2 and use Parametrized Queries.

 

[Makumbi]

You should use Download2 and use Parametrized Queries.

any example with download2 because currently iam using this as my way to got any possible problems with it in future

Dim SQLQry As String = "DELETE FROM Alevelreport"
    Starter.SQL1.ExecNonQuery(SQLQry)
    Dim jt As HttpJob
    jt.Initialize("", Me)
    jt.Download($"http://kccug.com/Generic_Handler_JSON/HandlerVBAlevelreportArchive.ashx?customerId=${Account.Text}&customerId2=${spnFirstName.SelectedItem}&customerId3=${Spinner1.SelectedItem}"$ )
    jt.GetRequest.Timeout = 10000 ' 10 seconds
    Wait For (jt) JobDone(jt As HttpJob)
    If jt.Success Then ' if job is success (http status code 200)
        Dim RetVal As String
        RetVal = jt.GetString
        Log(RetVal)
                        
        If jt.GetString = "[]" Then
            'MsgboxAsync("No Records to Upload Yet for: " & CustID ,"SMIS")
            Return
        Else
                                
            Dim parser As JSONParser
            parser.Initialize(jt.GetString)
            Dim root As List = parser.NextArray
            For Each colroot As Map In root
                Dim FieldName As String
                Dim FieldValue As String

                For I = 0 To colroot.Size - 1
                    'Log(colroot.GetKeyAt(I) & " = " & colroot.GetValueAt(I))
                    FieldName = colroot.GetKeyAt(I)
                    'Log(FieldName)
                    If FieldName.Trim.ToUpperCase.EndsWith("POINTS") Then
                        FieldValue = colroot.GetValueAt(I)
 
                        Select Case FieldValue.Trim.ToUpperCase
                            Case "A", "B", "C", "D", "E", "O","F"
                                                    
                                If FieldValue.Length <> 0 And FieldValue.Length <> 0 Then
                                    Log(FieldName.Trim & " = " & FieldValue.Trim)
                                    Starter.SQL1.ExecNonQuery2("INSERT INTO Alevelreport VALUES(?, ?, ?,?,?)", Array As Object(Account.Text,FieldValue.Trim, kname, FieldName.Trim ,"1"))
                                End If
                            Case "0", "1", "2", "3", "4", "5", "6","7", "8", "9", "10", "11", "12","13", "14", "15", "16", "17", "18", "19", "20"
                                Log("  (Numeric score for " & FieldName.Trim & FieldValue.Trim & ")")
                                Starter.SQL1.ExecNonQuery2("INSERT INTO Alevelreport VALUES(?, ?, ?,?,?)", Array As Object(Account.Text,FieldValue.Trim, kname, FieldName.Trim ,"1"))
                            Case "F"
                                'query = "CREATE TABLE Alevelreport (Account Text, Points Text,Name text,Subject text, ID INTEGER )"
                                Log("  (No good at " & FieldName.Trim & ")")
          
                        End Select
                                
                    End If
                                    
                Next
                                                                    
                jt.Release
                'StartActivity(DisplayAlevel)
                Return
                                
    
            Next
            
                    
        End If
    End If

 

[DonManfred]

any example with download2 because

USE(!!) the Forumsearch. I´m sure you´ll find a lot of answers

 

[AnandGupta]

Hi Makumbi

Download2 encodes illegal parameters characters (like spaces)
https://www.b4x.com/android/forum/t...-services-are-now-even-simpler.18992/#content

search query : https://www.b4x.com/android/forum/pages/results/?query=Download2+

Regards,

Anand