OberonCore

MODULE TestSQL1;

   IMPORT Dialog, Views,TextMappers, TextModels, TextControllers, SqlDB,
               TextViews, SqlControls, StdLog, StdTables;
   VAR
      dlg*: RECORD
         id*,
         password*,
         database*,
         driver*: ARRAY 255 OF CHAR;
         statement*: ARRAY 1024 OF CHAR
      END;
      table*: SqlDB.Table;   (* anchor for database *)
      vt: Views.View;
      
      
   PROCEDURE CheckResult (tab: SqlDB.Table; par: ANYPTR);
   BEGIN
      vt := SqlControls.dir.NewTableOn(tab);
      (*Views.OpenAux(vt, "#Sql:Result")*)
   END CheckResult;
   
   PROCEDURE ExecuteThis (statement: ARRAY OF CHAR);
      VAR
         res: INTEGER;
         db: SqlDB.
         Database;
         rows,cols,row,col : INTEGER;
   BEGIN
   
         SqlDB.OpenDatabase(dlg.driver, dlg.id, dlg.password, dlg.database,SqlDB.async, SqlDB.showErrors, db, res);
         table := db.NewTable()
         table.Exec(statement);
         table.Call(CheckResult, NIL);      
      StdLog.Int(table.rows);
   END ExecuteThis;

   PROCEDURE Do*;
   VAR
      t:TextModels.Model;
      f:TextMappers.Formatter;
      v:TextViews.View;
   BEGIN
      dlg.id         :="";
      dlg.password   :="";
      dlg.database    :="Volna";
      dlg.driver      :="SqlOdbc";

      t:=TextModels.dir.New();
      f.ConnectTo(t);      
      f.WriteString("ШАПКА");
      f.WriteLn;      
      v:=TextViews.dir.New(t);      
      ExecuteThis("select top 10 product,type from rvwVersions");
      f.WriteView(vt);
      Views.OpenView(v);
   END Do;
   
END TestSQL1.