paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed SQLParser in a function which returns the obtained statement-type instead of setting the statementtype of the cursor directly, second part of r12512

Browse Source 
git-svn-id: trunk@12513 -
This commit is contained in:
joost 2009-01-05 13:01:44 +00:00
parent d6903a4bb6
commit 11015eb6ad
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -222,7 +222,7 @@ type
procedure OnChangeSQL(Sender : TObject);
procedure OnChangeModifySQL(Sender : TObject);
procedure Execute;
Procedure SQLParser(var ASQL : string);
Function SQLParser(var ASQL : string) : TStatementType;
procedure ApplyFilter;
Function AddFilter(SQLstr : string) : string;
protected
@ -898,8 +898,9 @@ end;
procedure TCustomSQLQuery.Prepare;
var
db : tsqlconnection;
sqltr : tsqltransaction;
db : tsqlconnection;
sqltr : tsqltransaction;
StmType: TStatementType;
begin
if not IsPrepared then
@ -919,7 +920,7 @@ begin
if FSQLBuf = '' then
DatabaseError(SErrNoStatement);
SQLParser(FSQLBuf);
StmType:=SQLParser(FSQLBuf);
// There may no error occur between the allocation of the cursor and
// the preparation of the cursor. Because internalclose (which is called in
@ -929,7 +930,7 @@ begin
// unpredictable results.
if not assigned(fcursor) then
FCursor := Db.AllocateCursorHandle;
FCursor.FStatementType:=StmType;
if ServerFiltered then
Db.PrepareStatement(Fcursor,sqltr,AddFilter(FSQLBuf),FParams)
else
@ -1027,7 +1028,7 @@ begin
end;
end;
procedure TCustomSQLQuery.SQLParser(var ASQL : string);
function TCustomSQLQuery.SQLParser(var ASQL : string) : TStatementType;
type TParsePart = (ppStart,ppSelect,ppWhere,ppFrom,ppOrder,ppComment,ppGroup,ppBogus);
@ -1089,8 +1090,8 @@ begin
case ParsePart of
ppStart : begin
FCursor.FStatementType := TSQLConnection(Database).StrToStatementType(s);
if FCursor.FStatementType = stSelect then ParsePart := ppSelect
Result := TSQLConnection(Database).StrToStatementType(s);
if Result = stSelect then ParsePart := ppSelect
else break;
if not FParseSQL then break;
PStatementPart := CurrentP;
@ -1126,7 +1127,7 @@ begin
ParsePart := ppBogus;
StrLength := CurrentP-PStatementPart;
end;
if FCursor.FStatementType = stSelect then
if Result = stSelect then
begin
Setlength(FFromPart,StrLength);
Move(PStatementPart^,FFromPart[1],(StrLength));