Spanish [SOLUCIONADO] Insertar varias filas en DB a la vez (mysql, jrd2)

Sub InsertRecord(vindatabase As String, lotebombadatabase As String, fechabombadatabase As String, fechadatabase As String, horadatabase As String, numerobombadatabase As Int, posicionBombadatabase As String, estadodatabase As String )
   
    Dim cmd As DBCommand = CreateCommand("insertRegistro2", Array( vindatabase, lotebombadatabase, fechabombadatabase, fechadatabase, horadatabase, numerobombadatabase,posicionBombadatabase,estadodatabase))
    Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
    Wait For (j) jobDone(j As HttpJob)
    ProgressDialogShow("Espere porfavor...")
    If j.Success Then
       
    End If
    ProgressDialogHide
    j.Release
       
End Sub

Sub InsertRecord(vindatabase As String, lotebombadatabase As String, fechabombadatabase As String, fechadatabase As String, horadatabase As String, numerobombadatabase As Int, posicionBombadatabase As String, estadodatabase As String )
   Dim Commands As List 'creas una lista para meter todo los comandos inserts

   'En los parámetros del sub, en vez de los campos de un solo insert, deberías pasar un array con todos o algo, que puedas ir recorriendo en este bucle
    For i = 0 To NumeroDeInsertsQueVayasAHacer 'O longitud del array de parámetros
        Dim cmd As DBCommand
        cmd.Initialize
        cmd.Name = "insertRegistro2" 'El nombre de tu sentencia SQL
        cmd.Parameters = Array As Object(Array( vindatabase, lotebombadatabase, fechabombadatabase, fechadatabase, horadatabase, numerobombadatabase,posicionBombadatabase,estadodatabase)) 'Aquí el array con tus parámetros, que deben variar cada bucle: (1,2,3), (4,5,6), (7,8,9)
        Commands.Add(cmd)
    Next
    Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(Commands), Null) 'Aquí enviamos la lista Commands, en vez de un solo comando cmd)
    Wait For (j) jobDone(j As HttpJob)
    ProgressDialogShow("Espere porfavor...")
    If j.Success Then
    
    End If
    ProgressDialogHide
    j.Release
    
End Sub

InsertRecord(B4XPages.MainPage.VINDato,B4XPages.MainPage.lote,B4XPages.MainPage.fechaLote,B4XPages.MainPage.fechaconmutaBomba,B4XPages.MainPage.horaconmutaBomba,B4XPages.MainPage.numeroBidon,B4XPages.MainPage.Bomba,B4XPages.MainPage.estadoBASEdatos)

'Crearía un tipo para los registros
Type TBomba ( vindatabase as Int, lotebombadatabase as String, fechabombadatabase .......)

Private Registro as TBomba
Private ListaRegistros as List

'Supongo que en algún punto, tendrás muchos registros que añadir, no sólo uno cogido de un formulario, así que esto debería ser algún tipo de bucle que recoja todos los registros que quieres insertar a la vez
While .....
Registro.vindatbase=B4XPages.MainPage.VINDato
Registro.lotebombadatabase = B4XPages.MainPage.lote
....

ListaRegistros.Add(Registro)
Wend

'Una vez agregados todos los registros a tu lista, llamarías a tu sub para agregarlos, por ejemplo:
InsertMultipleRecords(ListaRegistros)