Android Question Mysql abfrage in einer klasse

[marcusschwertz]

Hallo vielleicht kann mir jemand helfen. Ich möchte eine Klasse schreiben der ich meinen sql übergebe und diese mir das Ergebnis als List zurückgibt
http://www.b4x.com/android/forum/threads/connect-android-to-mysql-database-tutorial.8339/#content wie in diesem Beispiel nur ich bekomme das mit dem "return" nicht hin wenn ich das return in die sub response_succes schreibe funktioniert es nicht

danke schonmal im vorraus

 

[marcusschwertz]

in Englisch:

Hi maybe someone can help me. I want to write a class which I Hand over my sql and it returns me the result as list
http://www.b4x.com/android/fo...roid-to-mysql-database-tutorial.8339/#content
as in this example, only I get the the "return" not out when I write the return to the sub response_succes it does not work

Example

List = Class.function(SQL)

 

[Erel]

This is not possible as the http request is an asynchronous task. You will need to handle the event in the same way that HttpJob does it.

 

[marcusschwertz]

'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim req As HttpRequest
    Dim Abfrage_URL As String
    Dim SQL_String As String
    Dim Timer1 As Timer
    Dim LIste As List
    Dim fertig As Boolean
    Dim abfrage_HttpClient As HttpClient
    Dim Thread1 As Thread
    Dim args(0) As Object
End Sub
 
Sub blbub(SQL_String As String) As List
Thread1.Initialise("Thread1")
Thread1.Start(Null,"test_abfrage",args)
fertig = False
Do While fertig = False
    Timer1.Initialize("Timer1",500)
    Timer1.Enabled = True
Loop
Return LIste
End Sub
 
Sub Timer1_Tick
 
End Sub
 
Sub test_abfrage
    Abfrage_URL = "http://url..../abfrage.php"
    abfrage_HttpClient.Initialize("abfrage_HttpClient")
    req.InitializePost2(Abfrage_URL, SQL_String.GetBytes("UTF8"))
    abfrage_HttpClient.Execute(req,1)
End Sub
 
Sub abfrage_HttpClient_responsesuccess (Response As HttpResponse,Taskid As Long)
Dim parser As JSONParser
        parser.Initialize(Response.GetString("UTF8"))
        LIste = parser.NextArray
        fertig = True
End Sub
 
Sub abfrage_HttpClient_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    ToastMessageShow("Fehler: " & Reason & ", StatusCode: " & StatusCode,False)
    fertig = True
End Sub

Why does this not work? I get the error that the sub abfrage_HttpClient_responsesuccess is not found. Or does anyone have another solution? Since I do not always want to write the Subs for each query.

 

[Erel]

Code modules cannot handle events. I highly recommend you to use HttpUtils2. You do not need to create a sub for each query. You should use the JobName property to do whatever you need to do.

 

[marcusschwertz]

Currently I use a recordset and when I use HttpUtils2 I would have to rewrite all my code. The problem is that I can not be higher than 8 set the SDK version when I work with Recordset

 

[Erel]

This is exactly the problem with the MSSQL library. It doesn't use background threads to manage the network communication.

 

[marcusschwertz]

I'm using MySQL and I have tried in the above code in the sub "blbub" to stay up as long as the result is come. So I can return it in the Sub "blbub"
Why i can´t use HttpUtils 2 in code module classes?

 

[Erel]

Code modules cannot handle events: Static Code Modules