Sub connectiontoSQL
sql.InitializeAsync("MSSQL","net.sourceforge.jtds.jdbc.Driver", $"jdbc:jtds:sqlserver://${DBLocation}/${DatabaseName}"$, DBUsername, DBPassword)
End Sub
Sub MSSQL_Ready (Success As Boolean)
Log(Success)
If Success Then
readFrompazireshCount
Else
Log("!OK")
End If
End Sub
Sub readFrompazireshCount As String
connectiontoSQL
Dim Cursor As ResultSet=sql.ExecQuery("select * from paziresh")
Dim lblcods As Int=1
Do While Cursor.NextRow
lblcods=Cursor.GetString2(0)
Loop
Cursor.Close
Close
Return lblcods
End Sub
Sub Close
sql.Close
End Sub