Android Question [Solved] Convert code

P

ProjectGroup19

Active Member
Licensed User
Longtime User
Hi Community,
Please, i have this workings code which works for my local sqlite db but how do i convert the part of the code to work for an online database.

I have added the part of the working code with the sqlite db which i want to covert. and what i have done so far with the converting which is not working.

Please, all I'm just trying to do is to use HttpJob to get the query response from my php script.

The working code with sqlite
B4X: Copy 
Dim rs1 As ResultSet
    strQuery = $"SELECT DISTINCT POSITION FROM ${TableName}  ORDER BY POSITION"$
    rs1  = Starter.SQL.ExecQuery(strQuery)
    Do While rs1.NextRow
        Dim MyPosition As String =rs1.GetString("POSITION")
        Log(MyPosition)
        AddTitle(MyPosition)
        Dim rs As ResultSet
        strQuery=$"SELECT * FROM ${TableName} WHERE POSITION LIKE ?  ORDER BY POSITION"$
        rs=Starter.SQL.ExecQuery2(strQuery, Array As String(MyPosition))
        Do While rs.NextRow
            Dim TD As TestData
            TD.Initialize
            TD.strPosition =rs.GetString("POSITION")
            TD.strname =rs.GetString("NAME")
            Dim b() As Byte
            b = rs.GetBlob("PIC")
            If b <> Null Then
                TD.img = BytesToBmp(b)
            Else
                TD.img = LoadBitmapResize(File.DirAssets, "Hannibal.jpg", 40dip, 40dip, True)
            End If
            Dim Pnl As B4XView = xui.CreatePanel(Null) '
            Pnl.SetLayoutAnimated(0dip, 0dip,0dip, CLV1.AsView.Width, itemHeight)
      
            CLV1.Add(Pnl, TD)
        Loop
        rs.Close
    Loop
    rs1.Close

What i have done so far but not working.
B4X: Copy 
Dim a As HttpJob
    a.Initialize("a",Me)
    a.PostString(Main.strURL & "CANDIDATE/candidate.php",$"Action=category&ENAME=${EN}"$)
    ProgressDialogShow2("L o a d i n g",False)

    Wait For(a) JobDone(q As HttpJob)

    If q.Success Then
'        ProgressDialogHide
        Dim ret As String
        'Dim act As String
        ret =q.GetString
    '#if debug
    Log(ret)
    '#End if
        Dim parser As JSONParser
        parser.Initialize(ret)

        Dim Data As List
        Data = parser.NextArray 'returns a list with ma
  

        For i = 0 To Data.Size - 1
            Dim ma As Map
            ma = Data.Get(i)
      
    
          
                Dim MyPosition As String =ma.Get("POSITION")
  
                AddTitle(MyPosition)
          
                Dim a1 As HttpJob
                a1.Initialize("a1",Me)
                a1.PostString(Main.strURL & "CANDIDATE/candidate.php",$"Action=candidate&Poll=${EN}&Position=${MyPosition}"$)
                ProgressDialogShow2("L o a d i n g ..",False)

                Wait For(a1) JobDone(q1 As HttpJob)

                If q1.Success Then
                    ProgressDialogHide
                    Dim ret1 As String
          
                    ret1 =q1.GetString
                    '#if debug
                    Log(ret1)
                    '#End if
                    Dim parser1 As JSONParser
                    parser1.Initialize(ret1)

                    Dim Data1 As List
                    Data1 = parser1.NextArray 'returns a list with ma
  
                    For i = 0 To Data1.Size - 1
                        Dim ma1 As Map
                        ma1 = Data1.Get(i)
      
              

                            Dim TD As TestData
                            TD.Initialize
                            TD.strPosition =ma1.Get("POSITION")
                            TD.strname =ma1.Get("FULLNAME")
      
                            If ma1.Get("PIC")="" Or ma1.Get("PIC")=Null Then
                                TD.img    =LoadBitmap(File.DirAssets,"index.png")

                            Else
                          
                                Dim b As String=ma1.Get("PIC")
              
                                Dim job6 As HttpJob
                                job6.Initialize( "", Me )
                                job6.Download( b )
                                Wait For (job6) JobDone( job7 As HttpJob )
                                If job7.Success Then
                                    'Dim
                                    TD.img= job7.GetBitmapResize(80%x,100%y,True)
                                    job7.Release
                                End If
      
                            End If
              
                            Dim Pnl As B4XView = xui.CreatePanel(Null) '
                            Pnl.SetLayoutAnimated(0dip, 0dip,0dip, CustomListView1.AsView.Width, itemHeight)
      
                            CustomListView1.Add(Pnl, TD)
      
              
                  
                    Next
          
                ProgressDialogHide
              
      
                q1.Release
      

      
            End If
        Next

        ProgressDialogHide
    End If
    q.Release
 
