請教各位前輩﹒ Table和ADOTable等元件可以通過其TableName取得目前使用中的資料表名稱﹐那Query和ADOQuery利用SQL語法取得資料表的元件該如何取得目前使用中的資料表名稱呢﹖ 感謝賜教﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

從 SQL.Text 字串中取出 --- --<-<-<@

由於 tquery 會使用 sql command, 有可能同時使用多個 table 或是 view, 所以並不像 ttable 這種單一 table 存取的 dataset, 所以最好的方法如 hagar 兄的答覆, 就是直接 parse sql command!!

謝謝兩位前輩的指教﹒    只是﹐該如何從SQL中取出資料表名稱呢﹖ 感謝﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

小弟能想到的 1.沒 Where 條件式的, 判斷 ' from ' 這個字串後的字串(前後有加半形空白') 2.有 Where 條件式的, 判斷 ' from ' 與 ' where ' 兩字串字間的字串 3.以 Pos 函式搭配 UpperCase/LowerCase 來判斷 4.... --- --<-<-<@

使用ADOConnection元件方式，取得資料表列表 這是取得全部資料表方式，僅共參考～

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
 ADOConnection1.GetTableNames(ListBox1.Items,true);
end;

關於「ADOQuery取得目前使用中的資料表名稱」 ..建議還是用SQL語句過濾出來比較好！ 網海無涯，學無止境! 發表人 - qoo1234 於 2003/08/10 18:54:07

謝謝各位前輩﹒    可是......小弟還是沒有試出來 能否勞煩前輩們抽空舉個例子呢﹖ 比如說目前的資料庫中有[客戶][訂單]兩個資料表﹐在一個>> 那該用何程式來判斷目前使用的資料表是[訂單]呢﹖ 再次感謝﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

procedure TForm1.Button1Click(Sender: TObject);
var TmpStr: string;
    iPos: Integer;
begin
 TmpStr:='Select * From 訂單';//假設為SQL語句
 iPos:=Pos('Select * From ',TmpStr);//空格要注意喔～
 edit1.Text:=Copy(TmpStr, iPos 14, Length(TmpStr)-iPos);//14為'Select * From '長度
end;
 

網海無涯，學無止境! 發表人 - qoo1234 於 2003/08/11 02:47:22

引言:

procedure TForm1.Button1Click(Sender: TObject);
var TmpStr: string;
    iPos: Integer;
begin
 TmpStr:='Select * From 訂單';//假設為SQL語句
 iPos:=Pos('Select * From ',TmpStr);//空格要注意喔～
 edit1.Text:=Copy(TmpStr, iPos 14, Length(TmpStr)-iPos);//14為'Select * From '長度
end;
 

謝謝Qoo1234前輩﹒ 那如果Select的語句中在From Table之后還有where的話﹐該如何判斷呢﹖ 謝謝﹗ 網海無涯，學無止境! 發表人 - qoo1234 於 2003/08/11 02:47:22

努力,相信會獲得美麗! 忻晟

取得（Select * From）與Where 中間字串

procedure TForm1.Button1Click(Sender: TObject);
var TmpStr,TmpStr2: string;
    iPos: Integer;
begin
 TmpStr:='Select * From 訂單 where a1 a2';//假設為SQL語句
 iPos:=Pos('Select * From ',TmpStr);//空格要注意喔～
 TmpStr2:=Copy(TmpStr, iPos 14, Length(TmpStr)-iPos);//14為'Select * From '長度
 if Pos(' ',TmpStr2)>=0 then begin
  edit1.text:=Copy(TmpStr2,1,pos(' ',TmpStr2)-1);
 end;
end;
 

網海無涯，學無止境!

引言: 取得（Select * From）與Where 中間字串

procedure TForm1.Button1Click(Sender: TObject);
var TmpStr,TmpStr2: string;
    iPos: Integer;
begin
 TmpStr:='Select * From 訂單 where a1 a2';//假設為SQL語句
 iPos:=Pos('Select * From ',TmpStr);//空格要注意喔～
 TmpStr2:=Copy(TmpStr, iPos 14, Length(TmpStr)-iPos);//14為'Select * From '長度
 if Pos(' ',TmpStr2)>=0 then begin
  edit1.text:=Copy(TmpStr2,1,pos(' ',TmpStr2)-1);
 end;
end;
 

網海無涯，學無止境!

要滴就是這個﹐感謝Qoo1234前輩了﹒ 謝謝﹗ 努力,相信會獲得美麗! 忻晟

再請教Qoo1234前輩﹒    是否可以用[ADOQuery1.SQL.Text]來代替下列語法中的紅色部分﹖若可行的話﹐后兩行的程式碼該如何修改﹖感謝﹗ TmpStr:='Select * From 訂單'; iPos:=Pos('Select * From ',TmpStr); edit1.Text:=Copy(TmpStr, iPos 14, Length(TmpStr)-iPos); 感謝﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

uses DBCommon; GetTableNameFromSQL(ADOQuery1.SQL.Text);

引言: 再請教Qoo1234前輩﹒ 是否可以用[ADOQuery1.SQL.Text]來代替下列語法中的紅色部分﹖若可行的話﹐后兩行的程式碼該如何修改﹖感謝﹗ TmpStr:='Select * From 訂單'; iPos:=Pos('Select * From ',TmpStr); edit1.Text:=Copy(TmpStr, iPos 14, Length(TmpStr)-iPos); 感謝﹗ 努力,相信會獲得美麗! 忻晟

TmpStr:=ADOQuery1.SQL.Text; 可以阿～ < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，學無止境!

謝謝Qoo1234前輩﹒ 同時也感謝Rain前輩﹐小弟將兩位前輩的方法都試了一下﹐相比之外﹐Rain前輩的方法比較簡單﹐也比較适合小弟的需要﹐故給分Rain前輩﹐還望Qoo1234前輩多多見諒﹗ 再次感謝﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

引言: 謝謝Qoo1234前輩﹒ 同時也感謝Rain前輩﹐小弟將兩位前輩的方法都試了一下﹐相比之外﹐Rain前輩的方法比較簡單﹐也比較适合小弟的需要﹐故給分Rain前輩﹐還望Qoo1234前輩多多見諒﹗ 再次感謝﹗ 努力,相信會獲得美麗! 忻晟

cashxin2002大大，你太客氣了! 問題解決就好～ < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，學無止境!