At 10:37 a.m. 9/01/2014, homer@... wrote:

>I looked through previous topics, and although this seems like a common error, I didn't find one quite like my situation.

You realise this is a problem with your Delphi client code, don't you? And that this list is not a Delphi support list.

>I'm using a TIBCQuery in Delphi 2007.
>
>SQL.Text := 'Select * From AR ORDER BY DueDate, TransDate, PolNum;';
>
>The error occurs when I issue an Insert, or Close command.

Insert and Close are Delphi methods. So is Post which, in most data access components, should be called after the data for an Insert or Update operation has been assigned.

>Actual Error: Dynamic SQL Error SQL error code = -104 Unexpected end of command - line 1, column 30

This is a Firebird exception, that occurs when client code issues an incomplete SQL statement, which can come about from mishandling of the single-quoting of strings. You need an SQL monitoring tool or a Delphi debug tool to see what this invalid statement is.

>I have backed up and restored the database just in case it was some kind of corruption.

The error is occurring somewhere in your Delphi code. A statement being issued to the server is terminating early because the parser got to "something" in a statement that prevented it from making sense of the whole thing. A very common cause is mishandling of the quoting of strings, most especially apostrophes.

>The problem persisted after that. It is possible to display and edit data in an DevEx Express Grid. The problem only seems to exist when I try to Insert from Delphi.
>
>Actual Delphi Code (qAR is the TIBCQuery):
>
> With DM.qAR do
>
> begin
>
> iCarrierNo := FieldByName('CarrierNo').AsInteger;
>
> sCarrier := FieldByName('Carrier').AsString;
>
> sInvoiceNo := FieldByName('InvoiceNo').AsString;
>
>
>
>ShowMessage('1');
>
> Insert;
>
>ShowMessage('2');
>
> {Duplicate AR field values}
>
> FieldByName('CarrierNo').AsInteger := iCarrierNo;

// Protect against the occurrence of a name like O'Brien or Johnson's Removals:
sCarrier := QuotedStr(sCarrier);

> FieldByName('Carrier').AsString := sCarrier;

Try the same with sInvoiceNo if there is any possibility that the string contains apostrophes.

> FieldByName('InvoiceNo').AsString := sInvoiceNo ;
>
>and so on....
>
>
>
>It gets as far as the Showmessage('1'), but does not reach Showmessage('2').
>
>
>I hope I've given enough info for you to understand what's going on. I've tried what I know, which apparently isn't much.

Moderator Hat ON: This time it was sort-of OK to use this support list because you didn't seem to recognise that it wasn't a Firebird problem and you *did* get an exception from the database. Don't make it a habit to use this list for Delphi problems, though. I don't know where TIBCQuery comes from but most third-party data access components have their own support lists.


Helen Borrie, Support Consultant, IBPhoenix (Pacific)
Author of "The Firebird Book" and "The Firebird Book Second Edition"
http://www.firebird-books.net
__________________________________________________________________