Last edited:
Solution
P
ProjectGroup19 said:
Hi Community,
Please, i have this workings code which works for my local sqlite db but how do i convert the part of the code to work for an online database.

I have added the part of the working code with the sqlite db which i want to covert. and what i have done so far with the converting which is not working.

Please, all I'm just trying to do is to use HttpJob to get the query response from my php script.

The working code with sqlite
B4X: Copy 
Dim rs1 As ResultSet
    strQuery = $"SELECT DISTINCT POSITION FROM ${TableName}  ORDER BY POSITION"$
    rs1  = Starter.SQL.ExecQuery(strQuery)
    Do While rs1.NextRow
        Dim MyPosition As String =rs1.GetString("POSITION")
        Log(MyPosition)
        AddTitle(MyPosition)...
Click to expand...
Sort by date Sort by votes
ProjectGroup19 said:
What i have done with the online database but not working.
Click to expand...
Hiding the problem/error is a good idea!?

I would collect 100, 1000, 10000 Datasets and do ONE Call to transfer it to the onlinedb at once.
 
Upvote 0
ProjectGroup19 said:
Hi Community,
Please, i have this workings code which works for my local sqlite db but how do i convert the part of the code to work for an online database.

I have added the part of the working code with the sqlite db which i want to covert. and what i have done so far with the converting which is not working.

Please, all I'm just trying to do is to use HttpJob to get the query response from my php script.

The working code with sqlite
B4X: Copy 
Dim rs1 As ResultSet
    strQuery = $"SELECT DISTINCT POSITION FROM ${TableName}  ORDER BY POSITION"$
    rs1  = Starter.SQL.ExecQuery(strQuery)
    Do While rs1.NextRow
        Dim MyPosition As String =rs1.GetString("POSITION")
        Log(MyPosition)
        AddTitle(MyPosition)
        Dim rs As ResultSet
        strQuery=$"SELECT * FROM ${TableName} WHERE POSITION LIKE ?  ORDER BY POSITION"$
        rs=Starter.SQL.ExecQuery2(strQuery, Array As String(MyPosition))
        Do While rs.NextRow
            Dim TD As TestData
            TD.Initialize
            TD.strPosition =rs.GetString("POSITION")
            TD.strname =rs.GetString("NAME")
            Dim b() As Byte
            b = rs.GetBlob("PIC")
            If b <> Null Then
                TD.img = BytesToBmp(b)
            Else
                TD.img = LoadBitmapResize(File.DirAssets, "Hannibal.jpg", 40dip, 40dip, True)
            End If
            Dim Pnl As B4XView = xui.CreatePanel(Null) '
            Pnl.SetLayoutAnimated(0dip, 0dip,0dip, CLV1.AsView.Width, itemHeight)
     
            CLV1.Add(Pnl, TD)
        Loop
        rs.Close
    Loop
    rs1.Close

What i have done so far but not working.
B4X: Copy 
Dim a As HttpJob
    a.Initialize("a",Me)
    a.PostString(Main.strURL & "CANDIDATE/candidate.php",$"Action=category&ENAME=${EN}"$)
    ProgressDialogShow2("L o a d i n g",False)

    Wait For(a) JobDone(q As HttpJob)

    If q.Success Then
