Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

EventHandler Sub Open() dim db as new SQLDatabaseMBS // where is the library? // you can place the database client library files where you want. // example code just has some convenient location for testing. db.SetFileOption SQLConnectionMBS.kOptionLibraryMySQL, SpecialFolder.UserHome.Child("libmysqlclient.dylib") // connect to database // in this example it is MySQL, // but can also be Sybase, Informix, DB2, SQLServer, InterBase, Oracle, SQLite, SQLBase and ODBC db.DatabaseName="mysql:xxx,3306@test" db.UserName="xxx" db.Password="xxx" if db.Connect then // we query pictures in a pictures database dim r as RecordSet = db.SQLSelect("Select * from Pictures where Picture IS NOT NULL limit 10") // create command object // Select from our test table if r<>Nil then while not r.EOF // fetch results row by row and print results dim p as string = r.field("Picture").StringValue if lenb(p)>=0 then // as this should be PNGs, we show them dim w as new window2 w.Backdrop = PNGStringToPictureMBS(p) w.show end if r.MoveNext wend end if else MsgBox db.ErrorMessage end if End EventHandler

End Class

Class Window1 Inherits Window

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&Ablage"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Bearbeiten"

MenuItem EditUndo = "&Rückgängig"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "&Ausschneiden"

MenuItem EditCopy = "&Kopieren"

MenuItem EditPaste = "&Einfügen"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "&Alles auswählen"

End MenuBar

Module Module1

End Module

Class Window2 Inherits Window

End Class