Sub Class_Globals
Private fx As JFX
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Public Sub garabcountrys(dbname As String, dbtable As String, colnm As String)
Dim SQL1 As SQL
Dim sqltext As String
Dim cursor As ResultSet
SQL1.Initialize2("com.mysql.jdbc.Driver","jdbc:mysql://localhost/"&dbname&"?characterEncoding=utf8","root", "root")
cursor = SQL1.ExecQuery("SELECT * FROM "&dbtable&"")
Do While cursor.NextRow
Log(cursor.GetString(colnm))
Loop
cursor.Close
SQL1.Close
End Sub