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

* TSQLStatement.RowsAffected

Browse Source 
git-svn-id: trunk@24703 -
This commit is contained in:
michael 2013-06-01 10:56:24 +00:00
parent 5042e1060f
commit abe86dea9f
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -255,6 +255,7 @@ type
Procedure Execute;
Procedure Unprepare;
function ParamByName(Const AParamName : String) : TParam;
function RowsAffected: TRowsCount; virtual;
Property Prepared : boolean read GetPrepared;
end;
@ -828,6 +829,14 @@ begin
Result:=FParams.ParamByName(AParamName);
end;
function TCustomSQLStatement.RowsAffected: TRowsCount;
begin
Result := -1;
if not Assigned(Database) then
Exit;
Result:=Database.RowsAffected(FCursor);
end;
{ TSQLConnection }
function TSQLConnection.StrToStatementType(s : string) : TStatementType;