mORMot Open Source

itSDS

Member

From: Germany

Registered: 2014-04-24

Posts: 516

Using Step(True) with MSSQL Twice Throws Exception

Hi AB we swithed our Database from MySQL to MS-SQL.

In our Code we use Something like:

  procedure WorkWithRows(const ARows : ISQLDBRows);
  var
    LSeekFirst : boolean;
  begin
    LSeekFirst := True;
    while ARows.Step(LSeekFirst) do begin
      LSeekFirst := False;
....
    end;
 
  end;

var
  LSQLDBRows : ISQLDBRows;
begin
...
  Database := TOleDBMSSQL2012ConnectionProperties.Create ....

  LSQLDBRows := Database.ExecuteInlined('select something from table', True);

  WorkwithRows(LSQLDBRows);

  WorkwithRows(LSQLDBRows);  <- Exception because ISQLDBRows cannot not MoveFirst !

  WorkwithRows(LSQLDBRows);
...
end;

It seems that the OleDB Cursor is not the right type. I don't know where to modify this.

---

Rad Studio 12.1 Santorini

mpv

Member

From: Ukraine

Registered: 2012-03-24

Posts: 1,571

Website

Re: Using Step(True) with MSSQL Twice Throws Exception

See this topic
In short - fetch all data in memory first using a ExecutePreparedAndFetchAllAsJSON

itSDS

Member

From: Germany

Registered: 2014-04-24

Posts: 516

Re: Using Step(True) with MSSQL Twice Throws Exception

ty we used TSQLDBUniDACConnectionProperties instead and it feels to work.

---

Rad Studio 12.1 Santorini