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

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Main")
    '             Event  Database Host          Username   Password           Databasename
    'db.Initialize("sql","host.com","dbuser","dbpassword","database")
  
    ' Manfred
    db.Initialize("MySQL","host","user","password","database")
    db.ListTablesAsync
    Dim j As HttpJob
    j.Initialize("JobName",Me)
    j.Download("http://snapshots.basic4android.de")
End Sub
Sub Activity_Resume
    Log("Activity_Resume()")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub MySQL_ExecResult(meta As Map)
    Log(meta)  
End Sub
Sub MySQL_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
    Log($"MySQL_Status(${Connected},${ReConnecting},${RetriesLeft})"$)
End Sub
Sub MySQL_ListTables(tables As List, ms As Long)
    Log($"MySQL_ListTables(${tables},${ms} ms)"$)
End Sub
Sub JobDone(Job As HttpJob)
  Log("JobDone("&Job.JobName&")")
  ProgressDialogHide
    If Job.Success Then
      'Dim res As String = Job.GetString
    'Log("Server response: " & res)
  Else
    ToastMessageShow("Error: " & Job.ErrorMessage,True)
  End If
    Job.Release         
End Sub

** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
Raising.. mysql_status
Connected to Database
** Activity (main) Resume **
Activity_Resume()
** Activity (main) Pause, UserClosed = false **
sending message to waiting queue (mysql_status)
sending message to waiting queue (mysql_listtables)
** Service (httputils2service) Create **
** Service (httputils2service) Start **
running waiting messages (2)
MySQL_Status(true,false,0)
MySQL_ListTables([Alphabetical list of products, Categories, Category Sales for 1997, Current Product List, Customer and Suppliers by City, CustomerCustomerDemo, CustomerDemographics, Customers, EmployeeTerritories, Employees, Invoices, Order Details, Order Details Extended, Order Subtotals, Orders, Orders Qry, Product Sales for 1997, Products, Products Above Average Price, Products by Category, Quarterly Orders, Region, Sales Totals by Amount, Sales by Category, Shippers, Summary of Sales by Quarter, Summary of Sales by Year, Suppliers, Territories, b4alibs, b4alog, b4j_users, invoices],69 ms)
** Activity (main) Resume **
Activity_Resume()
JobDone(JobName)

Click to expand...

DonManfred said:

B4X:

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Main")
    '             Event  Database Host          Username   Password           Databasename
    'db.Initialize("sql","host.com","dbuser","dbpassword","database")
 
    ' Manfred
    db.Initialize("MySQL","host","user","password","database")
    db.ListTablesAsync
    Dim j As HttpJob
    j.Initialize("JobName",Me)
    j.Download("http://snapshots.basic4android.de")
End Sub
Sub Activity_Resume
    Log("Activity_Resume()")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
 
Sub MySQL_ExecResult(meta As Map)
    Log(meta) 
End Sub
Sub MySQL_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
    Log($"MySQL_Status(${Connected},${ReConnecting},${RetriesLeft})"$)
End Sub
Sub MySQL_ListTables(tables As List, ms As Long)
    Log($"MySQL_ListTables(${tables},${ms} ms)"$)
End Sub
Sub JobDone(Job As HttpJob)
  Log("JobDone("&Job.JobName&")")
  ProgressDialogHide
    If Job.Success Then
      'Dim res As String = Job.GetString
    'Log("Server response: " & res)
  Else
    ToastMessageShow("Error: " & Job.ErrorMessage,True)
  End If
    Job.Release        
End Sub

Works!

Click to expand...

DonManfred said:

B4X:

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Main")
    '             Event  Database Host          Username   Password           Databasename
    'db.Initialize("sql","host.com","dbuser","dbpassword","database")
 
    ' Manfred
    db.Initialize("MySQL","host","user","password","database")
    db.ListTablesAsync
    Dim j As HttpJob
    j.Initialize("JobName",Me)
    j.Download("http://snapshots.basic4android.de")
End Sub
Sub Activity_Resume
    Log("Activity_Resume()")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
 
Sub MySQL_ExecResult(meta As Map)
    Log(meta) 
End Sub
Sub MySQL_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
    Log($"MySQL_Status(${Connected},${ReConnecting},${RetriesLeft})"$)
End Sub
Sub MySQL_ListTables(tables As List, ms As Long)
    Log($"MySQL_ListTables(${tables},${ms} ms)"$)
End Sub
Sub JobDone(Job As HttpJob)
  Log("JobDone("&Job.JobName&")")
  ProgressDialogHide
    If Job.Success Then
      'Dim res As String = Job.GetString
    'Log("Server response: " & res)
  Else
    ToastMessageShow("Error: " & Job.ErrorMessage,True)
  End If
    Job.Release        
End Sub

Works!

Click to expand...

DonManfred said:

Due to the fact that the lib is using Andrid Async-Tasks it will not work on b4j

i dont know how to do this in b4j

Click to expand...

FabioRome said:

Thanks anyway

Click to expand...

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Dim sql1 As SQL

End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.SetFormStyle("UNIFIED")
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    sql1.InitializeAsync("sql1", "com.mysql.jdbc.Driver", "jdbc:mysql://hostname/dbname?characterEncoding=utf8", "username", "dbpassword")

    MainForm.Show
End Sub

Sub sql1_Ready (Success As Boolean)
   Log(Success)
   If Success = False Then
     Log(LastException)
     Return
   End If
   Dim rs As ResultSet = sql1.ExecQuery("SELECT table_name FROM information_schema.tables")
   Do While rs.NextRow
     Log(rs.GetString2(0))
   Loop
   rs.Close
End Sub

DonManfred said:

Click to expand...

walterf25 said:

Hey Don, what are you using to display the table, are you using the FlexibleTable class?

Click to expand...

jahswani said:

Yes it's the flexi table Class.
Note that this not part of this library.

Click to expand...