Please, how do i rewrite the below code To PHP
B4X:
Dim Data As List
Data.Initialize
Dim rs As ResultSet = Connection.DB.ExecQuery("SELECT USERNAME, FULLNAME, CONTACT, EMAIL, USERTYPE, JDATE, APPROVE FROM ACCOUNT")
Do While rs.NextRow
Dim row(8) As Object
row(0) = ""
row(1) = rs.GetString("USERNAME")
row(2) = rs.GetString("FULLNAME")
row(3) = rs.GetString("CONTACT")
row(4) = rs.GetString("EMAIL")
row(5) = rs.GetString("USERTYPE")
row(6) = rs.GetString("JDATE")
row(7) = rs.GetString("APPROVE")
Data.Add(row)
Loop
rs.Close
B4XTable1.SetData(Data)