Buenas y disculpad, sigo con el jrdc(y la verdad me va muy bien) , pero estoy intentando añadir los datos de una tabla, a una base de datos, pero solo me añade el 1º registro.
El resto, me recoge valores NULL y no se por que
Añado 3 registros y en le log me devuelve
Este sería el código que uso
en variable_pedidos lo que tengo para no saturar el codigo son las variables un ejemplo
El caso es que me añade el 1 registro y el resto con lso campos NULL, he probado añadiendo las variables directamente en el For i = 0 To FlexGrid2.RowCount -1 y nada.
pero si ELIMINO o COMENTO el insert, si me muestra los valores bien, sin ningun NULL. y he estado buscando y no encuentro el por que.
El resto, me recoge valores NULL y no se por que
Añado 3 registros y en le log me devuelve
B4X:
ARTICULO SIN ALCOHOL
Inserted successfully!
ARTICULO null
Inserted successfully!
ARTICULO null
Inserted successfully!
Este sería el código que uso
B4X:
For i = 0 To FlexGrid2.RowCount -1
fila_recorrida = i
Variables_Pedidos ' aqui es donde tengo TODAS las variables en las que meto los datos al ir recorriendo
Log ( "ARTICULO " & Articulo_dgv)
Dim cmd As DBCommand = CreateCommand("Insert", Array(Null,Articulo_dgv))
Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("Inserted successfully!")
End If
j.Release
Next
en variable_pedidos lo que tengo para no saturar el codigo son las variables un ejemplo
B4X:
Articulo_dgv = FlexGrid2.GetCellValue(fila_recorrida,1)
TOTAL_remplace = FlexGrid2.GetCellValue(fila_recorrida,3)
cantidad_dgv= FlexGrid2.GetCellValue(fila_recorrida,8)
El caso es que me añade el 1 registro y el resto con lso campos NULL, he probado añadiendo las variables directamente en el For i = 0 To FlexGrid2.RowCount -1 y nada.
pero si ELIMINO o COMENTO el insert, si me muestra los valores bien, sin ningun NULL. y he estado buscando y no encuentro el por que.
B4X:
Dim cmd As DBCommand = CreateCommand("Insert", Array(Null,Articulo_dgv))
Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("Inserted successfully!")
End If
j.Release