Hi all
i share a easy code to get select from a database using a file on server (can use https)
the first part of code is php to put on server with name: mysqlphp.php:
the second part of code is a class for b4a:
the thirt part of code is a call class b4a:
You can call sentence to any row, or all rows. (The php only send the rows selected)
select * from table
select id, name from table
i share a easy code to get select from a database using a file on server (can use https)
the first part of code is php to put on server with name: mysqlphp.php:
B4X:
<?php
if (isset($_GET['query'])) {$query = base64_decode(urldecode(htmlspecialchars($_GET['query'])));} else {exit;};
if (isset($_GET['database'])) {$dbname = base64_decode(urldecode(htmlspecialchars($_GET['database'])));} else {exit;};
//internacional code utf-8
header ('Content-type: text/html; charset=utf-8');
//datos conexion
$localhost="localhost";
$user= USERNAME;
$pass= PASSWORD;
$connect_mysql=mysqli_connect($localhost,$user,$pass,$dbname);
mysqli_set_charset($connect_mysql,"utf8");
$return_arr = array();
$fetch = mysqli_query($connect_mysql,$query);
while ($row = mysqli_fetch_array($fetch, MYSQLI_ASSOC)) {
foreach ($row as $field => $value)
{
$row_array[$field] = $value;
}
array_push($return_arr,$row_array);
}
$gzdata = base64_encode(gzcompress(json_encode($return_arr)));
echo $gzdata;
exit;
?>the second part of code is a class for b4a:
B4X:
Sub Class_Globals
Private CallBack As Object
Private sqlquery As String
Private database As String
End Sub
Public Sub Initialize(vCallback As Object, vSqlQuery As String, vDatabase As String)
CallBack = vCallback
sqlquery = vSqlQuery
database = vDatabase
End Sub
Public Sub query
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://xxxxxxxx.com/mysqlphp.php", Array As String ("query",encode64(sqlquery),"database",encode64(database)))
j.GetRequest.Timeout = 5000
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Try
Dim strResult As String = decode(j.GetString)
If errInHtml(strResult) Then
j.Release
CallSub3(CallBack,"query_finish",False, Null)
End If
Dim parser As JSONParser
parser.Initialize(strResult)
Dim rootlist As List = parser.NextArray
Catch
Log("mysqlphp_trycatch: " & LastException)
j.Release
CallSub3(CallBack,"query_finish",False, Null)
End Try
CallSub3(CallBack,"query_finish",True, rootlist)
Else
CallSub3(CallBack,"query_finish",False, Null)
End If
j.Release
End Sub
Sub errInHtml(txt As String) As Boolean
If txt="" Or txt.Contains("<TITLE>403 Forbidden</TITLE>") Or txt.Contains("<TITLE>404 Not Found</TITLE>") Then
Log("job errInHtml downloading 403 or 404")
Return True
Else
Return False
End If
End Sub
Sub decode(txt As String) As String
Dim strResult As String
Dim cs As CompressedStreams
Dim su As StringUtils
Dim bt() As Byte
Dim bc As ByteConverter
Try
bt = su.DecodeBase64(txt)
bt = cs.DecompressBytes(bt, "zlib")
strResult = bc.StringFromBytes(bt, "UTF8")
Return strResult
Catch
Log(LastException)
Return ""
End Try
End Sub
Sub encode64(txt As String) As String
Dim su As StringUtils
Return su.EncodeBase64(txt.GetBytes("UTF8")) 'data is a bytes array
End Subthe thirt part of code is a call class b4a:
B4X:
Dim mysqlphp1 As mysqlphp
mysqlphp1.Initialize(Me," select * from table ", "db_name")
mysqlphp1.query
Wait For (mysqlphp1) query_finish(success As Boolean, lista As List)
If success And lista.Size>0 Then
For Each colroot As Map In lista
log(colroot.get("id"))
log(colroot.get("name"))
Next
end if
End IfYou can call sentence to any row, or all rows. (The php only send the rows selected)
select * from table
select id, name from table
Last edited:
