Programming with SQL Relay using the Perl API

Establishing a Session

To use SQL Relay, you have to identify the connection that you intend to use.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);

... execute some queries ...

After calling the constructor, a session is established when the first query is run.

For the duration of the session, the client occupies one of the database connections, so care should be taken to minimize the length of a session.

Sessions can also be encrypted and authenticated using Kerberos/Active Directory or TLS/SSL. The enableKerberos() method is provided to enable Kerberos/Active Directory encryption and authentication and the enableTls() method is provided to enable TLS/SSL encryption and authentication. The disableEncryption() method is provided to disable any previously enabled encryption.

See the SQLRelay::Connection class reference for information about these methods and the SQL Relay Configuration Guide for more information about Kerberos/Active Directory and TLS/SSL configurations. In particular, note that user and password are not typically used when using Kerberos/AD.

Executing Queries

Call sendQuery() or sendFileQuery() to run a query.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->sendQuery("select * from my_table");

... do some stuff that takes a short time ...

$cur->sendFileQuery("/usr/local/myprogram/sql","myquery.sql");
$con->endSession();

... do some stuff that takes a long time ...

$cur->sendQuery("select * from my_other_table");
$con->endSession();

... process the result set ...

Note the call to endSession() after the call to sendFileQuery(). Since the program does some stuff that takes a long time between that query and the next, ending the session there allows another client an opportunity to use that database connection while your client is busy. The next call to sendQuery() establishes another session. Since the program does some stuff that takes a short time between the first two queries, it's OK to leave the session open between them.

Commits and Rollbacks

If you need to execute a commit or rollback, you should use the commit() and rollback() methods of the SQLRelay
Connection class rather than sending a "commit" or "rollback" query. There are two reasons for this. First, it's much more efficient to call the methods. Second, if you're writing code that can run on transactional or non-transactional databases, some non-transactional databases will throw errors if they receive a "commit" or "rollback" query, but by calling the commit() and rollback() methods you instruct the database connection daemon to call the commit and rollback API methods for that database rather than issuing them as queries. If the API's have no commit or rollback methods, the calls do nothing and the database throws no error.
You can also turn Autocommit on or off with the autoCommitOn() and autoCommitOff() methods of the SQLRelay
Connection class. When Autocommit is on, the database performs a commit after each successful DML or DDL query. When Autocommit is off, the database commits when the client instructs it to, or (by default) when a client disconnects. For databases that don't support Autocommit, autoCommitOn() and autoCommitOff() have no effect.

Temporary Tables

Some databases support temporary tables. That is, tables which are automatically dropped or truncated when an application closes its connection to the database or when a transaction is committed or rolled back.

For databases which drop or truncate tables when a transaction is committed or rolled back, temporary tables work naturally.

However, for databases which drop or truncate tables when an application closes its connection to the database, there is an issue. Since SQL Relay maintains persistent database connections, when an application disconnects from SQL Relay, the connection between SQL Relay and the database remains, so the database does not know to drop or truncate the table. To remedy this situation, SQL Relay parses each query to see if it created a temporary table, keeps a list of temporary tables and drops (or truncates them) when the application disconnects from SQL Relay. Since each database has slightly different syntax for creating a temporary table, SQL Relay parses each query according to the rules for that database.

In effect, temporary tables should work when an application connects to SQL Relay in the same manner that they would work if the application connected directly to the database.

Catching Errors

If your call to sendQuery() or sendFileQuery() returns a 0, the query failed. You can find out why by calling errorMessage().

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

if (!$cur->sendQuery("select * from my_nonexistant_table")) {
        printf("%s\n",$cur->errorMessage());
}

Substitution and Bind Variables

Programs rarely execute fixed queries. More often than not, some part of the query is dynamically generated. The SQL Relay API provides methods for making substitutions and binds in those queries.

For a detailed discussion of substitutions and binds, see this document.

Rather than just calling sendQuery() you call prepareQuery(), substitution(), inputBind() and executeQuery(). If you using queries stored in a file, you can call prepareFileQuery() instead of prepareQuery().

When passing a floating point number in as a bind or substitution variable, you have to supply precision and scale for the number. See this page for a discussion of precision and scale.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->prepareQuery("select * from mytable \$(whereclause)")
$cur->substitution("whereclause","where stringcol=:stringval and integercol>:integerval and floatcol>floatval");
$cur->inputBind("stringval","true");
$cur->inputBind("integerval",10);
$cur->inputBind("floatval",1.1,2,1);
$cur->executeQuery();

... process the result set ...

If you are curious how many bind variables have been declared in a query, you can call countBindVariables() after preparing the query.

