Dim ApostasData As List
ApostasData.Initialize
'
Dim RS As ResultSet = SQL.ExecQuery($"select a.id, CONCAT(b.equipeCasa,' x ',b.equipeFora) , b.campeonato , CONCAT(b.dataP,' ás ', b.horarioP) , c.nome , a.apostadorNome , a.apostado , a.tipo
from
apostas a
inner join
cambistas c
on a.cambistaId = c.id
inner join
partidas b
on a.partidaId = b.id"$)
'WHERE dataA='"&$Date{DateTime.Now}&"';"$)
'Dim RS As ResultSet = SQL.ExecQuery("SELECT * FROM apostas WHERE dataA='"&DateTime.Date(DateTime.Now)&"';")
Log(DateTime.Date(DateTime.Now))
Do While RS.NextRow
Dim row(8) As Object
row(0) = RS.GetString2(0)
row(1) = RS.GetString2(1)
row(2) = RS.GetString2(2)
row(3) = RS.GetString2(3)
row(4) = RS.GetString2(4)
row(5) = RS.GetString2(5)
row(6) = RS.GetString2(6)
row(7) = RS.GetString2(7)
ApostasData.Add(row)
Loop
RS.Close
Log("Chega aqui !")
B4XTable1.SetData(ApostasData)
HideLoading
MenuBar1.Enabled = True