Android Tutorial DBUtils - Android databases are now simple!

Sub InsertMaps(SQL As SQL, TableName As String, ListOfMaps As List, Constraint As Int)
   Dim sb, columns, values As StringBuilder
   'Small check for a common error where the same map is used in a loop
   If ListOfMaps.Size > 1 AND ListOfMaps.Get(0) = ListOfMaps.Get(1) Then
      Log("Same Map found twice in list. Each item in the list should include a different map object.")
      ToastMessageShow("Same Map found twice in list. Each item in the list should include a different map object.", True)
      Return
   End If
   Dim Sqlqual As String
   Select Case Constraint
      Case 0
         Sqlqual = "INSERT INTO "
      Case 1
         Sqlqual = "INSERT or REPLACE INTO "
      Case 2
         Sqlqual = "INSERT or IGNORE INTO "
      Case 3
         Sqlqual = "INSERT or FAIL INTO "
   End Select
   SQL.BeginTransaction
   Try
'      Msgbox(ListOfMaps.Size,"Inspections")
      For i1 = 0 To ListOfMaps.Size - 1
         
         sb.Initialize
         columns.Initialize
         values.Initialize
         Dim listOfValues As List
         listOfValues.Initialize
         sb.Append( Sqlqual & "[" & TableName & "] (")
         Dim m As Map
         m = ListOfMaps.Get(i1)
         For i2 = 0 To m.Size - 1
            Dim col As String
            Dim value As Object   
            col = m.GetKeyAt(i2)
            value = m.GetValueAt(i2)
            If i2 > 0 Then
               columns.Append(", ")
               values.Append(", ")
            End If
            columns.Append("[").Append(col).Append("]")
            values.Append("?")
            listOfValues.Add(value)
         Next
         sb.Append(columns.ToString).Append(") VALUES (").Append(values.ToString).Append(")")
         If i1 = 0 Then Log("InsertMaps (first query out of " & ListOfMaps.Size & "): " & sb.ToString)
         SQL.ExecNonQuery2(sb.ToString, listOfValues)
      Next
      SQL.TransactionSuccessful
   Catch
      ToastMessageShow(LastException.Message, True)
      Log(LastException)
   End Try
   SQL.EndTransaction
End Sub

Sub ExecuteListViewWithBlob(SQL As SQL, Query As String, StringArgs() As String, Limit As Int,  _
   ListView1 As ListView, BlobCol As String, ValueCol As String)
   
ListView1.Clear
   Dim Table As Cursor, bmpMom As Bitmap 
   Table = SQL.ExecQuery(Query)
   
   For i = 0 To Table.RowCount - 1
      Table.Position=i
      If Table.GetBlob( BlobCol) = Null Then
         bmpMom.InitializeMutable (100,100)
      Else
          Dim Buffer() As Byte 
          Buffer = Table.GetBlob( BlobCol)
         Dim InputStream1 As InputStream
          InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
          
          bmpMom.Initialize2(InputStream1)
       End If
       
      If ValueCol = Null Then
         ListView1.AddTwoLinesAndBitmap(Table.GetString2( 0), Table.GetString2(1), bmpMom )
      Else
         ListView1.AddTwoLinesAndBitmap2(Table.GetString2( 0), Table.GetString2(1), bmpMom, Table.GetString(ValueCol) )
      End If
      
   Next
   
   
End Sub

Select FirstName, SecondName, BlobCol, IDCol from persone.........

' SUB FOR POPULATE THE SPINNER (x3)
Sub popolaSpinnerDestinazioneMerci()
Dim query As String
   query = "SELECT destinazione_merci.col5 " & _
   "FROM destinazione_merci INNER JOIN clienti " & _
   "ON destinazione_merci.col1= clienti.col2 " & _
   "WHERE clienti.col2=" & QUOTE & showOneCliente.cliente_codice & QUOTE
   Log("query_DestM=" & query)
   DBUtils.ExecuteSpinner(Main.SQL1, query, Null, 0, spinDestMerci)
End Sub

'
Dim Cursor as Cursor
Cursor1 = Main.SQL1.ExecQuery(query)
Cursor1.position=0
Msgbox(Cursor1.GetString("col25")," query result")