Zeoslib Portal

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ZConnection,
  ZDataSet,
  ZDbcInterbase6Utils;

var
  Connection: TZConnection;
  Query: TZQuery;

begin
  try
    Connection := TZConnection.Create(nil);
    Connection.Protocol := 'firebird';
    Connection.HostName := 'localhost';
    Connection.Database := 'c:\program files (x86)\topsales\datenbank\topsales.fdb';
    Connection.LibraryLocation := 'd:\projekte\topsales\additional\firebird-embedded-3.0.7\fbclient.dll';
    Connection.ClientCodepage := 'UTF8';
    Connection.User := 'SYSDBA';
    Connection.Password := 'masterkey';
    Connection.Properties.Add('FirebirdAPI=legacy');

    Query := TZQuery.Create(nil);
    Query.Connection := Connection;

    Connection.Connect;

    Writeln('Now drop connection and press enter');
    Readln;

    Query.SQL.Text := 'select * from RDB$DATABASE';
    try
      Query.Open;
    except
      on E: Exception do
        Writeln('inner', E.ClassName, ': ', E.Message);
    end;

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

Code: Select all

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes,
  SysUtils,
  ZConnection,
  ZDataSet,
  ZDbcInterbase6Utils,
  zcomponent;

var
  Connection: TZConnection;
  Query: TZQuery;

begin
  try
    Connection := TZConnection.Create(nil);
    Connection.Protocol := 'mssql';
    Connection.HostName := 'TECHSRVGEN';   //change
    Connection.Database := 'AdventureWorks2019';
    Connection.LibraryLocation := 'libsybdb-5.dll';
    Connection.ClientCodepage := 'UTF8';
    Connection.User := 'sa';
    Connection.Password := 'password';   //change

    Query := TZQuery.Create(nil);
    Query.Connection := Connection;

    Connection.Connect;
    Writeln('Revision: 7772');
    Writeln('Now drop connection and press enter');
    Readln;

    Query.SQL.Text := 'select * from AWBuildVersion';
    try
      Query.Open;
      Writeln(Query.Fields[1].AsString);
    except
      on E: Exception do
        Writeln('inner', E.ClassName, ': ', E.Message);
    end;

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

Code: Select all

procedure TZAbstractDbcConnection.CloseRegisteredStatements;
var I: Integer;
begin
  for i := fRegisteredStatements.Count-1 downto 0 do begin
    //try
      IZStatement(fRegisteredStatements[i]).Close; //there AV
    //except end;
  end;
end;