FireDAC TFDConnection을 사용하여 테이블, 필드 및 필드 정의를 반복하는 방법

Question

저는 SQLite 및 FireDAC을 함께 사용하도록 교육하고 있습니다. SQLite 파일에서 하나의 테이블을 표시하는 아주 간단한 응용 프로그램을 작성한 후에 나는 배우기에 도움이되는 간단한 뷰어 '프레임'을 만들 것이라고 결심했습니다. 엔지니어링 사용을 위해 내 응용 프로그램에 넣을 디버깅 도구를 (결국) 제공하십시오.

그래서 간단한 TTreeView를 사용했으며 '데이터베이스'(카탈로그), '테이블', '필드 이름'및 '필드 유형'의 계층 구조로 채우고 싶습니다. 지금까지 (TFDConnection.Getxxxxx를 사용하여) 카탈로그, 테이블 및 필드를 나열하는 것이 현저하게 쉬웠지만 필드 정의를 얻는 방법을 더 깊이 알 수는 없습니다. 이것은 TFDC 연결에서 할 수 있습니까? 아니면 임시 쿼리를 열어야합니까? 브라이언, '// xxxxxxxxxxxxxxxxxxx'로

procedure TForm1.Button1Click(Sender: TObject); 

    procedure DatabaseToTreeView(AConnection : TFDConnection; ATreeView : TTreeView); 

    procedure ProcessConnection; 

     procedure ProcessCatalogueName(const ACatalogueName : string; ARoot : TTreeNode); 

     procedure ProcessTableName(const ATableName : string; ARoot : TTreeNode); 
     var 
      List : TStrings; 
      {Node : TTreeNode;} 
      I : integer; 
     begin 
      List := TStringList.Create; 
      try 
      AConnection.GetFieldNames(ACatalogueName, '', ATableName, '', List); 
      for I := 0 to List.Count-1 do 
       begin 
       {Node := }ATreeView.Items.AddChild(ARoot, List[I]); 
       // xxxxxxxxxxxxxxxxxxx 
       end; 
      finally 
      List.Free; 
      end; 
     end; 

     var 
     List : TStrings; 
     Node : TTreeNode; 
     I : integer; 
     begin 
     List := TStringList.Create; 
     try 
      AConnection.GetTableNames(ACatalogueName, '', '', List); 
      for I := 0 to List.Count-1 do 
      begin 
      Node := ATreeView.Items.AddChild(ARoot, List[I]); 
      ProcessTableName(List[I], Node); 
      end; 
     finally 
      List.Free; 
     end; 
     end; 


    var 
     List : TStrings; 
     Node : TTreeNode; 
     I : integer; 
    begin 
     List := TStringList.Create; 
     try 
      AConnection.GetCatalogNames('', List); 

      if List.Count = 0 then 
      ProcessCatalogueName('', nil) 
      else 
      for I := 0 to List.Count-1 do 
       begin 
       Node := ATreeView.Items.AddChild(nil, List[I]); 
       ProcessCatalogueName(List[I], Node); 
       end; 
     finally 
      List.Free; 
     end; 
    end; 


    begin 
    ATreeView.Items.Clear; 
    ATreeView.Items.BeginUpdate; 
    try 
     ProcessConnection; 
    finally 
     ATreeView.Items.EndUpdate; 
    end; 
    end; 

begin 
    FDConnection1.Open; 
    FDQuery1.Active := true; 

    DatabaseToTreeView(FDConnection1, TreeView1); 

end; 

많은 감사를 표시 할 때

내 기존의 코드는 다음과 같습니다 내 '필드 유형은'더 중첩 루프 될 것이다.

Answer 1

TFDTable을 인스턴스화하고 AConnection에 연결 한 다음 FieldDefs.Update를 호출하면 해결할 수 있습니다. 이렇게하면 데이터를 가져 오지 않습니다.

Answer 2

데이터가없는 테이블 스키마를 가져 오기 위해 거짓 조건이있는 임시 쿼리를 사용하는 대신 (예 : "select * from tablename where 1 = 0"- 사용자가 의도 한 것으로 가정 함) 데이터베이스에 따라 테이블 정보를 얻기 위해 쿼리를 사용할 수도 있습니다. 처럼;

MS SQL Server의

PRAGMA table_info(tablename) 

: MySQL을 들어

: SQLite는 대한

show columns from tablename; 

내가 PostgreSQL을 또한 이러한 기능을 가지고 있다고 생각

select column_name, data_type, character_maximum_length from INFORMATION_SCHEMA.COLUMNS where table_name = 'tablename'; 

그러나 나는이 해달라고 이 시점에서 pgsql 설치가 편리합니다.

Answer 3

TFDMetaInfoQuery 구성 요소를 사용하십시오. 메타 데이터 정보를 얻기 위해 통합되어 있으므로 모든 종류의 지원되는 DBMS에서 사용할 수 있습니다. 요청 된 MetaInfoKind 및 주어진 DBMS 오브젝트 설명으로 metadata resultsets을 채 웁니다.