If you're using a database with an embedded procedural language, you may want to retrieve data from function calls. To facilitate this, SQL Relay provides methods for defining and retrieving output bind variables.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->prepareQuery("begin  :result1:=addTwoIntegers(:integer1,:integer2);  :result2=addTwoFloats(:float1,:float2);  :result3=convertToString(:integer3); end;");
$cur->inputBind("integer1",10);
$cur->inputBind("integer2",20);
$cur->inputBind("float1",1.1,2,1);
$cur->inputBind("float2",2.2,2,1);
$cur->inputBind("integer3",30);
$cur->defineOutputBindInteger("result1");
$cur->defineOutputBindDouble("result2");
$cur->defineOutputBindString("result3",100);
$cur->executeQuery();
$result1=cur->getOutputBindInteger("result1");
$result2=cur->getOutputBindDouble("result2");
$result3=cur->getOutputBindString("result3");
$con->endSession();

... do something with the result ...

The getOutputBindString() method returns a NULL value as an empty string. If you would it to come back as a NULL instead, you can call the getNullsAsNulls() method. To revert to the default behavior, you can call getNullsAsEmptyStrings().

You can insert data into BLOB and CLOB columns using the inputBindBlob(), inputBindClob() methods.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

my $imagedata;
my $imagelength;

... read an image from a file into imagedata and the length of the
        file into imagelength ...

my $description;
my $desclength;

... read a description from a file into description and the length of
        the file into desclength ...

$cur->prepareQuery("insert into images values (:image,:desc)");
$cur->inputBindBlob("image",$imagedata,$imagelength);
$cur->inputBindClob("desc",$description,$desclength);
$cur->executeQuery();

Likewise, you can retreive BLOB or CLOB data using defineOutputBindBlob()/getOutputBindBlob() and defineOutputBindClob()/getOutputBindClob().

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->prepareQuery("begin  select image into :image from images;  select description into :desc from images;  end;");
$cur->defineOutputBindBlob("image");
$cur->defineOutputBindClob("desc");
$cur->executeQuery();

$image=$cur->getOutputBindBlob("image");
$imagelength=$cur->getOutputBindLength("image");

$desc=$cur->getOutputBindClob("desc");
$desclength=$cur->getOutputBindLength("desc");

$con->endSession();

... do something with image and desc ...

Sometimes its convenient to bind a bunch of variables that may or may not actually be in the query. For example, if you are building a web based application, it may be easy to just bind all the form variables/values from the previous page, even though some of them don't appear in the query. Databases usually generate errors in this case. Calling validateBinds() just prior to calling executeQuery() causes the API to check the query for each bind variable before actually binding it, preventing those kinds of errors. You can also call validBind() to see if a specific variable is valid. However there is a performance cost associated with calling validateBinds() and validBind().

Re-Binding and Re-Execution

Another feature of the prepare/bind/execute paradigm is the ability to prepare, bind and execute a query once, then re-bind and re-execute the query over and over without re-preparing it. If your backend database natively supports this paradigm, you can reap a substantial performance improvement.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->prepareQuery("select * from mytable where mycolumn>:value");
$cur->inputBind("value",1);
$cur->executeQuery();

... process the result set ...

$cur->clearBinds();
$cur->inputBind("value",5);
$cur->executeQuery();

... process the result set ...

$cur->clearBinds();
$cur->inputBind("value",10);
$cur->executeQuery();

... process the result set ...

Accessing Fields in the Result Set

The rowCount(), colCount() and getField() methods are useful for processing result sets.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->sendQuery("select * from my_table");
$con->endSession();

for ($row=0; $row<$cur->rowCount(); $row++) {
        for ($col=0; $col<$cur->colCount(); $col++) {
                printf("%s,",$cur->getField($row,$col));
        }
        printf("\n");
}

The getField() method returns a string. If you would like to get a field as a long or double, you can use getFieldAsLong() and getFieldAsDouble().

You can also use getRow() or getRowHash() to get the entire row.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->sendQuery("select * from my_table");
$con->endSession();

for ($row=0; $row<$cur->rowCount(); $row++) {
        @rowarray=$cur->getRow($row);
        for ($col=0; $col<$cur->colCount(); $col++) {
                printf("%s,",$rowarray[$col]);
        }
        printf("\n");
}

The getField(), getRow() and getRowHash() methods return NULL fields as empty strings. If you would like them to come back as NULL's instead, you can call the getNullsAsNulls() method. To revert to the default behavior, you can call getNullsAsEmptyStrings().

If you want to access the result set, but don't care about the column information (column names, types or sizes) and don't mind getting fields by their numeric index instead of by name, you can call the dontGetColumnInfo() method prior to executing your query. This can result in a performance improvement, especially when many queries with small result sets are executed in rapid succession. You can call getColumnInfo() again later to turn off this feature.

