Platforms to show: All Mac Windows Linux Cross-Platform

/SQL/SQLDatabaseMBS SQLite API 2
Function:
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /SQL/SQLDatabaseMBS SQLite API 2
This example is the version from Fri, 31th Oct 2019.
Project "SQLDatabaseMBS SQLite API 2.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
EventHandler Sub Opening() // use internal sqlite library call InternalSQLiteLibraryMBS.Use Dim db As New SQLDatabaseMBS // where is the library? 'db.Option(SQLConnectionMBS.kOptionLibrarySQLite) = "/usr/lib/libsqlite3.0.dylib" // connect to database // in this example it is SQLite, // but can also be Sybase, Oracle, Informix, DB2, SQLServer, InterBase, MySQL, SQLBase and ODBC dim path as string if TargetMacOS then path = "/tmp/test.db" // put the database in the temporary folder else path = "test.db" // for Windows and Linux in the current folder the application is inside. end if db.DatabaseName = "sqlite:"+path db.RaiseExceptions = True // for older API functions to also raise exceptions db.Connect 'MsgBox "We are connected!" // create table db.ExecuteSQL "CREATE TABLE IF NOT EXISTS test_tbl (fid integer, fvarchar20 varchar(20), fblob blob)" // insert value in SQL db.BeginTransaction db.ExecuteSQL "INSERT INTO test_tbl(fid, fvarchar20) VALUES (1, 'Some string')" db.CommitTransaction // insert with prepared statement in SQL db.ExecuteSQL("INSERT INTO test_tbl(fid, fvarchar20) VALUES (?,?)", 2, "Hello World") // insert with prepared statement Dim p As SQLPreparedStatementMBS = db.Prepare("INSERT INTO test_tbl(fid, fvarchar20) VALUES (?,?)") p.BindType(0, p.kTypeInt64) p.BindType(1, p.kTypeString) p.Bind(0, 3) p.Bind(1, "Hallo Leute") p.ExecuteSQL // insert via database row Dim d As New DatabaseRow d.IntegerColumn("fid") = 3 d.Column("fvarchar20") = "Testing" db.AddRow("test_tbl", d) Dim list As listbox = MainWindow.List // query normally Dim r1 As RowSet = db.SelectSQL("SELECT * FROM test_tbl") While Not r1.AfterLastRow list.AddRow r1.Column("fid").StringValue, r1.Column("fvarchar20").StringValue r1.MoveToNextRow Wend // query with parameter Dim r2 As RowSet = db.SelectSQL("SELECT * FROM test_tbl WHERE fid > ?", -1) While Not r2.AfterLastRow list.AddRow r2.Column("fid").StringValue, r2.Column("fvarchar20").StringValue r2.MoveToNextRow Wend Exception se As SQLErrorExceptionMBS MessageDialog.Show "SQL Error Exception: "+se.Message Exception de As DatabaseException MessageDialog.Show "Database Exception: "+de.Message End EventHandler
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
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
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS SQL Plugin.

The biggest plugin in space...




Links
MBS Xojo Plugins