Estimados Compadres.
Hemos desarrollado una libreria para acceder a servidores en Mysql y mariadb-hikari, se pueden crear Cruds en tiempos cortos y se tuliza el mismo codigo en B4A/B4J con librerias separadas para cada plataforma.
Abajo pusimos un ejemplo como veran es muy simple y facil de aprender. para obtener la libreria hay que donar $20. Nos tomado muchos meses de desarrollos y nos agradaria compartirla con ustedes.
SI desean obtenerla y con soporte incluido pueden escribirle @ANTONIO ALBEIRO VALENCIA y donaciones.
PayPal
Muchas Gracias
Hemos desarrollado una libreria para acceder a servidores en Mysql y mariadb-hikari, se pueden crear Cruds en tiempos cortos y se tuliza el mismo codigo en B4A/B4J con librerias separadas para cada plataforma.
Abajo pusimos un ejemplo como veran es muy simple y facil de aprender. para obtener la libreria hay que donar $20. Nos tomado muchos meses de desarrollos y nos agradaria compartirla con ustedes.
SI desean obtenerla y con soporte incluido pueden escribirle @ANTONIO ALBEIRO VALENCIA y donaciones.
PayPal
Muchas Gracias
Libreria mariadb-hikari:
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Mysql As MYlibreria
Private btnRead As Button
Private btnIns As Button
Private btnUpd As Button
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
Mysql.initialize("MYSQL")
Mysql.connectMariaDB("IP", "3306", "mibase", "usuArio", "passwrod")
'
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub MYSQL_OnError( error As Int, msg As String )
Log("Error MySQL" & msg)
End Sub
Private Sub btnRead_Click
If Mysql.isConnected Then
If Mysql.Query("SELECT fecha, serial,cerro,autoriza,suma FROM liquidausuariohc", True) Then ' False = no debug , True = show debug string sql
Dim i As Int = 1
Dim data As List = Mysql.DataList
For i = 0 To data.Size - 1
Dim item As Map = data.Get(i)
Log($" contador ${i } Fecha ${item.Get("fecha")} serial ${item.Get("serial")} "$)
Next
Mysql.closeQuery
End If
Else
Log("No hubo conexion")
Mysql.Reconnect
End If
End Sub
Private Sub btnIns_Click
If Mysql.isConnected Then
Dim cols As Map = CreateMap("fecha": "2025-01-01", "serial": "00000", "autoriza":"00000","suma": "0.00" )
Mysql.Insert("liquidausuariohc", cols)
Else
Log("No hubo conexion")
Mysql.Reconnect
End If
End Sub
Private Sub btnUpd_Click
If Mysql.isConnected Then
Dim str As StringBuilder
str.Initialize
str.Append("UPDATE liquidausuariohc ")
str.Append("SET fecha=%0 ")
str.Append("WHERE serial=%1 ")
str.Append("LIMIT 1")
Dim cSql As String = str.ToString
cSql = Mysql.StrFormat(cSql, Array As Object(Mysql.Value2Sql("2025-12-31"), 0))
Log(cSql)
Mysql.Execute(cSql)
Else
Log("No hubo conexion")
Mysql.Reconnect
End If
End Sub
Private Sub btnDel_Click
If Mysql.isConnected Then
Dim str As StringBuilder
str.Initialize
str.Append("DELETE FROM liquidausuariohc ")
str.Append("WHERE serial=%0 ")
Dim cSql As String = str.ToString
cSql = Mysql.StrFormat(cSql, Array As Object(0))
Log(cSql)
Mysql.Execute(cSql)
Else
Log("No hubo conexion")
Mysql.Reconnect
End If
End Sub
Sub btnCrea_Click
Dim query As String = $"CREATE TABLE IF NOT EXISTS demos (
codigoeve char(30),
tipoeve char(50),
cobro decimal(12,2),
monto decimal(12,2),
tarifa char(15),
idbeneficiario char(70),
beneficiario char(50),
idempresa char(10),
nomempresa char(50),
idrubro char(25),
rubro char(50),
rechazoz char(1),
maquina char(50),
chofer char(50),
fecha date,
hora char(10),
subio char(10),
proceso char(30),
autorizacion char(10)) "$
Mysql.Execute(query)
Log(query)
End Sub
Last edited:
