Please send me an email from the emailadress you donated. Best answer my mail. I´ll send new link.
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim db As MySQL
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
' Event Database Host Username Password Databasename
db.Initialize("mysql","192.168.2.101","root","admin","touch",True,True)
End Sub
Sub Activity_Resume
Log("Activity_Resume()")
db.ListTablesAsync
db.QueryASync("select * from tavoli ORDER BY numtavolo ASC;" ,"qry1")
Dim batch As List
batch.Initialize
For i=1 To 100
batch.Add("INSERT INTO tavoli SET numtavolo="&i&";")
Next
db.ExecuteBatchASync(batch,"btch")
db.ExecuteASync("INSERT INTO tavoli SET numtavolo=999;","ins1")
End Sub
Sub MySQL_ExecResult(data As List,meta As Map)
Log(meta)
End Sub
Sub MySQL_BatchResult(batch As Map )
Log(batch)
End Sub
Sub MySQL_QueryResult(data As List, meta As Map)
'Dim m As Map = meta
Log("MySQL_QueryResult("&meta&")")
For i=0 To data.Size-1
'Log("r:"&data.Get(i))
Next
End SubI suggest to hold the RDC2 running. It is the sugegsted way
If the
I just tried
db.Initialize("MySQL","xxxxxxxxxxxxxxxxx","xxxxxx","xxxxxxxxxxxx","xxxxxx",True,True) ' MySQL as Eventprefix
db.QueryASync("select * from Customers LIMIT 0,1 ;", "test1")
wait for MySQL_QueryResult(data As List, meta As Map)
Log("MySQL_QueryResult("&meta&")")
For i=0 To data.Size-1
'Log("r:"&data.Get(i))
Next
Sub Process_Globals
Dim oCn As MySQL
End Sub
Sub Service_Create
Try
oCn.Initialize("MyDB",cDbIP,cDbUserName,cDbPassword,cDataBase,True,True)
oCn.EnableReconnect
Log("Log : Database Connected")
Catch
Log("Log : Error could not connect")
End Try
End Sub
Sub ExecPrepStmnt(Parameters As Map)
Dim cSql As String = "UPDATE Students SET ProfilePicture = ? WHERE User_ID = ?"
oCn.PeparedStatement(cSql)
oCn.setPeparedBlob(1,File.DirDefaultExternal & "/MyProfilePic.jpeg")
oCn.setPeparedInt(2,2)
Log("About to execute")
oCn.ExecutePeparedStatement("MyTaskName")
Log("executed")
End Sub
Sub MyDB_onPreparedStatementResult(meta As Map)
LogColor("Inside MyDB_onPreparedStatementResult",Colors.Blue)
For Each k As String In meta.Keys
Log(k)
Next
End Sub
.
