[Delphi7] Compile problem "GetSequences"

Forum related to version 6.5.1 (alpha) and 6.6.x (beta) of ZeosLib's DBOs

Moderators: gto, cipto_kh, EgonHugeist

Post Reply
User avatar
apiove
Fresh Boarder
Fresh Boarder
Posts: 18
Joined: 04.01.2006, 15:03

[Delphi7] Compile problem "GetSequences"

Post by apiove »

Hi,

I've decied to migrate to zeoslib-6.5.1 for mysql5.0 support...

1. I'have downloaded:
ZEOSLIB - 20061003 Testing branch(rev 102) (zip 12.8MB)
2. I've extracted all files to:
C:\Programmi\Borland\Delphi7\Lib\Zeoslib-6.5.1-beta\
3. I've added to Delphi 7 libray path:
C:\Programmi\Borland\Delphi7\Lib\Zeoslib-6.5.1-beta\packages\delphi7\build
and
C:\Programmi\Borland\Delphi7\Lib\Zeoslib-6.5.1-beta\build
4. From Project Menu i've choosen "Compile all projects"

but I receive this error from the compiler:

[Error] ZPropertyEditor.pas(434): Undeclared identifier: 'GetSequences'
[Error] ZPropertyEditor.pas(447): Undeclared identifier: 'GetSequences'
[Fatal Error] ZComponentDesign.dpk(35): Could not compile used unit '..\..\src\component\ZPropertyEditor.pas'

Any suggest or ideas?

Code: Select all

{**
  Gets a selected string value.
  @return a selected string value.
}
procedure TZSequenceNamePropertyEditor.GetValueList(List: TStrings);
var
  Connection: TZConnection;
  Metadata: IZDatabaseMetadata;
  ResultSet: IZResultSet;
{$IFDEF USE_METADATA}
  Catalog, Schema: string;
{$ENDIF}
begin
  Connection := GetObjectProp(GetComponent(0), 'Connection') as TZConnection;
  if Assigned(Connection) and Connection.Connected then
  begin
{$IFDEF USE_METADATA}
    if GetComponent(0) is TZSqlMetadata then
    begin
      Catalog := GetStrProp(GetComponent(0), 'Catalog');
      Schema := GetStrProp(GetComponent(0), 'Schema');
{$IFDEF SHOW_WARNING}
      if not (IsEmpty(Catalog) and IsEmpty(Schema)) or
       (MessageDlg(SPropertyQuery + CRLF + SPropertySequences + CRLF +
        SPropertyExecute, mtWarning, [mbYes,mbNo], 0) = mrYes) then
{$ENDIF}
      try
        Metadata := Connection.DbcConnection.GetMetadata;
        // Look for the Procedures of the defined Catalog and Schema
        ResultSet := Metadata.GetSequences(Catalog, Schema, '');
[error]+>>---------- Here >^^^^^^
        while ResultSet.Next do
          List.Add(ResultSet.GetStringByName('SEQUENCE_NAME'));
      finally
        ResultSet.Close;
      end;
    end
    else
{$ENDIF}
    begin
      try
        Metadata := Connection.DbcConnection.GetMetadata;
        // Look for the Procedures
        ResultSet := Metadata.GetSequences(Connection.Catalog, '', '');
[error]+>>----- And Here >^^^^^^
        while ResultSet.Next do
          List.Add(ResultSet.GetStringByName('SEQUENCE_NAME'));
      finally
        ResultSet.Close;
      end;
    end;
  end;
end;
Thanks.
Andrea.
Last edited by apiove on 12.10.2006, 11:57, edited 1 time in total.
malor
Fresh Boarder
Fresh Boarder
Posts: 1
Joined: 05.07.2007, 13:24

Re: [Delphi7] Compile problem "GetSequences"

Post by malor »

I installed ZComponentDesign.dpk from ZEOSDBO-6.6.1-beta and got the messages:
[Error] ZPropertyEditor.pas(452): Undeclared identifier: 'GetSequences'
[Error] ZPropertyEditor.pas(465): Undeclared identifier: 'GetSequences'
[Fatal Error] ZComponentDesign.dpk(37): Could not compile used unit '..\..\src\component\ZPropertyEditor.pas'


Page 452:
ResultSet := Metadata.GetSequences(Catalog, Schema, '');
Page 465:
ResultSet := Metadata.GetSequences(Connection.Catalog, '', '');

Any ideas?

Delphi 7, WinXP_sp2
Post Reply