Dealing With Large Result Sets

SQL Relay normally buffers the entire result set. This can speed things up at the cost of memory. With large enough result sets, it makes sense to buffer the result set in chunks instead of all at once.

Use setResultSetBufferSize() to set the number of rows to buffer at a time. Calls to getRow(), getRowHash() and getField() cause the chunk containing the requested field to be fetched. Rows in that chunk are accessible but rows before it are not.

For example, if you setResultSetBufferSize(5) and execute a query that returns 20 rows, rows 0-4 are available at once, then rows 5-9, then 10-14, then 15-19. When rows 5-9 are available, getField(0,0) will return NULL and getField(11,0) will cause rows 10-14 to be fetched and return the requested value.

When buffering the result set in chunks, don't end the session until after you're done with the result set.

If you call setResultSetBufferSize() and forget what you set it to, you can always call getResultSetBufferSize().

When buffering a result set in chunks, the rowCount() method returns the number of rows returned so far. The firstRowIndex() method returns the index of the first row of the currently buffered chunk.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->setResultSetBufferSize(5);

$cur->sendQuery("select * from my_table");

$done=0;
$row=0;
while (!$done) {
        for ($col=0; $col<$cur->colCount(); $col++) {
                if ($field=getField($row,$col)) {
                        printf("%s,",$field);
                } else {
                        $done=1;
                }
        }
        printf("\n");
        row++;
}

$cur->sendQuery("select * from my_other_table");

... process this query's result set in chunks also ...

$cur->setResultSetBufferSize(0);

$cur->sendQuery("select * from my_third_table");

... process this query's result set all at once ...

$con->endSession();

Cursors

Cursors make it possible to execute queries while processing the result set of another query. You can select rows from a table in one query, then iterate through its result set, inserting rows into another table, using only 1 database connection for both operations.

For example:

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cursor1=SQLRelay::Cursor->new($con);
$cursor2=SQLRelay::Cursor->new($con);

$cursor1->setResultSetBufferSize(10);
$cursor1->sendQuery("select * from my_huge_table");

$index=0;
while (!$cursor1->endOfResultSet()) {
        $cursor2->prepareQuery("insert into my_other_table values (:1,:2,:3)");
        $cursor2->inputBind("1",$cursor1->getField($index,1));
        $cursor2->inputBind("2",$cursor1->getField($index,2));
        $cursor2->inputBind("3",$cursor1->getField($index,3));
        $cursor2->executeQuery();
}

If you are using stored procedures with Oracle, a stored procedure can execute a query and return a cursor. A cursor bind variable can then retrieve that cursor. Your program can retrieve the result set from the cursor. All of this can be accomplished using defineOutputBindCursor(), getOutputBindCursor() and fetchFromOutputBindCursor().

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->prepareQuery("begin  :curs:=sp_mytable; end;");
$cur->defineOutputBindCursor("curs");
$cur->executeQuery();

my $bindcur=$cur->getOutputBindCursor("curs");
$bindcur->fetchFromBindCursor();

# print fields from table
for ($i=0; $i<$bindcur->rowCount(); $i++) {
        for ($j=0; $j<$bindcur->colCount(); $j++) {
                print($bindcur->getField($i,$j).", ");
        }
        print("\n");
}

The number of cursors simultaneously available per-connection is set at compile time and defaults to 5.

Getting Column Information

For each column, the API supports getting the name, type and length of each field. All databases support these attributes. The API also supports getting the precision, scale (see this page for a discussion of precision and scale), length of the longest field, and whether the column is nullable, the primary key, unique, part of a key, unsigned, zero-filled, binary, or an auto-incrementing field. However, not all databases support these attributes. If a database doesn't support an attribute, it is always returned as false.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->sendQuery("select * from my_table");
$con->endSession();

for ($i=0; $i<$cur->colCount(); $i++) {
        printf("Name:          %s\n",$cur->getColumnName($i));
        printf("Type:          %s\n",$cur->getColumnType($i));
        printf("Length:        %d\n",$cur->getColumnLength($i));
        printf("Precision:     %d\n",$cur->getColumnPrecision($i));
        printf("Scale:         %d\n",$cur->getColumnScale($i));
        printf("Longest Field: %d\n",$cur->getLongest($i));
        printf("Nullable:      %d\n",$cur->getColumnIsNullable($i));
        printf("Primary Key:   %d\n",$cur->getColumnIsPrimaryKey($i));
        printf("Unique:        %d\n",$cur->getColumnIsUnique($i));
        printf("Part Of Key:   %d\n",$cur->getColumnIsPartOfKey($i));
        printf("Unsigned:      %d\n",$cur->getColumnIsUnsigned($i));
        printf("Zero Filled:   %d\n",$cur->getColumnIsZeroFilled($i));
        printf("Binary:        %d\n",$cur->getColumnIsBinary($i));
        printf("Auto Increment:%d\n",$cur->getColumnIsAutoIncrement($i));
        printf("\n");
}

