Re: mysql
Posted: Thu Jun 27, 2019 9:02 am
If you create a structure in SB that matches your JSON data, you can use ExtractJSONStructure().
Code: Select all
[{"part_number":"1a105"},{"part_number":"1A239"},{"part_number":"1A255"},{"part_number":"AC-03"},{"part_number":"AC-06S"},{"part_number":"AC-08BA"},{"part_number":"AR-0036"},{"part_number":"AR-0039"},{"part_number":"AR-0045"},{"part_number":"AR-0046"}]
Code: Select all
NewList STRU_parts.s()
ParseJSON(0, Result$)
ExtractJSONList(JSONValue(0), STRU_parts())
x = 1
ForEach STRU_parts()
AddGadgetItem(GVAR_a, x, STRU_parts())
x + 1
Next
Code: Select all
EnableExplicit
Define JsonResult.s
Define Counter
Define Json
Structure sParts
part_number.s
EndStructure
JsonResult = ~"[" +
~"{\"part_number\":\"1a105\"}," +
~"{\"part_number\":\"1A239\"}," +
~"{\"part_number\":\"1A255\"}," +
~"{\"part_number\":\"AC-03\"}," +
~"{\"part_number\":\"AC-06S\"}," +
~"{\"part_number\":\"AC-08BA\"}," +
~"{\"part_number\":\"AR-0036\"}," +
~"{\"part_number\":\"AR-0039\"}," +
~"{\"part_number\":\"AR-0045\"}," +
~"{\"part_number\":\"AR-0046\"}" +
~"]"
Json = ParseJSON(#PB_Any, JsonResult)
If Json <> 0
Dim Parts.sParts(0)
ExtractJSONArray(JSONValue(Json), Parts())
FreeJSON(Json)
For Counter = 0 To ArraySize(Parts())
Debug "Part-Number: " + Parts(Counter)\part_number
Next
Else
Debug "JSONErrorMessage: " + JSONErrorMessage()
EndIf
Code: Select all
Structure STRU_parts
part_no.s
EndStructure
Procedure HttpGetEvent(Success, Result$, UserData)
If Success
SetGadgetText(GVAR_d, Result$)
Json = ParseJSON(#PB_Any, Result$)
If Json <> 0
Dim LIST_parts.STRU_parts(0)
ExtractJSONArray(JSONValue(Json), LIST_parts())
FreeJSON(Json)
For LVAR_counter = 0 To ArraySize(LIST_parts())
AddGadgetItem(GVAR_a, -1, LIST_parts(LVAR_counter)\part_no + Chr(10) + Str(Date()) )
Next
Else
AddGadgetItem(GVAR_a, 1, "JSONErrorMessage: " + JSONErrorMessage())
EndIf
Else
SetGadgetText(GVAR_a, "HTTPRequest(): Error")
EndIf
EndProcedure
Code: Select all
function utf8ize($d)
{
if (is_array($d) || is_object($d))
foreach ($d as &$v) $v = utf8ize($v);
else
return utf8_encode($d);
return $d;
}
$mysqli = new mysqli("myserver", "myuser", "mypassword", "mydatabase");
$myArray = array();
if ($result = $mysqli->query("SELECT part_number FROM tbl_product LIMIT 10")) {
while($row = $result->fetch_array(MYSQLI_ASSOC)) {
$myArray[] = $row;
}
//echo json_encode(utf8ize($myArray));
echo json_encode($myArray);
//echo $myArray;
}
$result->close();
$mysqli->close();
Code: Select all
Structure STRU_parts
part_number.s
EndStructure