asked on

delphi and sql problem

I have this:

try
Query1.Close;
Query1.SQL.Clear;
Buf:= 'insert into q_term (quote_no,version,alternate,cust_alt,id,idx,termtext,type,sortorder)'+
' select ' + intToStr(max_no)+',version,alternate,cust_alt,id,idx,termtext,type,sortorder from '+
'q_term where quote_no=' +IntToStr(ThisQuotation.quote_no)+ ' and alternate=' + intToStr(ThisQuotation.alternate)
+ ' and version=' + intToStr(ThisQuotation.version);
Query1.SQL.Add(Buf);
Query1.Open;
except on E: Exception do
begin
Screen.Cursor:= crDefault;
Application.MessageBox(PChar(E.Message), PChar(Application.Title), mb_OK+mb_IconStop);
Exit;
end;
end;

And I get the error message:

E.Database Error with message

Query1: CommandText does not return a result set.

When I toggle to inspect mode and cut the sql query from the inspector into the queryAnalyzer the sql query does not give any errors.

What is wrong in my code?

ASKER CERTIFIED SOLUTION

Mohammed Nasman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

fva

Your query is an insert and it is probably correct since it does not present any error when run separately. However, the Open method of TQuery expects that the SQL statement is a select and that it will return rows. Insert does not return rows.
In order to solve that you will have to use ExecSQL instead of Open.

Good luck,
F.

fva

Oops, mnasman was faster.
F.

pucko

ASKER

Thnks