Zeoslib Portal

Code: Select all

program ZeosParamTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes,
  Data.DB,
  ZDbcIntfs, ZConnection, ZDataset;

var
  ZConn: TZConnection;
  ZQuery: TZQuery;
  Param: TParam;
begin

  try
    ZConn := TZConnection.Create(nil);
    ZConn.Protocol := 'oracle';
    ZConn.User := 'scott';
    ZConn.Password := 'tiger';
    ZConn.Database := '//192.168.1.100/orcl.local';
    ZConn.LibraryLocation := 'C:\Oracle\19\32\oci.dll';
    ZConn.AutoCommit := False;
    ZConn.TransactIsolationLevel := tiReadCommitted;
    ZConn.Connect;

    ZQuery := TZQuery.Create(nil);
    ZQuery.Connection := ZConn;
    // Note that we have to double the :: on := to escape it from the parser.
    ZQuery.SQL.Text := 'BEGIN :ParamOut ::= ''Input: ''|| :ParamIn; END;';

    Param := ZQuery.ParamByName('ParamIn');
    Param.ParamType := ptInput;
    Param.AsString := 'Testing';  // Sets datatype to ftWideString which works
    // Param.DataType := ftString;   // UnComment this to see the error.

    Param := ZQuery.ParamByName('ParamOut');
    Param.ParamType := ptInputOutput;
    // Param.DataType := ftString;       // Correct output
    Param.DataType := ftWideString;   // Looks like utf-16 as ansi.

    ZQuery.ExecSQL;

    // Write out the param values.
    for var  i := 0 to ZQuery.Params.Count - 1 do
    begin
      Param := ZQuery.Params[i];
      Writeln(Param.DisplayName + ': ' + Param.AsString);
    end;

    Writeln('Done');

    ZConn.Disconnect;
    ZQuery.Free;
    ZConn.Free;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  Write('Press Enter to quit...');
  ReadLn;

end.

Code: Select all

   // Just testing "returning into" clause which can be used on insert, update or delete statements.
    ZQuery.SQL.Text := 'DELETE FROM EMP WHERE EMPNO = 1 RETURNING ENAME INTO :BIND3';

    Param := ZQuery.ParamByName('BIND3');
    Param.ParamType := ptOutput;
    Param.DataType := ftString;
    Param.Size := 200;

    ZQuery.ExecSQL;