MBS Xojo Plugin Tutorial Videos
SQLite Extension Install REALbasic Source
Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
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
Links
MBS Xojo Plugins