請問一下各位高手: 我是使用oracle資料庫，該資料庫中存有數個程序，現在要用程式去選擇執行的程序，用combobox的元件去選擇，可是我現在只讀取到原先設定好的那一個程序，如何可以讓combobox的元件下拉時，產生資料庫存在的所有程序呢? 程式碼: combobox3.Itmes.add(AdoStoredProc1.procedureName); 耐的住被人磨，則會像鑽石一樣發光

procedure TForm1.Button1Click(Sender: TObject);
var
  NameField: TField;
  DataSet: TADODataSet;
begin
  DataSet := TADODataSet.Create(nil);
  DataSet.Connection := ADOConnection;
  try
    ADOConnection.openSchema(siProcedures, EmptyParam, EmptyParam, DataSet);
    NameField := DataSet.FieldByName('PROCEDURE_NAME');
    while not DataSet.EOF do
    begin
      ComboBox.Items.Add(NameField.AsString);
      DataSet.Next;
    end;
  finally
    DataSet.Free;
  end;
end;

不知道這是不是你要的答案呢 發表人 - Tony-Tang 於 2004/11/22 09:45:18

呃!!這位大大 不是喔~~procedname是元件的屬性而不是資料庫的欄位 我只是想用combobox的元件，去讀adoprocedure裡面的procedname的內容 耐的住被人磨，則會像鑽石一樣發光

Hi goodjimmy,    根據你的問題描述，Tony-Tang 所提供的程式碼應該可以達到你要的功能，你可以先行試試。    但是 TADOStoredProc 在選擇 ProcedureName 時，會連 Package、Function、Procedure 都會一起列出，因此你可以先確認連接資料庫的帳號有足夠權限，並更改為以下寫法

procedure TForm1.Button1Click(Sender: TObject);
var
  Query : TADOQuery;
begin
  Query := TADOQuery.Create(Self);
  try
  Query.Connection := ADOConnection1;
  ComboBox1.Clear;
  Query.Close;
  Query.SQL.Text := 'select owner || '   Quotedstr('.')   ' || object_name object_name from sys.all_objects where object_type = '   QuotedStr('PROCEDURE');
  Query.Open;
  While not Query.Eof do
    begin
      ComboBox1.Items.Add(Query.FieldByName('object_name').AsString);
      Query.Next;
    end;
  finally
    Query.Close;
    Query.Free;
  end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

喔!!!可以了 不好意思喔~~sorry 耐的住被人磨，則會像鑽石一樣發光