428 |
|
|
429 |
|
resourcestring |
430 |
|
sTerminatorUnknownState = 'Statement Terminator in unexpected state (%d)'; |
431 |
– |
sUnterminatedString = 'Unterminated string'; |
432 |
– |
sUnknownSymbol = 'Unknown Symbol %d'; |
431 |
|
sNoSelectSQL = 'Select SQL Statements are not supported'; |
432 |
|
sStackUnderflow = 'Stack Underflow'; |
433 |
|
sNoParamQueries = 'Parameterised Queries are not supported'; |
434 |
|
sStackOverFlow = 'Stack Overflow'; |
435 |
|
sResolveQueryParam = 'Resolving Query Parameter: %s'; |
438 |
– |
sNoCommit = 'Commit not allowed here'; |
439 |
– |
sNoReconnect = 'Reconnect not allowed here'; |
436 |
|
sXMLStackUnderflow = 'XML Stack Underflow'; |
437 |
|
sInvalidEndTag = 'XML End Tag Mismatch - %s'; |
438 |
|
sXMLStackOverFlow = 'XML Stack Overflow'; |
577 |
|
procedure TCustomIBXScript.ExecSQL(stmt: string); |
578 |
|
var DDL: boolean; |
579 |
|
I: integer; |
584 |
– |
stats: TPerfCounters; |
580 |
|
begin |
581 |
|
Database.Connected := true; |
582 |
|
FISQL.SQL.Text := stmt; |