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:192.168.1.80,3306@test" db.UserName="root" db.Password="" if db.Connect then dim r as RecordSet r=db.SQLSelect("Select fid, fvarchar20 from test_tbl") // 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 fid as integer = r.Field("fid").IntegerValue dim fvarchar20 as string = r.Field("fvarchar20").StringValue window1.Listbox1.AddRow str(fid) window1.Listbox1.cell(window1.Listbox1.LastIndex,1)=fvarchar20 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