'b4a
public Sub getData_ForJs2(sqlQuery As String,style As String) As String
If style="KKK" Then
Dim gen_Json As Map = DBUtils.ExecuteJSONC(SQL_Book,sqlQuery,Null)
End If
Dim jsonGenerator As JSONGenerator
jsonGenerator.Initialize(gen_Json)
Dim jsonString As Object = jsonGenerator.ToString
Log(jsonString)
Return jsonString
End Sub
'js
async function getResultSetAsRowJSON() {
let sqlQuery = 'SELECT ' + fieldsStr + ' FROM All_Book WHERE Book = ' + bookNum + ' AND Chapter = ' + _chapter + ' LIMIT';
let _resultset;
if (sql_wasm) {
_resultset = _db.exec(sqlQuery + " " + limit);
} else {
let b4x_result2 = B4X.CallSub('getData_ForJs2', false, sqlQuery + ' ' + limit, 'KKK');
console.log(b4x_result2);
const parsed = JSON.parse(b4x_result2);
_resultset = [
{
columns: Object.keys(parsed.root[0]),
values: parsed.root.map(item => Object.values(item))
}
];
}
}