'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 NAMA_VAR_HANDLER As MysqlHandler
Dim NAMA_VAR_RESULT As ResultSet
End Sub
Sub conn
' NAMA_VAR_HANDLER.Initialize("nmServer","nmDatabase","nmUser","nmPassword")
'NAMA_VAR_HANDLER.Initialize("localhost","test","root","root")
NAMA_VAR_HANDLER.Initialize("com.mysql.jdbc.Driver", "jdbc:mysql:/127.0.0.1:3306/test","ali","JToX0lCmdHslAL1Q")
If NAMA_VAR_HANDLER.isConnected = False Then
Msgbox(NAMA_VAR_HANDLER.SQLError, "Error")
Return
End If
End Sub