Private Sub ConnectToDatabaseRemote()
remote_db = new VSqliteDataBase
dim options as string //get registration
remote_db.Host = Remote_Server
remote_db.UserName = Remote_Username
remote_db.Password = Remote_Password
remote_db.Port = Remote_Port
ConnectedToSQLite = remote_db.Connect()
if not ConnectedToSQLite then Return
remote_db.databaseName = OriginalDBName + ".sqlite"
ConnectedToSQLite = remote_db.CreateDatabaseFileEx()
if not ConnectedToSQLite then Return
try
Dim theSQL As String = "CREATE VIRTUAL TABLE if not exists bodyindex USING fts4(tokenize=unicode61,content='', messagebody);"
remote_db.ExecuteSQL(theSQL)
ConnectedToSQLite = True
catch err as DatabaseException
//to do: error here
end try
End Sub
There is no exception. remote_db doesn't show any errors. But nothing happens.
VServer 10.3.