RsGetString2 Function

Action

Retrieves a string from the internal result set, which is filled whenever a data generating SQL statement is executed (SELECT statement), no matter which database API (ORA, ODBC) has generated it.

Include file

db.bdh

Syntax

RsGetString2( out sResult       : string,
              in  nResultMaxLen : number,
              in  sIdentifier   : string,
              in  nIndex        : number optional,
              out nResultCode   : number optional ): boolean;

Return value

  • true if successful
  • false otherwise
Parameter Description
sResult Variable receiving the data retrieved from a fetched row.
nResultMaxLen Size of the variable receiving the value.
sIdentifier Identifier of the result data column.
nIndex Array index for the column item (optional).
nResultCode

Variable receiving the result code of the operation (optional). It can be one of the following:

  • RS_RESULTCODE_SUCCESS: function succeeded

  • RS_RESULTCODE_INVALID_INPUTPARAMETER: invalid input parameter

  • RS_RESULTCODE_INVLAID_COLUMN: the 'sIdentifier' is invalid

  • RS_RESULTCODE_INVALID_CELL: there exists no item at the chosen position

Example

var
  hConnection : number;
  cCursor     : cursor;

dcltrans
  transaction TMain
  var
    nAge  : number;
    sName : string;
  begin
    OraLogon(hConnection, "user", "password", "orclnet2");
    OraOpen(cCursor, hConnection);
    OraParse(cCursor, sqlSelect);
    OraBind(cCursor, ":1", SQLT_INT);
    OraSetInt(cCursor, ":1", 25);
    OraDefine(cCursor, 1, SQLT_CHR, 32);
    OraDefine(cCursor, 2, SQLT_INT);
    OraExec(cCursor);
      
    while OraFetch(cCursor) do
      RsGetString2(sName, STRING_COMPLETE, "1");
      nAge  := RsGetInt("2");
      write(sName, 32); write(nAge, 5); writeln;
    end;
   
    OraClose(cCursor);
    OraLogoff(hConnection);
  end TMain;

dclsql
  sqlSelect:
  SELECT * FROM persons WHERE age > :1;