| 495 |
|
sqltQuotedString: |
| 496 |
|
stmt += '''' + SQLSafeString(TokenText) + ''''; {exists some DECLARE with cursor having SELECT ...\... rc.rdb$constraint_type = 'PRIMARY KEY');} |
| 497 |
|
|
| 498 |
< |
sqltSemiColon: |
| 498 |
> |
sqltIdentifierInDoubleQuotes: |
| 499 |
> |
stmt += '"' + TokenText + '"'; |
| 500 |
> |
|
| 501 |
> |
sqltSemiColon: |
| 502 |
|
begin |
| 503 |
|
State := stInStmt; |
| 504 |
|
stmt += TokenText; |
| 968 |
|
Exit; |
| 969 |
|
end; |
| 970 |
|
|
| 971 |
+ |
{process Set Time Zone} |
| 972 |
+ |
RegexObj.Expression := '^ *SET +TIME +ZONE +(LOCAL|''[A-Za-z0-9/]+'') *(\' + Terminator + '|)'; |
| 973 |
+ |
if RegexObj.Exec(stmt) then |
| 974 |
+ |
begin |
| 975 |
+ |
{pass through} |
| 976 |
+ |
Database.Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_concurrency],stmt); |
| 977 |
+ |
Exit; |
| 978 |
+ |
end; |
| 979 |
|
{Process Remaining Set statements} |
| 980 |
|
RegexObj.Expression := '^ *SET +([A-Z]+)( +[A-Z0-9]+|) *(\' + Terminator + '|)'; |
| 981 |
|
if RegexObj.Exec(stmt) then |
