OberonCore

(*************
SET SQL DIALECT 3;
SET NAMES WIN1251;
SET CLIENTLIB 'C:\WINDOWS\system32\FBCLIENT.DLL';

CREATE DATABASE 'D:\t.fdb'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET WIN1251;

CREATE TABLE T (
    F  INTEGER
);
***************)

MODULE  DbtstT;
   IMPORT  Log := StdLog, SqlDB, FibDriver, Strings;
   
   CONST
      protocol = "FibDriver";
      id = "lc_ctype=WIN1251;user_name=SYSDBA;password=masterkey"; password = "masterkey";
      datasource = "D:\T.FDB";
   
   PROCEDURE Tst*;
      VAR  db: SqlDB.Database; res,  i: INTEGER;
         si: ARRAY 10 OF CHAR;
   BEGIN
      SqlDB.OpenDatabase(protocol, id, password, datasource, SqlDB.sync, SqlDB.showErrors, db, res);
      IF  res = 0  THEN
         Log.String('Open Base');
      ELSE
         Log.String('Error open Base = '); Log.Int(res);
         RETURN ;
      END;
      FOR  i := 1 TO 50000  DO
         Strings.IntToString(i, si);
         db.Exec("INSERT INTO T (F)  VALUES (" + si + ") ");
      END;
   END Tst;
   
END DbtstT.

   Strings.IntToString(i, si);
   db.Exec("INSERT INTO T (F)  VALUES (" + si + ") ");
   db.Commit;

   Strings.IntToString(i, si);
   db.Exec("INSERT INTO T (F)  VALUES (" + si + ") ");
   db.Exec("COMMIT RETAIN");

   Strings.IntToString(i, si);
   db.Exec("INSERT INTO T (F)  VALUES (" + si + ") ");
   db.Exec("COMMIT");

     ...
     xsqlvar := S.VAL(FibApi.PtrXSQLVAR, S.ADR(xsqlda.sqlvar[column]));
     ...

PROCEDURE Tst*;
      VAR db: SqlDB.Database; res, i,n: INTEGER;
      si: ARRAY 10 OF CHAR;
      tb:SqlDB.Table;
      r:SqlDB.Row;
BEGIN
   SqlDB.OpenDatabase(protocol, id, password, datasource, SqlDB.sync, SqlDB.showErrors, db, res);
   IF res = 0 THEN
     Log.String('Open Base');
    ELSE
    Log.String('Error open Base = '); Log.Int(res);
    RETURN ;
    END;
    tb:=db.NewTable();
    tb.Exec("SELECT * FROM COUNTRY");
 
    tb.Read(SqlDB.names,r);
    FOR n:=0 TO LEN(r.fields)-1 DO
    Log.String(r.fields[n]); Log.String(" ")
    END; Log.Ln;
END Tst;

(*************
SET SQL DIALECT 3;
SET NAMES WIN1251;

CREATE DATABASE '/home/bbweb/T.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET WIN1251;

CREATE TABLE T (
    F  INTEGER
);
***************)

MODULE  DbtstT;
   IMPORT  Log, LinSimpleLog, SqlDB, FibDriver, Strings;
   
   CONST
      protocol = "FibDriver";
      id = "lc_ctype=WIN1251;user_name=SYSDBA;password=masterkey"; password = "masterkey";
      datasource = "/home/bbweb/T.FDB";
   
   PROCEDURE Test*;
      VAR  db: SqlDB.Database; res,  i: INTEGER;
         si: ARRAY 10 OF CHAR;
   BEGIN

      SqlDB.OpenDatabase(protocol, id, password, datasource, SqlDB.sync, SqlDB.showErrors, db, res);
      IF  res = 0  THEN
         Log.String('Open Base');
      ELSE
         Log.String('Error open Base = '); Log.Int(res);
         RETURN ;
      END;
      FOR  i := 1 TO 50  DO
         Strings.IntToString(i, si);
         db.Exec("INSERT INTO T (F)  VALUES (" + si + ") ");
      END;
   END Test;
   
   PROCEDURE Init*;
   BEGIN
      LinSimpleLog.Open;
      Test;

   END Init;

END DbtstT.


DbtstT.Test

   Линковка
DevElfLinker.LinkDll libBBFB.so := Kernel+ Log Math Strings LinSimpleLog

Dates Files Services Dialog Fonts Ports Stores Sequencers Models Meta Converters Views
Controllers Properties Mechanisms Containers

Printers Printing Documents Windows StdDialog StdApi StdCmds  HostFiles
HostRegistry HostFonts HostPorts OleData HostMechanisms HostWindows
HostPrinters StdCFrames HostCFrames HostDialog HostClipboard HostCmds
SqlDrivers SqlDB FibApi FibMisc FibErrors FibDriver

DbtstT#