Some databases force column names to upper case, others force column names to lower case, and others still support mixed-case column names. Sometimes, when migrating between databases, you can run into trouble. You can use upperCaseColumnNames() and lowerCaseColumnNames() to cause column names to be converted to upper or lower case, or you can use mixedCaseColumnNames() to cause column names to be returned in the same case as they are defined in the database.

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

# column names will be forced to upper case
$cur->upperCaseColumnNames();
$cur->sendQuery("select * from my_table");
$con->endSession();

for ($i=0; $i<$cur->colCount(); $i++) {
        print("Name:          ".cur->getColumnName(i)."\n");
}

# column names will be forced to lower case
$cur->lowerCaseColumnNames();
$cur->sendQuery("select * from my_table");
$con->endSession();

for ($i=0; $i<$cur->colCount(); $i++) {
        print("Name:          ".cur->getColumnName(i)."\n");
}

# column names will be the same as they are in the database
$cur->mixedCaseColumnNames();
$cur->sendQuery("select * from my_table");
$con->endSession();

for ($i=0; $i<$cur->colCount(); $i++) {
        print("Name:          ".cur->getColumnName(i)."\n");
}

Stored Procedures

Many databases support stored procedures. Stored procedures are sets of queries and procedural code that are executed inside of the database itself. For example, a stored procedure may select rows from one table, iterate through the result set and, based on the values in each row, insert, update or delete rows in other tables. A client program could do this as well, but a stored procedure is generally more efficient because queries and result sets don't have to be sent back and forth between the client and database. Also, stored procedures are generally stored in the database in a compiled state, while queries may have to be re-parsed and re-compiled each time they are sent.

While many databases support stored procedures. The syntax for creating and executing stored procedures varies greatly between databases.

Stored procedures typically take input paramters from client programs through input bind variables and return values back to client programs either through bind variables or result sets. Stored procedures can be broken down into several categories, based on the values that they return. Some stored procedures don't return any values, some return a single value, some return multiple values and some return entire result sets.

No Values

Some stored procedures don't return any values. Below are examples, illustrating how to create, execute and drop this kind of stored procedure for each database that SQL Relay supports.

Oracle

To create the stored procedure, run a query like the following.

create procedure exampleproc(in1 in number, in2 in number, in3 in varchar2) is
begin
        insert into mytable values (in1,in2,in3);
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("begin exampleproc(:in1,:in2,:in3); end;");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->executeQuery();

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Sybase and Microsoft SQL Server

To create the stored procedure, run a query like the following.

create procedure exampleproc @in1 int, @in2 float, @in3 varchar(20) as
        insert into mytable values (@in1,@in2,@in3)

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("exec exampleproc");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->executeQuery();

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Firebird

To create the stored procedure, run a query like the following.

create procedure exampleproc(in1 integer, in2 float, in3 varchar(20)) as
begin
        insert into mytable values (in1,in2,in3);
        suspend;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("execute procedure exampleproc ?, ?, ?");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->executeQuery();

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

DB2

To create the stored procedure, run a query like the following.

