MBS Xojo Developer Conference and Training
Join us from 3rd to 6th May 2016 in Berlin, Germany.

MBS Real Studio 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




Links
MBS Real Studio PDF Plugins