[chargeable] MSMySQL - Yet another MySQL-Library (but a FAST one :-))

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

            'my db has two tables : users,students
            'users table has 3 fields : id(Int(11)/auto increment/pk),user_name(varchar(80)/String),pass(text/SHA1)
            'students table has 4 fields : id(Int(11)/auto increment/pk),name(varchar(20)/String),age(Int(3)),grade(Float)
            '    
            'Insert/Update/Delete ==> In User OR Student table just one Is enough
            'Display AND Retrieve fields AND display them In a table View OR grid
            '
            'flexible table 
            '
            'with this example will help alot of newbie like Me,,
            'any help will appreciated !
            '
            'HostName : sql5.freesqldatabase.com
            'dbUserName: sql575554
            'dbPassword: qV1*wB5*
            'db Name : sql575554
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")
   
    'DisableStrictMode
    '                            free host               
    db.Initialize("MySQL", "sql5.freesqldatabase.com", "sql575554","qV1*wB5*", "sql575554")
    db.QueryASync2("SELECT * FROM `users`", 1)
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

'MYSQL RESULTS
Sub MySQL_BatchResult(batch As Map) 'Not tested
    Log(batch.Size)
End Sub

Sub MySQL_ExecResult(meta As Map)
    Log(meta.Size)
End Sub

Sub MySQL_ListTables(tables As List, ms As Long)
    For i = 0 To tables.Size - 1
        Log(tables.Get(i))
    Next
    Log(tables.Size)
End Sub

Sub MySQL_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
    Log(Connected)
End Sub

Sub MySQL_QueryResult(data As List, meta As Map)
    For i = 0 To data.Size - 1
        Log(data.Get(i))
    Next
    Log(data.Size)   
    Log(meta.Size)   
End Sub

Sub MySQL_QueryResult2(data As List, meta As Map)
    ToastMessageShow(meta.Get("RecordCount") & " rows retrieved in " & meta.Get("ms") & " milliseconds", True)

    For i = 0 To data.Size - 1
        Log(data.Get(i))
    Next
    Log(data.Size)
    Log(meta.Size)
End Sub

Sub Bt1_Click
    name=Et1.Text
    db.QueryASync("SELECT Nome from Utenti;","")
End Sub

Sub MySQL_QueryResult(data As List, meta As Map)
        Dim utente_presente=0 As Int
            For i = 0 To data.Size-1
                If name = data.Get(i) Then
                    utente_presente=1
                Else
                    utente_presente=0
                End If
            Next
        If utente_presente=1 Then
            Msgbox("Presente","")
        Else
            Msgbox("Assente","")
        End If
End Sub