create procedure exampleproc(in in1 int, in in2 double, in in3 varchar(20)) language sql
begin
        insert into mytable values (in1,in2,in3);
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("call exampleproc(?,?,?)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->executeQuery();

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Postgresql

To create the stored procedure, run a query like the following.

create function examplefunc(int,float,varchar(20)) returns void as '
begin
        insert into mytable values ($1,$2,$3);
        return;
end;' language plpgsql

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("select examplefunc($1,$2,$3)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->executeQuery();

To drop the stored procedure, run a query like the following.

drop function examplefunc(int,float,varchar(20))

MySQL/MariaDB

To create the stored procedure, run a query like the following.

create procedure exampleproc(in in1 int, in in2 float, in in3 varchar(20))
begin
        insert into mytable values (in1,in2,in3);
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("call exampleproc(:in1,:in2,:in3)");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->executeQuery();

Note: Versions of MySQL prior to 5.0 had trouble calling stored procedures using bind variables. If you are using a version of MySQL prior to 5.0 then SQL relay must fake the bind variables and you must use colon-delimited variables (:1, :2, :3, etc.) in your queries rather than the native-mysql queston marks.

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Single Values

Some stored procedures return single values. Below are examples, illustrating how to create, execute and drop this kind of stored procedure for each database that SQL Relay supports.

Oracle

In Oracle, stored procedures can return values through output parameters or as return values of the procedure itself.

Here is an example where the procedure itself returns a value. Note that Oracle calls these functions.

To create the stored procedure, run a query like the following.

create function exampleproc(in1 in number, in2 in number, in3 in varchar2) returns number is
begin
        return in1;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("select exampleproc(:in1,:in2,:in3) from dual");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->executeQuery();
my $result=$cur->getField(0,0);

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Here is an example where the value is returned through an output parameter.

To create the stored procedure, run a query like the following.

create procedure exampleproc(in1 in number, in2 in number, in3 in varchar2, out1 out number) as
begin
        out1:=in1;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("begin exampleproc(:in1,:in2,:in3,:out1); end;");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->defineOutputBindInteger("out1");
$cur->executeQuery();
my $result=$cur->getOutputBindInteger("out1");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Sybase and Microsoft SQL Server

In Sybase and Microsoft SQL Server, stored procedures return values through output parameters rather than as return values of the procedure itself.

To create the stored procedure, run a query like the following.

create procedure exampleproc @in1 int, @in2 float, @in3 varchar(20), @out1 int output as
        select @out1=convert(varchar(20),@in1)

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("exec exampleproc");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->defineOutputBindInteger("out1");
$cur->executeQuery();
my $result=$cur->getOutputBindInteger("out1");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Firebird

To create the stored procedure, run a query like the following.

create procedure exampleproc(in1 integer, in2 float, in3 varchar(20)) returns (out1 integer) as
begin
        out1=in1;
        suspend;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("select * from exampleproc(?,?,?)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->executeQuery();
my $result=$cur->getField(0,0);

Alternatively, you can run a query like the following and receive the result using an output bind variable. Note that in Firebird, input and output bind variable indices are distict from one another. The index of the output bind variable is 1 rather than 4, even though there were 3 input bind variables.

$cur->prepareQuery("execute procedure exampleproc ?, ?, ?");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->defineOutputBindInteger("1")
$cur->executeQuery();
my $result=$cur->getOutputBindInteger("1");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

DB2

In DB2, stored procedures return values through output parameters rather than as return values of the procedure itself.

To create the stored procedure, run a query like the following.

create procedure exampleproc(in in1 int, in in2 double, in in3 varchar(20), out out1 int) language sql
begin
        set out1 = in1;
end

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("call exampleproc(?,?,?,?)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->defineOutputBindInteger("4");
$cur->executeQuery();
my $result=$cur->getOutputBindInteger("4");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Postgresql

To create the stored procedure, run a query like the following.

create function examplefunc(int,float,char(20)) returns int as '
declare
        in1 int;
        in2 float;
        in3 char(20);
begin
        in1:=$1;
        return;
end;
' language plpgsql

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("select * from examplefunc($1,$2,$3)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,4,2);
$cur->inputBind("3","hello");
$cur->executeQuery();
my $result=$cur->getField(0,0);

To drop the stored procedure, run a query like the following.

drop function examplefunc(int,float,char(20))

MySQL/MariaDB

A single value can be returned from a MySQL/MariaDB function.

To create the function, run a query like the following.

create function examplefunc(in in1 int, in in2 float, in in3 varchar(20)) returns int return in1;

To execute the function from an SQL Relay program, use code like the following.

$cur->prepareQuery("select examplefunc(?,?,?)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,4,2);
$cur->inputBind("3","hello");
$cur->executeQuery();
my $result=$cur->getField(0,0);

Note: Versions of MySQL prior to 5.0 had trouble calling stored procedures using bind variables. If you are using a version of MySQL prior to 5.0 then SQL relay must fake the bind variables and you must use colon-delimited variables (:1, :2, :3, etc.) in your queries rather than the native-mysql queston marks.

To drop the function, run a query like the following.

drop procedure exampleproc

A single value can be returned in the result set of a MySQL/MariaDB procedure.

To create the procedure, run a query like the following.

create procedure exampleproc() begin select 1; end;

To execeute the procedure from an SQL Relay program, use code like the following.

$cur->sendQuery("select exampleproc()");
my $result=$cur->getField(0,0);

To drop the procedure, run a query like the following.

drop procedure exampleproc

A single value can be returned using the output variable of a MySQL/MariaDB procedure.

To create the procedure, run a query like the following.

create procedure exampleproc(out out1 int) begin select 1 into out1; end;

To execeute the procedure from an SQL Relay program, use code like the following.

$cur->sendQuery("set \@out1=0");
$cur->sendQuery("call exampleproc(\@out1)");
$cur->sendQuery("select \@out1");
my $result=$cur->getField(0,0);

To drop the procedure, run a query like the following.

drop procedure exampleproc

Multiple Values

Some stored procedures return multiple values. Below are examples, illustrating how to create, execute and drop this kind of stored procedure for each database that SQL Relay supports.

Oracle

In Oracle, stored procedures can return values through output parameters or as return values of the procedure itself. If a procedure needs to return multiple values, it can return one of them as the return value of the procedure itself, but the rest must be returned through output parameters.

To create the stored procedure, run a query like the following.

create procedure exampleproc(in1 in number, in2 in number, in3 in varchar2, out1 out number, out2 out number, out3 out varchar2) is
begin
        out1:=in1;
        out2:=in2;
        out3:=in3;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("begin exampleproc(:in1,:in2,:in3,:out1,:out2,:out3); end;");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->defineOutputBindInteger("out1");
$cur->defineOutputBindDouble("out2");
$cur->defineOutputBindString("out3",20);
$cur->executeQuery();
my $out1=$cur->getOutputBindInteger("out1");
my $out2=$cur->getOutputBindDouble("out2");
my $out3=$cur->getOutputBindString("out3");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Sybase and Microsoft SQL Server

To create the stored procedure, run a query like the following.

create procedure exampleproc @in1 int, @in2 float, @in3 varchar(20), @out1 int output, @out2 int output, @out3 int output as
        select @out1=convert(varchar(20),@in1),
                @out2=convert(varchar(20),@in2),
                @out2=convert(varchar(20),@in2)

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("exec exampleproc");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,2,1);
$cur->inputBind("in3","hello");
$cur->defineOutputBindInteger("out1");
$cur->defineOutputBindDouble("out2");
$cur->defineOutputBindString("out3",20);
$cur->executeQuery();
my $out1=$cur->getOutputBindInteger("out1");
my $out2=$cur->getOutputBindDouble("out2");
my $out3=$cur->getOutputBindString("out3");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Firebird

To create the stored procedure, run a query like the following.

create procedure exampleproc(in1 integer, in2 float, in3 varchar(20)) returns (out1 integer, out2 float, out3 varchar(20)) as
begin
        out1=in1;
        out2=in2;
        out3=in3;
        suspend;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("select * from exampleproc(?,?,?)");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,4,2);
$cur->inputBind("in3","hello");
$cur->executeQuery();
my $out1=$cur->getField(0,0);
my $out2=$cur->getField(0,1);
my $out3=$cur->getField(0,2);

Alternatively, you can run a query like the following and receive the result using a output bind variables. Note that in Firebird, input and output bind variable indices are distict from one another. The index of the first output bind variable is 1 rather than 4, even though there were 3 input bind variables.

$cur->prepareQuery("execute procedure exampleproc ?, ?, ?");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->defineOutputBindInteger("1");
$cur->defineOutputBindDouble("2");
$cur->defineOutputBindString("3",20);
$cur->executeQuery();
my $out1=$cur->getOutputBindInteger("1");
my $out2=$cur->getOutputBindDouble("2");
my $out3=$cur->getOutputBindString("3");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

DB2

To create the stored procedure, run a query like the following.

create procedure exampleproc(in in1 int, in in2 double, in in3 varchar(20), out out1 int, out out2 double, out out3 varchar(20)) language sql
begin
        set out1 = in1;
        set out2 = in2;
        set out3 = in3;
end

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("call exampleproc(?,?,?,?,?,?)");
$cur->inputBind("1",1);
$cur->inputBind("2",1.1,2,1);
$cur->inputBind("3","hello");
$cur->defineOutputBindInteger("4");
$cur->defineOutputBindDouble("5");
$cur->defineOutputBindString("6",25);
$cur->executeQuery();
my $out1=$cur->getOutputBindInteger("4");
my $out2=$cur->getOutputBindDouble("5");
my $out3=$cur->getOutputBindString("6");

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Postgresql

To create the stored procedure, run a query like the following.

create function examplefunc(int,float,char(20)) returns record as '
declare
        output record;
begin
        select $1,$2,$3 into output;
        return output;
end;
' language plpgsql

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("select * from examplefunc($1,$2,$3) as (col1 int, col2 float, col3 char(20))");
$cur->inputBind("$1",1);
$cur->inputBind("$2",1.1,4,2);
$cur->inputBind("$3","hello");
$cur->executeQuery();
my $out1=$cur->getField(0,0);
my $out2=$cur->getField(0,1);
my $out3=$cur->getField(0,2);

To drop the stored procedure, run a query like the following.

drop function examplefunc(int,float,char(20))

MySQL/MariaDB

Here's how you can get multiple values from the result set of a MySQL/MariaDB procedure.

To create the stored procedure, run a query like the following.

create procedure exampleproc(in in1 int, in in2 float, in in3 varchar(20)) begin select in1, in2, in3; end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("call exampleproc(:in1,:in2,:in3)");
$cur->inputBind("in1",1);
$cur->inputBind("in2",1.1,4,2);
$cur->inputBind("in3","hello");
$cur->executeQuery();
my $out1=$cur->getField(0,0);
my $out2=$cur->getField(0,1);
my $out3=$cur->getField(0,2);

Note: Versions of MySQL prior to 5.0 had trouble calling stored procedures using bind variables. If you are using a version of MySQL prior to 5.0 then SQL relay must fake the bind variables and you must use colon-delimited variables (:1, :2, :3, etc.) in your queries rather than the native-mysql queston marks.

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Here's how you can get multiple values from the output variables of a MySQL/MariaDB procedure.

To create the stored procedure, run a query like the following.

create procedure exampleproc(out out1 int, out out2 float, out out3 varchar(20)) begin select 1,1.1,'hello' into out1, out2, out3; end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->sendQuery("set \@out1=0, \@out2=0.0, \@out3=''");
$cur->sendQuery("call exampleproc(\@out1,\@out2,\@out3)");
$cur->sendQuery("select \@out1,\@out2,\@out3");
my $out1=$cur->getField(0,0);
my $out2=$cur->getField(0,1);
my $out3=$cur->getField(0,2);

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Result Sets

Some stored procedures return entire result sets. Below are examples, illustrating how to create, execute and drop this kind of stored procedure for each database that SQL Relay supports.

Oracle

To create the stored procedure, run a query like the following.

create or replace package types as
        type cursorType is ref cursor;
end;

create function exampleproc return types.cursortype is
        l_cursor    types.cursorType;
begin
        open l_cursor for select * from mytable;
        return l_cursor;
end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->prepareQuery("begin  :curs:=exampleproc; end;");
$cur->defineOutputBindCursor("curs");
$cur->executeQuery();
my $bindcur=$cur->getOutputBindCursor("curs");
$bindcur->fetchFromBindCursor();
my $field00=$bindcur->getField(0,0);
my $field01=$bindcur->getField(0,1);
my $field02=$bindcur->getField(0,2);
my $field10=$bindcur->getField(1,0);
my $field11=$bindcur->getField(1,1);
my $field12=$bindcur->getField(1,2);

To drop the stored procedure, run a query like the following.

drop function exampleproc
drop package types

Sybase and Microsoft SQL Server

To create the stored procedure, run a query like the following.

create procedure exampleproc as select * from exampletable

To exceute the stored procedure from an SQL Relay program, ue code like the following.

$cur->sendQuery("exec exampleproc");
my $field00=$cur->getFieldByIndex(0,0);
my $field01=$cur->getFieldByIndex(0,1);
my $field02=$cur->getFieldByIndex(0,2);
my $field10=$cur->getFieldByIndex(1,0);
my $field11=$cur->getFieldByIndex(1,1);
my $field12=$cur->getFieldByIndex(1,2);
...

To drop the stored procedure, run a query like the following.

drop procedure exampleproc

Firebird

Stored procedures in Firebird can return a result set if a select query in the procedure selects values into the output parameters and then issues a suspend command, however SQL Relay doesn't currently support stored procedures that return result sets.

DB2

Stored procedures in DB2 can return a result set if the procedure is declared to return one, however SQL Relay doesn't currently support stored procedures that return result sets.

Postgresql

To create the stored procedure, run a query like the following.

create function examplefunc() returns setof record as '
        declare output record;
begin
        for output in select * from mytable loop
                return next output;
        end loop;
        return;
end;
' language plpgsql

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->sendQuery("select * from examplefunc() as (testint int, testfloat float, testchar char(40))");
my $field00=$cur->getField(0,0);
my $field01=$cur->getField(0,1);
my $field02=$cur->getField(0,2);
my $field10=$cur->getField(1,0);
my $field11=$cur->getField(1,1);
my $field12=$cur->getField(1,2);
...

To drop the stored procedure, run a query like the following.

drop function examplefunc

MySQL/MariaDB

The result sets of all select statements called within MySQL/MariaDB stored procedures (that aren't selected into variables) are returned from the procedure call. Though MySQL/MariaDB stored procedures can return multiple result sets, currently SQL Relay can only fetch the first result set.

To create the stored procedure which returns a result set, run a query like the following.

create procedure exampleproc() begin select * from mytable; end;

To execute the stored procedure from an SQL Relay program, use code like the following.

$cur->sendQuery("call exampleproc()");
my $field00=cur->getField(0,0);
my $field01=cur->getField(0,1);
my $field02=cur->getField(0,2);
my $field10=cur->getField(1,0);
my $field11=cur->getField(1,1);
my $field12=cur->getField(1,2);
...

To drop the stored procedure, run a query like the following.

drop procedure exampleproc


Caching The Result Set

Say you're writing a web-based report where a query with a huge result set is executed and 20 rows are displayed per page. Rather than rerunning the query for every page every time and dumping all but the 20 rows you want to display, you can run the query once, cache the result set to a local file and just open the file for each page of the report.

First page:

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

... generate a unique file name ...

$cur->cacheToFile(filename);
$cur->setCacheTtl(600);
$cur->sendQuery("select * from my_table");
$con->endSession();
$cur->cacheOff();

... pass the filename to the next page ...

Second page:

use SQLRelay::Connection;
use SQLRelay::Cursor;

        ... get the filename from the previous page ...

        ... get the page to display from the previous page ...

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->openCachedResultSet(filename);
$con->endSession();

for ($row=pagetodisplay*20; $row<(pagetodisplay+1)*20; $row++) {
        for ($col=0; $col<$cur->colCount(); $col++) {
                printf("%s,",$cur->getField($row,$col));
        }
        printf("\n");
}

For result-set caching to be effective, the sqlr-cachemanager process must be enabled and running on the client system. The sqlr-cachemanager scans the cache periodically and deletes cached result sets whos ttl's have expired. If it is not running, stale result sets persist beyond their intended ttl's.

To enable the sqlr-cachemanager at boot on systemd platforms:

systemctl enable sqlrcachemanager.service

To start the sqlr-cachemanager on systemd platforms:

systemctl start sqlrcachemanager.service

To enable the sqlr-cachemanager at boot on most non-systemd platforms, you must create a symlink into the /etc/rc2.d or /etc/rc3.d directory. Eg:

cd /etc/rc2.d
ln -s ../init.d/sqlrcachemanager S15sqlrcachemanager

or

cd /etc/rc3.d
ln -s ../init.d/sqlrcachemanager S15sqlrcachemanager

To start the sqlr-cachemanager on most non-systemd platforms:

/etc/init.d/sqlrcachemanager start

To enable the sqlr-cachemanager at boot on FreeBSD platforms, edit /etc/rc.conf and add a line like:

sqlrcachemanager_enable=YES

To enable the sqlr-cachemanager at boot on NetBSD platforms, edit /etc/rc.conf and add a line like:

sqlrcachemanager=YES

To enable the sqlr-cachemanager at boot on OpenBSD platforms, edit /etc/rc.conf and add a line like:

sqlrcachemanager_flags=YES

To start the sqlr-cachemanager on BSD platforms:

/etc/init.d/sqlrcachemanager start

Suspending and Resuming Sessions

Sometimes web-based applications need a single database transaction to span multiple pages. Since SQL Relay sessions can be suspended and resumed, this is possible.

First page:

use SQLRelay::Connection;
use SQLRelay::Cursor;

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$cur->sendQuery("insert into my_table values (1,2,3)");
$cur->suspendResultSet();
$con->suspendSession();
$rs=$cur->getResultSetId();
$port=$cur->getConnectionPort();
$socket=$cur->getConnectionSocket();

... pass the rs, port and socket to the next page ...

Second page:

use SQLRelay::Connection;
use SQLRelay::Cursor;

        ... get rs, port and socket from previous page ...

$con=SQLRelay::Connection->new("sqlrserver",9000,"/tmp/example.socket","user","password",0,1);
$cur=SQLRelay::Cursor->new($con);

$con->resumeSession(port,$socket);
$cur->resumeResultSet($rs);
$cur->sendQuery("commit");
$con->endSession();

You can also distribute the processing of a result set across a series of pages using suspended sessions. If you're buffering a result set in chunks instead of all at once and suspend a session, when you resume the session you can continue to retrieve rows from the result set.

Similarly, if you're buffering a result set in chunks, caching that result set and suspend your session. When you resume the session, you can continue caching the result set. You must use resumeCachedResultSet() instead of resumeResultSet() however.

Getting the Last Insert ID

Databases with autoincrement or identity columns often provide functions which return the "last insert id"; the value of the autoincrement column that was generated during the insert into the database.

SQL Relay provides the SQLRelay
Connection::getLastInsertId() method to get this value.

When using the SQLite database, you can also get the last insert id by running the query:

select last insert rowid