Class
OracleDatabase
Warning
This item was deprecated in version 2023r2. Please use ODBCDatabase as a replacement.
Description
Use with the Oracle plug-in to connect to an Oracle database.
Properties
Name |
Type |
Read-Only |
Shared |
---|---|---|---|
Methods
Name |
Parameters |
Returns |
Shared |
---|---|---|---|
tableName As String, row As DatabaseRow |
|||
command As String, Optional ParamArray values() As Variant |
|||
statement As String |
|||
query As String, Optional ParamArray values() As Variant |
|||
TableName As String |
|||
TableName As String |
|||
Property descriptions
OracleDatabase.DatabaseName
DatabaseName As String
The name of the database to open.
The DatabaseName is typically used to identify the specific database to use on the server.
This code connects to an Oracle database called "BaseballLeague":
Var db As New OracleDatabase
db.Host = "192.168.1.172"
db.Port = 5432
db.DatabaseName = "BaseballLeague"
db.UserName = "broberts"
db.Password = "streborb"
Try
db.Connect
' Use the database
Catch error As DatabaseException
' DB Connection error
MessageBox(error.Message)
End Try
OracleDatabase.Debug
Debug As Integer
Controls whether debugging is on. The default is 0 (debugging off).
When Debug = 1, debugging information is logged to the console.
Enable debugging:
' db is an existing OracleDatabase connection
db.Debug = 1
OracleDatabase.Host
Host As String
The database host name or IP address of the database server.
This examples connects to a database called "BaseballLeague":
Var db As New OracleDatabase
db.Host = "192.168.1.172"
db.Port = 5432
db.DatabaseName = "BaseballLeague"
db.UserName = "broberts"
db.Password = "streborb"
Try
db.Connect
' Use the database
Catch error As DatabaseException
' DB Connection error
MessageBox(error.Message)
End Try
OracleDatabase.IsMultithreaded
IsMultithreaded As Boolean
If True, calls to SQLSelect and SQLExecute are threaded. The default is True.
When IsMultithreaded is true, database access does not block other threads (or otherwise lock your running application).
However, performance is greatly improved if IsMultithreaded = False
' db is an existing OracleDatabase connection
db.MultiThreaded = False
OracleDatabase.Password
Password As String
The password that is required for access to the database. Typically used in conjunction with UserName.
This examples connects to a database called "BaseballLeague":
Var db As New OracleDatabase
db.Host = "192.168.1.172"
db.Port = 5432
db.DatabaseName = "BaseballLeague"
db.UserName = "broberts"
db.Password = "streborb"
Try
db.Connect
' Use the database
Catch error As DatabaseException
' DB Connection error
MessageBox(error.Message)
End Try
OracleDatabase.UserName
UserName As String
The username that is required for access to the database.
This code connects to a database called "BaseballLeague":
Var db As New OracleDatabase
db.Host = "192.168.1.172"
db.Port = 5432
db.DatabaseName = "BaseballLeague"
db.UserName = "broberts"
db.Password = "streborb"
Try
db.Connect
' Use the database
Catch error As DatabaseException
' DB Connection error
MessageBox(error.Message)
End Try
Method descriptions
OracleDatabase.AddRow
AddRow(tableName As String, row As DatabaseRow)
Inserts Data (a populated DatabaseRow) as a new row in TableName.
Always look for a DatabaseException to verify whether or not the data was added.
This code adds a row to an existing Team table with the columns "Name", "Coach" and "City". It's assumed that the variable db contains an active database connection:
Var row As New DatabaseRow
' ID will be updated automatically
row.Column("Name") = "Penguins"
row.Column("Coach") = "Bob Roberts"
row.Column("City") = "Boston"
Try
db.AddRow("Team", row)
Catch error As DatabaseException
MessageBox("DB Error: " + error.Message)
End Try
OracleDatabase.BeginTransaction
BeginTransaction
Creates a new transaction. Changes to the database made after this call can be saved with CommitTransaction or undone with RollbackTransaction.
A DatabaseException will be raised if the transaction could not begin or another transaction is already in progress.
You typically want to Commit changes after ensuring there were no database errors:
' Prior DB code has run
Try
DB.BeginTransaction
DB.ExecuteSQL("CREATE TABLE AddressBook name VARCHAR, email VARCHAR")
DB.CommitTransaction
Catch error As DatabaseException
MessageBox("Error: " + error.Message)
DB.RollbackTransaction
End Try
OracleDatabase.Close
Close
Closes or disconnects the database.
Calling Close does not issue a Commit, but some databases will automatically Commit changes in a transaction when you Close the connection and some database will automatically Rollback changes in a transaction when the connection is closed. Refer to the documentation for your database to check what its behavior is.
For desktop apps, you will often Connect to the database when the app starts and Close it when the app quits.
For web apps, you usually Connect to the database when the Session starts and Close it when the Session quits.
This code in the App.Closing event handler closes a previously connected database:
DB.Close ' DB is a property on App
OracleDatabase.CommitTransaction
CommitTransaction
Commits an open transaction. This permanently saves changes to the database.
A DatabaseException will be raised if the transaction could not be committed.
You have to have an open transaction to be able to use CommitTransation. Use BeginTransaction to begin a transaction:
DB.BeginTransaction
You typically want to commit changes after ensuring there were no database errors:
' Prior DB code has run
Try
DB.CommitTransaction
Catch error As DatabaseException
MessageBox("Error: " + error.Message)
DB.RollbackTransaction
End Try
OracleDatabase.Connect
Connect
Connects to the database so that you can begin using it.
Warning
A DatabaseException will be raised if the connection could not be made.
This example connects to the database object in the variable db:
Try
db.Connect
MessageBox("Connected!")
Catch error As DatabaseException
MessageBox("Error connecting to the database: " + error.Message)
End Try
OracleDatabase.ExecuteSQL
ExecuteSQL(command As String, Optional ParamArray values() As Variant)
Used to execute an SQL command. Use this for commands that do not return any data, such as CREATE TABLE
or INSERT
. The command parameter contains the SQL statement.
Tip
You can also pass an array of values as the first and only parameter instead of a ParamArray.
Warning
A DatabaseException will be raised if the SQL passed is invalid or if an error occurs.
Passing values as parameters protects your database by automatically creating a OraclePreparedStatement.
In this example, the database is being updated without the use of parameters and thus leaves the database vulnerable to a SQL injection attack:
' Updates a table in a database (db)
Var sql As String
sql = "UPDATE Customer SET City='" + CityField.Text + "' WHERE PostalCode='" + PostalCodeField.Text + "'"
Try
db.ExecuteSQL(sql)
Catch error As DatabaseException
MessageBox("DB Error: " + error.Message)
End Try
Here's the same example but using parameters which protects you against a SQL injection attack:
' Updates a table in a database (db)
Var sql As String
sql = "UPDATE Customer SET City=:city WHERE PostalCode=:postalcode"
Try
db.ExecuteSQL(sql, CityField.Text, PostalCode.Text)
Catch error As DatabaseException
MessageBox("DB Error: " + error.Message)
End Try
The parameter values can also be passed in as a variant array:
Var sql As String
sql = "UPDATE Customer SET City=:city WHERE PostalCode=:postalcode"
Var values(1) As Variant
values(0) = CityField.Text
values(1) = PostalCode.Text
Try
db.ExecuteSQL(sql, values)
Catch error As DatabaseException
MessageBox("DB Error: " + error.Message)
End Try
This code creates the Team table:
' db is a database
Var sql As String
sql = "CREATE TABLE Team (ID INTEGER NOT NULL, Name TEXT, Coach TEXT, City TEXT, PRIMARY KEY(ID));"
Try
db.ExecuteSQL(sql)
MessageBox("Team table created successfully.")
Catch error As DatabaseException
MessageBox("DB Error: " + error.Message)
End Try
OracleDatabase.Prepare
Prepare(statement As String) As PreparedStatement
Creates a PreparedStatement using the SQL statement for use with the OracleSQLPreparedStatement class. A prepared statement is an SQL statement with parameters that has been pre-processed by the database so that it can be executed more quickly if it is re-used with different parameters. Prepared statements also mitigate the risk of SQL injection in web apps.
If the provided SQL statement has an error, a DatabaseException will occur when you call SelectSQL or ExecuteSQL.
SQL Injection is a way to attack database-driven applications.
To create a prepared statement for Oracle:
' db is a previously connected OracleSQLDatabase object
Var ps As OraclePreparedStatement
ps = db.Prepare("SELECT * FROM Country WHERE code = :code")
OracleDatabase.RollbackTransaction
RollbackTransaction
Cancels an open transaction restoring the database to the state it was in before the transaction began.
A DatabaseException will be raised if the rollback could not be completed.
You will generally want to rollback database changes if a DatabaseException occurs within the transaction.
You have to have an open transaction to be able to use Rollback. Call BeginTransaction to begin a transaction:
DB.BeginTransaction
This code uses rollback to revert database changes in a transaction when an error occurs:
' Prior DB code has run
Try
db.CommitTransaction
Catch error As DatabaseException
MessageBox("Error: " + error.Message)
db.RollbackTransaction
End If
OracleDatabase.SelectSQL
SelectSQL(query As String, Optional ParamArray values() As Variant) As RowSet
Executes a SQL SELECT
statement and returns the results in a RowSet. The query parameter contains the SQL statement.
Tip
You can also pass an array of values as the first and only parameter instead of a ParamArray.
Warning
A DatabaseException will be raised if the SQL passed is invalid or if an error occurs.
Passing values as parameters protects your database by automatically creating a OraclePreparedStatement.
This sample adds the names of all customers in a particular postal code to a ListBox. It passes the entire SQL select as a single statement and appends the value from a TextField called PostalCode, leaving the database vulnerable to a SQL injection attack:
' db is a valid connection to a database
Var rowsFound As RowSet
Try
rowsFound = db.SelectSQL("SELECT * FROM Customer WHERE PostalCode=" + PostalCode.Text)
For Each row As DatabaseRow In rowsFound
ListBox1.AddRow(row.Column("Name").StringValue)
Next
rowsFound.Close
Catch error As DatabaseException
MessageBox("Error: " + error.Message)
End Try
This is the same code as above but instead it uses a value identifier (:code) and then passes the value in separately to avoid a SQL injection attack:
' db is a valid connection to a SQLite database
Var rowsFound As RowSet
Try
rowsFound = db.SelectSQL("SELECT * FROM Customer WHERE PostalCode=:code", PostalCode.Text)
For Each row As DatabaseRow In rowsFound
ListBox1.AddRow(row.Column("Name").StringValue)
Next
rowsFound.Close
Catch error As DatabaseException
MessageBox("Error: " + error.Message)
End Try
Multiple values can be passed to SelectSQL. In this example, Age and PostalCode are both DesktopTextField controls:
' db is a valid connection to a SQLite database
Var rowsFound As RowSet
Try
rowsFound = db.SelectSQL("SELECT * FROM Customer WHERE Age=:age AND PostalCode=:code", Age.Value, PostalCode.Text)
For Each row As DatabaseRow In rowsFound
ListBox1.AddRow(row.Column("Name").StringValue)
Next
rowsFound.Close
Catch error As DatabaseException
MessageBox("Error: " + error.Message)
End Try
OracleDatabase.TableColumns
TableColumns(TableName As String) As RowSet
Returns a RowSet with information about all the columns (fields) in the specified TableName.
Note
If an error occurs, a DatabaseException will be raised.
TableColumns returns a RowSet with these columns:
ColumnName: A string that is the name of the column.
FieldType: An integer that describes the type of the column (refer to the table below).
IsPrimary: A boolean that indicates if the column is part of the primary key.
NotNull: A boolean that indicates if the column can be set to NULL.
Length: An integer that describes the length of the field (for some text fields), the precision of numeric data (for some numeric fields) or the default value for a field (for SQLite columns).
cid: (SQLite Only) The ID of the column.
This table identifies the Column Type based on the FieldType Integer:
Field Type |
Value |
Description |
---|---|---|
Null |
0 |
Denotes the absence of any value, i.e., a missing value. |
Byte |
1 |
Stores the byte representation of a character string. |
SmallInt |
2 |
A numeric data type with no fractional part. The maximum number of digits is implementation-specific, but is usually less than or equal to INTEGER. SQLite supports 4-byte smallints. If you are using another data source, check the documentation of your data source. |
Integer |
3 |
A numeric data type with no fractional part. The maximum number of digits is implementation-specific. SQLite supports 8-byte integer columns and the FieldType evaluates to 19 (64-bit integer). |
Char |
4 |
Stores alphabetic data, in which you specify the maximum number of characters for the field, i.e., CHAR (20) for a 20 character field. If a record contains fewer than the maximum number of characters for the field, the remaining characters will be padded with blanks. |
Text or VarChar |
5 |
Stores alphabetic data, in which the number of characters vary from record to record, but you don't want to pad the unused characters with blanks. For example, VARCHAR (20) specifies a VARCHAR field with a maximum length of 20 characters. |
Float |
6 |
Stores floating-point numeric values with a precision that you specify, i.e., FLOAT (5). |
Double |
7 |
Stores double-precision floating-point numbers. |
Date |
8 |
Stores year, month, and day values of a date in the format YYYY-MM-DD. The year value is four digits; the month and day values are two digits. |
Time |
9 |
Stores hour, minute, and second values of a time in the format HH:MM:SS. The hours and minutes are two digits. The seconds values is also two digits, may include a optional fractional part, e.g., 09:55:25.248. The default length of the fractional part is zero. |
TimeStamp |
10 |
Stores both date and time information in the format YYYY-MM-DD HH:MM:SS. The lengths of the components of a TimeStamp are the same as for Time and Date, except that the default length of the fractional part of the time component is six digits rather than zero. If a TimeStamp values has no fractional component, then its length is 19 digits If it has a fractional component, its length is 20 digits, plus the length of the fractional component. |
Currency |
11 |
This is a 64-bit fixed-point number format that holds 15 digits to the left of the decimal point and 4 digits to the right. |
Boolean |
12 |
Stores the values of TRUE or FALSE. |
Decimal |
13 |
Stores a numeric value that can have both an integral and fractional part. You specify the total number of digits and the number of digits to the right of the decimal place, i.e., DECIMAL (5.2) specifies a decimal field that can contain values up to 999.99. DECIMAL (5) specifies a field that can contain values up to 99,999. |
Binary |
14 |
Stores code, images, and hexadecimal data. Consult the documentation of your data source for information on the maximum size of a Binary field. |
Long Text (Blob) |
15 |
Stores a text object. Consult the documentation of your data source for information on the maximum size of a Blob. |
Long VarBinary (Blob) |
16 |
Stores a binary object. SQLite supports blobs of up to any size. Furthermore, a blob can be stored in a column of any declared data affinity. If you are using another data source, check the documentation of your data source. |
MacPICT |
17 |
Stores a Macintosh PICT image. SQLite does not support this data type. Use a Blob to store images. |
String |
18 |
Text up to about 2 billion bytes. The same as VarChar. |
Int64 |
19 |
Stores a 64-bit integer. Integer fields in SQLite are 64 bits and FieldType returns 19. |
Unknown |
255 |
Unrecognized data type. |
Note
Depending upon the version you are using, only a subset of these types may be supported.
The following code creates a table and then display each column name one at a time:
'db is a valid connection to a database
Try
db.ExecuteSQL("CREATE TABLE Invoices (ID INTEGER, CustID INTEGER, Amount Double, Note TEXT)")
Var columns As RowSet = db.TableColumns("Invoices")
For Each c As DatabaseRow In columns
MessageBox("Column: " + c.Column("ColumnName").StringValue)
Next
Catch error As IOException
MessageBox("The database could not be created: " + error.Message)
Catch error As DatabaseException
MessageBox("Database error: " + error.Message)
End Try
OracleDatabase.TableIndexes
TableIndexes(TableName As String) As RowSet
Returns a RowSet containing the list of indexes for the passed TableName. Returns Nil if the table has no indexes or the database source does not support indexes.
A DatabaseException will be raised if an error occurs.
The RowSet returns one row for each index on the table and it has one field: IndexName As String.
This code displays the indexes for the "Invoices" table (if it exists) in the specified database (db):
Var dbFile As FolderItem
dbFile = FolderItem.ShowOpenFileDialog("")
Try
db.Connect
Var indexRS As RowSet
indexRS = db.TableIndexes("Invoices") ' A table with indexes in the db
For Each row As DatabaseRow In indexRS
MessageBox("Index: " + row.ColumnAt(0).StringValue)
Next
indexRS.Close
Catch error As NilObjectException
MessageBox("This database has no indexes.")
Catch error As DatabaseException
MessageBox("Could not connect to database. Error: " + error.Message)
End Try
OracleDatabase.Tables
Tables As RowSet
Returns a RowSet with a list of all tables in the database.
A DatabaseException will be raised if an error occurs.
Tables returns a RowSet with one field: TableName As String.
The following code gets and displays the table names for the connected database:
' App.db is a connected database
Var tables As RowSet
tables = App.db.Tables
Try
For Each row As DatabaseRow In tables
MessageBox(row.ColumnAt(0).StringValue)
Next
tables.Close
Catch error As NilObjectException
MessageBox("This database has no tables.")
End Try
Notes
Oracle 8i and above are supported. The Oracle OCI client 9i or later must be installed.
In order to use this class, you must have the OraclePlugin database plug-in in your plugins folder.
The OracleDatabase engine supports all four RowSet navigation methods: MoveFirst, MoveNext, MovePrevious, and MoveLast.
Xojo Cloud
Oracle databases cannot be accessed from Xojo Cloud.
Downloads
In order to use OracleDatabase, you need to install the Oracle Instant Client which can be downloaded from here:
Linux Instant Client Downloads x86 (Use version 10.1 for best results.)
You'll also need to make sure that your system path contains the folder with the Oracle Instant Client.
Sample code
The following code connects to an Oracle Express database hosted at 10.0.1.14:
db = New OracleDatabase
db.DatabaseName = "(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.0.1.14)(PORT=1521))(CONNECT_DATA=(SID=XE)))"
db.UserName = "SYSTEM"
db.Password = "dbexample"
db.Debug = 1
Try
db.Connect
MessageBox("Connected to Oracle!")
Catch error As DatabaseException
MessageBox("Error connecting to Oracle: " + error.Message)
End Try
Compatibility
All project types on all supported operating systems.
See also
Database parent class; DatabaseRow, OracleSQLPreparedStatement, RowSet classes.