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

- Added support for SetSchemaInfo

Browse Source 
- Uses the aliasname as the displayname
This commit is contained in:
joost 2005-02-07 11:24:25 +00:00
parent e2d68a7e4f
commit 70f562cec7
1 changed files with 73 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
fcl/db/sqldb/interbase/ibconnection.pp
View File

@ -78,7 +78,7 @@ type
procedure CommitRetaining(trans : TSQLHandle); override;
procedure RollBackRetaining(trans : TSQLHandle); override;
procedure UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string); override;
function GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string; override;
published
property Dialect : integer read FDialect write FDialect;
property DatabaseName;
@ -478,6 +478,7 @@ var
lenset : boolean;
TransLen : word;
TransType : TFieldType;
FD : TFieldDef;
begin
{$R-}
@ -486,13 +487,11 @@ begin
for x := 0 to SQLDA^.SQLD - 1 do
begin
TranslateFldType(SQLDA^.SQLVar[x].SQLType, SQLDA^.SQLVar[x].SQLLen, SQLDA^.SQLVar[x].SQLScale,
lenset, TransType, TransLen);
if TransType = ftBCD then
TFieldDef.Create(FieldDefs, SQLDA^.SQLVar[x].SQLName, TransType,
TransLen, False, (x + 1)).precision := SQLDA^.SQLVar[x].SQLLen
else
TFieldDef.Create(FieldDefs, SQLDA^.SQLVar[x].SQLName, TransType,
TransLen, False, (x + 1));
lenset, TransType, TransLen);
FD := TFieldDef.Create(FieldDefs, SQLDA^.SQLVar[x].SQLName, TransType,
TransLen, False, (x + 1));
if TransType = ftBCD then FD.precision := SQLDA^.SQLVar[x].SQLLen;
FD.DisplayName := SQLDA^.SQLVar[x].AliasName;
end;
end;
{$R+}
@ -531,9 +530,9 @@ begin
begin
{$R-}
for x := 0 to SQLDA^.SQLD - 1 do
if SQLDA^.SQLVar[x].SQLName = FieldDef.Name then break;
if SQLDA^.SQLVar[x].AliasName = FieldDef.Name then break;
if SQLDA^.SQLVar[x].SQLName <> FieldDef.Name then
if SQLDA^.SQLVar[x].AliasName <> FieldDef.Name then
DatabaseErrorFmt(SFieldNotFound,[FieldDef.Name],self);
if SQLDA^.SQLVar[x].SQLInd^ = -1 then
@ -617,6 +616,70 @@ begin
Move(PTime, Buffer^, SizeOf(PTime));
end;
function TIBConnection.GetSchemaInfoSQL(SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string) : string;
var s : string;
begin
case SchemaType of
stTables : s := 'select '+
'rdb$relation_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
''''' as schema_name, '+
'rdb$relation_name as table_name, '+
'0 as table_type '+
'from '+
'rdb$relations '+
'where '+
'(rdb$system_flag = 0 or rdb$system_flag is null)'; // and rdb$view_blr is null
stSysTables : s := 'select '+
'rdb$relation_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
''''' as schema_name, '+
'rdb$relation_name as table_name, '+
'0 as table_type '+
'from '+
'rdb$relations '+
'where '+
'(rdb$system_flag > 0)'; // and rdb$view_blr is null
stProcedures : s := 'select '+
'rdb$procedure_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
''''' as schema_name, '+
'rdb$procedure_name as proc_name, '+
'0 as proc_type, '+
'rdb$procedure_inputs as in_params, '+
'rdb$procedure_outputs as out_params '+
'from '+
'rdb$procedures '+
'WHERE '+
'(rdb$system_flag = 0 or rdb$system_flag is null)';
stColumns : s := 'select '+
'rdb$procedure_id as recno, '+
'''' + DatabaseName + ''' as catalog_name, '+
''''' as schema_name, '+
'rdb$relation_name as table_name, '+
'rdb$field_name as column name, '+
'rdb$field_position as column_position, '+
'0 as column_type, '+
'0 as column_datatype, '+
''''' as column_typename, '+
'0 as column_subtype, '+
'0 as column_precision, '+
'0 as column_scale, '+
'0 as column_length, '+
'0 as column_nullable '+
'from '+
'rdb$relation_fields '+
'WHERE '+
'(rdb$system_flag = 0 or rdb$system_flag is null)';
else
DatabaseError(SMetadataUnavailable)
end; {case}
result := s;
end;
procedure TIBConnection.UpdateIndexDefs(var IndexDefs : TIndexDefs;TableName : string);
var qry : TSQLQuery;