Log("---------- NorthWind Database (MySQL) ----------")
MYSQL.Initialize(Me,"MYSQL", "com.mysql.jdbc.Driver", $"jdbc:mysql://${MyLocation}/ebvotes?useSSL=false"$, MyUsername, MyPassword)
Dim myvotelist As List
myvotelist.Initialize
myvotelist.AddAll( Array As String("A","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"))
Dim voteid As String = "xesj"
Dim deviceid As String = "test12"
Dim timeofvote As String = "12:00:01"
For Each j As String In myvotelist
Log("..." & j)
MYSQL.ExecNonQuery($"INSERT INTO tblvotes (id, votesname, voteid, deviceid, timeofvote) VALUES (NULL, '${j}', '${voteid}', '${deviceid}', '${timeofvote}')"$)
Next
Log("Done")
End Sub
Sub MainForm_Resize (Width As Double, Height As Double)
End Sub
'Connected to MySQL Server
Sub MySQL_Ready (Success As Boolean)
If Success Then
Log("Database Connected")
End If
End Sub