paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 00:11:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

- added tSqlConnection.ExecuteDirect

Browse Source 
git-svn-id: trunk@829 -
This commit is contained in:
joost 2005-08-09 12:43:49 +00:00
parent fa19bc05c8
commit 06300bc054
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fcl/db/sqldb/sqldb.pp
View File

@ -56,6 +56,9 @@ const
{ TSQLConnection }
type
{ TSQLConnection }
TSQLConnection = class (TDatabase)
private
FPassword : string;
@ -101,6 +104,8 @@ type
property Handle: Pointer read GetHandle;
destructor Destroy; override;
property ConnOptions: TConnOptions read FConnOptions;
procedure ExecuteDirect(SQL : String); overload; virtual;
procedure ExecuteDirect(SQL : String; Transaction : TSQLTransaction); overload; virtual;
published
property Password : string read FPassword write FPassword;
property Transaction : TSQLTransaction read FTransaction write SetTransaction;
@ -299,6 +304,41 @@ begin
inherited Destroy;
end;
Procedure TSQLConnection.ExecuteDirect(SQL: String);
begin
ExecuteDirect(SQL,FTransaction);
end;
Procedure TSQLConnection.ExecuteDirect(SQL: String; Transaction : TSQLTransaction);
var Cursor : TSQLCursor;
begin
if not assigned(Transaction) then
DatabaseError(SErrTransactionnSet);
if not Connected then Open;
if not Transaction.Active then Transaction.StartTransaction;
try
Cursor := AllocateCursorHandle;
SQL := TrimRight(SQL);
if SQL = '' then
DatabaseError(SErrNoStatement);
Cursor.FStatementType := stNone;
PrepareStatement(cursor,Transaction,SQL,Nil);
execute(cursor,Transaction, Nil);
CloseStatement(Cursor);
finally;
DeAllocateCursorHandle(Cursor);
end;
end;
function TSQLConnection.GetAsSQLText(Field : TField) : string;
begin