MBS Xojo Plugin Tutorial Videos

SQLite Extension Install REALbasic Source

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
    Sub Action() Handles Event
      dim rec as RecordSet = r.SQLSelect("select RemoveAccentsMBS("""+TextField1.text+""")")
      
      if r.Error then
        TextField2.text = r.ErrorMessage
      else
        TextField2.text = rec.IdxField(1).StringValue
      end if
      
    End Sub
  End ControlInstance
  
  // Properties
  Dim r As REALSQLDatabase
  
  
  
  // Event implementations
  Sub Open()
    r = new REALSQLDatabase
    
    r.DatabaseFile = SpecialFolder.Desktop.Child("test.db")
    
    if r.CreateDatabaseFile then
      
      dim e as FolderItem = SpecialFolder.Desktop.Child("MBS.dylib")
      
      call r.SQLSelect("select load_extension('"+e.UnixpathMBS+"');")
      
      if r.Error then
        MsgBox r.ErrorMessage
      end if
    end if
    
  End Sub
End Class


 

All movies