Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

EventHandler Sub Open() dim db as new SQLDatabaseMBS db.Option("OLEDBProvider") = "SQLNCLI" // SQLNCLI for SQL Server 2005, SQLNCLI10 for newer version. // 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="SQLServer:PcName\SqlServerInstanceName@DatabaseName" db.UserName="" db.Password="" if db.Connect then dim r as RecordSet = db.SQLSelect("Select fid, fvarchar20 from test_tbl") // 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