大大們好.. 請問一件事...我能力未及的問題... query 的SQL 是 關聯很多tables 跟欄位 今天想由 關聯欄位中.取出 tables name 出來 放置在 combobox1.items 中 tables_name.fielsName 例如.. 訂單主檔.訂單編號 客戶主檔.客戶編號 .. .. 可以取的出來嗎... 謝謝

Hi, 請使用 TADOConnection 或 TDatabase 的 GetTableNames function 即可!

degr 你好 參考以下連結，應該是你要的 http://delphi.ktop.com.tw/topic.php?topic_id=32752 但唯一的不幸是，除了自行分析SQL指令之外，目前好像沒有解決方案，至於要自行解析SQL指令，是滿麻煩的事，以下幾個元件有此功能但都不僅理想，你可參考看看或在本討論區下SQL Parser搜尋 http://delphi.ktop.com.tw/topic.php?topic_id=17472 http://delphi.ktop.com.tw/topic.php?topic_id=17469 http://delphi.ktop.com.tw/topic.php?topic_id=17629

degr 你好:    曾經改寫 DBCommon 的 GetTableNameFromSQL function, 參考看看.    

uses DBCommon;    procedure GetSQLTableNames(const SQL:string;var SQLTableList: TStrings);
var
  TableStart,FSelect: boolean;
  Msg,TableName: string;
  CurSection: TSQLToken;
  pMsg: PChar;
begin
  Msg := StringReplace(SQL, #10#10, #32, [rfReplaceAll]);
  Msg := StringReplace(Msg, #13#10, #32, [rfReplaceAll]);
  FSelect := (pos('select'#32,ansilowercase(Msg))=1) and
             (pos('into'#32,ansilowercase(Msg))=0);
  SQLTableList.Clear;
  if FSelect then
  begin
     pMsg := PChar(Msg);
     CurSection := stUnknown;
     TableStart := False;
     while (CurSection<>stEnd) do begin
       CurSection := NextSQLToken(pMsg , TableName, CurSection);
       if (CurSection=stFrom) then TableStart := True;
       if (CurSection in [stWhere,stUnion]) then TableStart := False;
       if (TableStart) and (CurSection in [stTableName,stFieldName]) and
          (SQLTableList.IndexOf(TableName)=-1)  then
         SQLTableList.Add(TableName);
     end;
  end;
end;