I am trying to insert the result of a dbIsamQuery into an ElevateDB table,
and I get the following error:

"ElevateDB Error #506 Cannot lock the session manager"

What am I doing wrong im my delphi code below?
Given, an active DBISAmQuery with results:

I then activated EDBSession, created edbQuery and tried the following:

 myEdbQuery.SQL.Clear;
 myEdbQuery.SQL.Add('insert into myDB.DailySummary');
 myEdbQuery.SQL.Add('(varA, varB, varC, varD, varE, varF, varG)');
 myEdbQuery.SQL.Add('Values (');
 myEdbQuery.SQL.Add('XYZ');
 myEdbQuery.SQL.Add(')');

 while not myDbIsamQuery.eof do begin
   if myEdbQuery.Active then myEdbQuery.Active:=false;
   myEdbQuery.SQL.strings[3]:=
   quotedstr(myDbIsamQuery.fieldbyname('a').AsString)+', '
         +quotedstr(myDbIsamQuery.fieldbyname('b').AsString)+', '
         +myDbIsamQuery.fieldbyname('c').AsString+', date '
         +quotedstr(formatDateTime('YYYY-MM-DD',
           myDbIsamQuery.fieldbyname('d').AsdAteTime))+', '
         +quotedstr(myDbIsamQuery.fieldbyname('e').AsString)+', '
         +myDbIsamQuery.fieldbyname('f').AsString+', '
         +myDbIsamQuery.fieldbyname('g').AsString;
   try
         myEdbQuery.ExecSQL;
         application.ProcessMessages;
   except
         showmessage('Error :' +mydbisamquery.SQL.Text);
         break;
   end;//try except
   myDbiSamQuery.next;
 end;// while not myDbisamQuery.eof

In my previous post, I forgot to mention I am using

Elevate DB Version 2.03 Build 19.  and Delphi 7



"G Patena" <gpatena@achworks.com> wrote in message
news:6A6B6667-5DA2-4627-8B81-0FC7F21F9E21@news.elevatesoft.com...
>I am trying to insert the result of a dbIsamQuery into an ElevateDB table,
> and I get the following error:
>
> "ElevateDB Error #506 Cannot lock the session manager"
>
> What am I doing wrong im my delphi code below?
> Given, an active DBISAmQuery with results:
>
> I then activated EDBSession, created edbQuery and tried the following:
>
>  myEdbQuery.SQL.Clear;
>  myEdbQuery.SQL.Add('insert into myDB.DailySummary');
>  myEdbQuery.SQL.Add('(varA, varB, varC, varD, varE, varF, varG)');
>  myEdbQuery.SQL.Add('Values (');
>  myEdbQuery.SQL.Add('XYZ');
>  myEdbQuery.SQL.Add(')');
>
>  while not myDbIsamQuery.eof do begin
>    if myEdbQuery.Active then myEdbQuery.Active:=false;
>    myEdbQuery.SQL.strings[3]:=
>    quotedstr(myDbIsamQuery.fieldbyname('a').AsString)+', '
>          +quotedstr(myDbIsamQuery.fieldbyname('b').AsString)+', '
>          +myDbIsamQuery.fieldbyname('c').AsString+', date '
>          +quotedstr(formatDateTime('YYYY-MM-DD',
>            myDbIsamQuery.fieldbyname('d').AsdAteTime))+', '
>          +quotedstr(myDbIsamQuery.fieldbyname('e').AsString)+', '
>          +myDbIsamQuery.fieldbyname('f').AsString+', '
>          +myDbIsamQuery.fieldbyname('g').AsString;
>    try
>          myEdbQuery.ExecSQL;
>          application.ProcessMessages;
>    except
>          showmessage('Error :' +mydbisamquery.SQL.Text);
>          break;
>    end;//try except
>    myDbiSamQuery.next;
>  end;// while not myDbisamQuery.eof
>
>
>

More info:

I am actually feeding below module to several iterations of dbIsamQuery
results.  The first iteration works, but the succeeding iteration is where I
get the #506 error even though I have closed the prior ElevatedB insert
sesssion.

Again, this is Elevate DB Version 2.03 build 19.

Thanks a lot.
George



