Sub Class_Globals
Dim sql As mysql
End Sub
Public Sub Initialize
sql.Initialize("tracks")
End Sub
Public Sub getString(id As Int, s As String) As String
s = sql.my_sql_load_wert("strings", "stringID", 2, "text", "AND `speakID`='" & s & "'")
If s == Null Or s == "" Or s.EqualsIgnoreCase("") Then
s = sql.my_sql_load_wert("strings", "stringID", id, "text", "AND `speakID`='2'")
End If
Return s
End Sub
Public Sub getStringReplace(id As Int, s As String, w1 As String, w2 As String) As String
Dim s As String = getString(id, s)
Return s.Replace(w1,w2)
End Sub