'        ProgressDialogHide
        Dim ret As String
        'Dim act As String
        ret =q.GetString
    '#if debug
    Log(ret)
    '#End if
        Dim parser As JSONParser
        parser.Initialize(ret)

        Dim Data As List
        Data = parser.NextArray 'returns a list with ma
 

        For i = 0 To Data.Size - 1
            Dim ma As Map
            ma = Data.Get(i)
     
   
         
                Dim MyPosition As String =ma.Get("POSITION")
 
                AddTitle(MyPosition)
         
                Dim a1 As HttpJob
                a1.Initialize("a1",Me)
                a1.PostString(Main.strURL & "CANDIDATE/candidate.php",$"Action=candidate&Poll=${EN}&Position=${MyPosition}"$)
                ProgressDialogShow2("L o a d i n g ..",False)

                Wait For(a1) JobDone(q1 As HttpJob)

                If q1.Success Then
                    ProgressDialogHide
                    Dim ret1 As String
         
                    ret1 =q1.GetString
                    '#if debug
                    Log(ret1)
                    '#End if
                    Dim parser1 As JSONParser
                    parser1.Initialize(ret1)

                    Dim Data1 As List
                    Data1 = parser1.NextArray 'returns a list with ma
 
                    For i = 0 To Data1.Size - 1
                        Dim ma1 As Map
                        ma1 = Data1.Get(i)
     
             

                            Dim TD As TestData
                            TD.Initialize
                            TD.strPosition =ma1.Get("POSITION")
                            TD.strname =ma1.Get("FULLNAME")
     
                            If ma1.Get("PIC")="" Or ma1.Get("PIC")=Null Then
                                TD.img    =LoadBitmap(File.DirAssets,"index.png")

                            Else
                         
                                Dim b As String=ma1.Get("PIC")
             
                                Dim job6 As HttpJob
                                job6.Initialize( "", Me )
                                job6.Download( b )
                                Wait For (job6) JobDone( job7 As HttpJob )
                                If job7.Success Then
                                    'Dim
                                    TD.img= job7.GetBitmapResize(80%x,100%y,True)
                                    job7.Release
                                End If
     
                            End If
             
                            Dim Pnl As B4XView = xui.CreatePanel(Null) '
                            Pnl.SetLayoutAnimated(0dip, 0dip,0dip, CustomListView1.AsView.Width, itemHeight)
     
                            CustomListView1.Add(Pnl, TD)
     
             
                 
                    Next
         
                ProgressDialogHide
             
     
                q1.Release
     

     
            End If
        Next

        ProgressDialogHide
    End If
    q.Release
Click to expand...

The problem was with the inner loop. It kept on looping itself.

I searched the forum several times and found this post;

For loop not going for Next

Hi I have a code like this If ..... Then For i = 0 to List.Size - 1 If ..... Then If .... Then //do something Else //do something End If Else If .... Then //do something Else //do something...
www.b4x.com www.b4x.com

The #4 post from @stevel05 helped me out.

I changed the variable of the inner for loop from [For i = 0 To Data1.Size - 1] to [For a = 0 To Data1.Size - 1] and it fix my issue.
 
Upvote 0
Solution
You must log in or register to reply here.

Similar Threads

Olaan
  • Solved
Android Question [Solved]How convert Java Code in be B4X Code
Replies
12
Views
4K
PaulMeuris
P
Olaan
  • Solved
Android Question [Solved]How to code converting String to a character array?
Replies
12
Views
5K
QSerg
Q
P
  • Question Question
Android Question [SOLVED] com.android.dx.cf.code.SimException - Firebasenotification
Replies
2
Views
4K
prajinpraveen
P
Erel
  • Locked
  • Article Article
Android Tutorial [B4X] [B4XPages] What exactly does it solve?
2
Replies
24
Views
45K
Erel
Erel
fredo
Games [x2][solved] Help needed regarding Object Movement
Replies
10
Views
9K
fredo
fredo
Back
Top