Hello developers,
I hope you can help.
In degug mode it works perfectly, but in Realese it doesn't work.
I believe it is a Manifesto problem, below are photos of all attempts.
Thanks
Raul
I hope you can help.
In degug mode it works perfectly, but in Realese it doesn't work.
I believe it is a Manifesto problem, below are photos of all attempts.
Thanks
Raul
simple access to remote SQL database!!:
#Region Project Attributes
#ApplicationLabel: BCXK
#VersionCode: 1
#VersionName: BCXK
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#AdditionalJar: mysql-connector-java-5.1.34-bin
#BridgeLogger: true
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
Public LLVV As ListView
'Public dV As List
Private ProgressBar1 As ProgressBar
Dim BBB As Button
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("1")
LLVV.Initialize("LLVV")
Activity.AddView(LLVV, 10%X , 0, 90%x, 90%y)
BBB.BringToFront
End Sub
Sub LLVV_ItemClick (Position As Int, Value As Object)
Activity.Title = Value & " " & Position
End Sub
Sub Activity_Click
End Sub
Sub Activity_Resume
End Sub
Sub LV_ItemClick (Position As Int, Value As Object)
Starter.CloseConnection
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub BBB_Click
ProgressBar1.Visible = True
Wait For (Starter.Connect) Complete (Success As Boolean)
If Success Then
Try
Dim sf As Object = Starter.mysql.ExecQueryAsync("mysql", "SELECT NOMAQ,EMPRESA FROM waytekco_py.GERALWCHAVE", Null)
Wait For (sf) mysql_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
LLVV.Clear
LLVV.Visible =True
Dim nrow As Int
If Success Then
Do While Crsr.NextRow
'data.Add
nrow=nrow+1
LLVV.AddTwoLines2( Crsr.GetString("nomaq") , Crsr.GetString("empresa"), nrow )
Log($"Id: ${Crsr.GetString("nomaq")}, Name: ${Crsr.GetString("empresa")}"$)
Loop
Crsr.Close
Else
Log(LastException)
End If
Catch
Success = False
Log(LastException)
End Try
Starter.CloseConnection
End If
ProgressBar1.Visible = False
End SubAttachments
Last edited:
