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

* fcld-db: oracle: cosmetic

Browse Source 
git-svn-id: trunk@28224 -
This commit is contained in:
reiniero 2014-07-15 11:35:29 +00:00
parent 0ebd33180e
commit 0cb92962e3
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -335,7 +335,6 @@ procedure TOracleConnection.HandleError;
var errcode : sb4; var errcode : sb4;
buf : array[0..1023] of char; buf : array[0..1023] of char;
E : EOraDatabaseError; E : EOraDatabaseError;
begin begin
OCIErrorGet(FOciError,1,nil,errcode,@buf[0],1024,OCI_HTYPE_ERROR); OCIErrorGet(FOciError,1,nil,errcode,@buf[0],1024,OCI_HTYPE_ERROR);
@ -476,8 +475,8 @@ end;
function TOracleConnection.AllocateCursorHandle: TSQLCursor; function TOracleConnection.AllocateCursorHandle: TSQLCursor;
var Cursor : TOracleCursor; var
Cursor : TOracleCursor;
begin begin
Cursor:=TOracleCursor.Create; Cursor:=TOracleCursor.Create;
Result := cursor; Result := cursor;
@ -1102,8 +1101,8 @@ begin
begin begin
Name := trim(qry.fields[0].asstring); Name := trim(qry.fields[0].asstring);
Fields := trim(qry.Fields[1].asstring); Fields := trim(qry.Fields[1].asstring);
If UpperCase(qry.fields[2].asString)='P' then options := options + [ixPrimary]; If UpperCase(qry.fields[2].asstring)='P' then options := options + [ixPrimary];
If UpperCase(qry.fields[2].asString)='U' then options := options + [ixUnique]; If UpperCase(qry.fields[2].asstring)='U' then options := options + [ixUnique];
qry.next; qry.next;
while (name = qry.fields[0].asstring) and (not qry.eof) do while (name = qry.fields[0].asstring) and (not qry.eof) do
begin begin
@ -1117,8 +1116,8 @@ end;
function TOracleConnection.GetSchemaInfoSQL(SchemaType: TSchemaType; function TOracleConnection.GetSchemaInfoSQL(SchemaType: TSchemaType;
SchemaObjectName, SchemaPattern: string): string; SchemaObjectName, SchemaPattern: string): string;
var s : string; var
s : string;
begin begin
case SchemaType of case SchemaType of
stTables : s := 'SELECT '+ stTables : s := 'SELECT '+