"G Patena" <gpatena@achworks.com> wrote in message
news:BC1480C7-A045-4674-AA96-00979B57DE35@news.elevatesoft.com...
> In my previous post, I forgot to mention I am using
>
> Elevate DB Version 2.03 Build 19.  and Delphi 7
>
>
>
> "G Patena" <gpatena@achworks.com> wrote in message
> news:6A6B6667-5DA2-4627-8B81-0FC7F21F9E21@news.elevatesoft.com...
>>I am trying to insert the result of a dbIsamQuery into an ElevateDB table,
>> and I get the following error:
>>
>> "ElevateDB Error #506 Cannot lock the session manager"
>>
>> What am I doing wrong im my delphi code below?
>> Given, an active DBISAmQuery with results:
>>
>> I then activated EDBSession, created edbQuery and tried the following:
>>
>>  myEdbQuery.SQL.Clear;
>>  myEdbQuery.SQL.Add('insert into myDB.DailySummary');
>>  myEdbQuery.SQL.Add('(varA, varB, varC, varD, varE, varF, varG)');
>>  myEdbQuery.SQL.Add('Values (');
>>  myEdbQuery.SQL.Add('XYZ');
>>  myEdbQuery.SQL.Add(')');
>>
>>  while not myDbIsamQuery.eof do begin
>>    if myEdbQuery.Active then myEdbQuery.Active:=false;
>>    myEdbQuery.SQL.strings[3]:=
>>    quotedstr(myDbIsamQuery.fieldbyname('a').AsString)+', '
>>          +quotedstr(myDbIsamQuery.fieldbyname('b').AsString)+', '
>>          +myDbIsamQuery.fieldbyname('c').AsString+', date '
>>          +quotedstr(formatDateTime('YYYY-MM-DD',
>>            myDbIsamQuery.fieldbyname('d').AsdAteTime))+', '
>>          +quotedstr(myDbIsamQuery.fieldbyname('e').AsString)+', '
>>          +myDbIsamQuery.fieldbyname('f').AsString+', '
>>          +myDbIsamQuery.fieldbyname('g').AsString;
>>    try
>>          myEdbQuery.ExecSQL;
>>          application.ProcessMessages;
>>    except
>>          showmessage('Error :' +mydbisamquery.SQL.Text);
>>          break;
>>    end;//try except
>>    myDbiSamQuery.next;
>>  end;// while not myDbisamQuery.eof
>>
>>
>>
>
>

Problem solved.  Upgraded to Version 2.03 Build 21.
Thanks,
George


"G Patena" <gpatena@achworks.com> wrote in message
news:7113121C-8345-49B5-A56C-93C108AC1399@news.elevatesoft.com...
> More info:
>
> I am actually feeding below module to several iterations of dbIsamQuery
> results.  The first iteration works, but the succeeding iteration is where
> I get the #506 error even though I have closed the prior ElevatedB insert
> sesssion.
>
> Again, this is Elevate DB Version 2.03 build 19.
>
> Thanks a lot.
> George
>
>
>
> "G Patena" <gpatena@achworks.com> wrote in message
> news:BC1480C7-A045-4674-AA96-00979B57DE35@news.elevatesoft.com...
>> In my previous post, I forgot to mention I am using
>>
>> Elevate DB Version 2.03 Build 19.  and Delphi 7
>>
>>
>>
>> "G Patena" <gpatena@achworks.com> wrote in message
>> news:6A6B6667-5DA2-4627-8B81-0FC7F21F9E21@news.elevatesoft.com...
>>>I am trying to insert the result of a dbIsamQuery into an ElevateDB
>>>table,
>>> and I get the following error:
>>>
>>> "ElevateDB Error #506 Cannot lock the session manager"
>>>
>>> What am I doing wrong im my delphi code below?
>>> Given, an active DBISAmQuery with results:
>>>
>>> I then activated EDBSession, created edbQuery and tried the following:
>>>
>>>  myEdbQuery.SQL.Clear;
>>>  myEdbQuery.SQL.Add('insert into myDB.DailySummary');
>>>  myEdbQuery.SQL.Add('(varA, varB, varC, varD, varE, varF, varG)');
>>>  myEdbQuery.SQL.Add('Values (');
>>>  myEdbQuery.SQL.Add('XYZ');
>>>  myEdbQuery.SQL.Add(')');
>>>
>>>  while not myDbIsamQuery.eof do begin
>>>    if myEdbQuery.Active then myEdbQuery.Active:=false;
>>>    myEdbQuery.SQL.strings[3]:=
>>>    quotedstr(myDbIsamQuery.fieldbyname('a').AsString)+', '
>>>          +quotedstr(myDbIsamQuery.fieldbyname('b').AsString)+', '
>>>          +myDbIsamQuery.fieldbyname('c').AsString+', date '
>>>          +quotedstr(formatDateTime('YYYY-MM-DD',
>>>            myDbIsamQuery.fieldbyname('d').AsdAteTime))+', '
>>>          +quotedstr(myDbIsamQuery.fieldbyname('e').AsString)+', '
>>>          +myDbIsamQuery.fieldbyname('f').AsString+', '
>>>          +myDbIsamQuery.fieldbyname('g').AsString;
>>>    try
>>>          myEdbQuery.ExecSQL;
>>>          application.ProcessMessages;
>>>    except
>>>          showmessage('Error :' +mydbisamquery.SQL.Text);
>>>          break;
>>>    end;//try except
>>>    myDbiSamQuery.next;
>>>  end;// while not myDbisamQuery.eof
>>>
>>>
>>>
>>
>>
>
>