請問各位前輩!

DELPHI如何下命令使用MSSQL 2005的EXEC SP_TABLES,
並可以取出所有TABLE名稱呢?
我目前使用TSQLQuery元件並不行....

------
123456

以Delph6 使用 TADOConnection + TADOStoredProc + TDataSource + TDBComboBox
可取得資料
所以應該要使用其它對應的元件(maybe :TSQLStoredProc?)

===================引 用 ktopbrad 文 章===================
請問各位前輩!

DELPHI如何下命令使用MSSQL 2005的EXEC SP_TABLES,
並可以取出所有TABLE名稱呢?
我目前使用TSQLQuery元件並不行....

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

eaglewolf 前輩!!

我不太會用TSQLStoredProc,
以下是我簡短程式:try
SQLStoreproc.Active:=false;
SQLStoreproc.CommandText:=SQLStr;
SQLStoreproc.Active:=true;
Result:=SQLStoreproc;
except
on E:Exception do
Result:=nil;
end;

請問是否我用錯方法?

------
123456

請參考:
[code delphi]

procedure TForm1.Button1Click(Sender: TObject);
begin
comboBox1.Items.Clear;
comboBox1.Items.AddStrings(GetTableNames('master'));
end;
function TForm1.GetTableNames(strDBName: String): TStrings;
var
sl:TStrings;
begin
sl:=TStringList.Create;
SQLStoreproc.ConnectionString :='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=IT\SQLEXPRESS;Initial Catalog=' strDBName;
SQLStoreproc.ProcedureName := 'sp_tables';
SQLStoreproc.Active := True;
while not SQLStoreproc.eof do
begin
sl.Add(SQLStoreproc.FieldByName('Table_Name').AsString);
SQLStoreproc.Next;
end;
SQLStoreproc.Active := False;
Result := sl;
end;
[/code]

===================引 用 ktopbrad 文 章===================
eaglewolf 前輩!!

我不太會用TSQLStoredProc,
以下是我簡短程式:try
SQLStoreproc.Active:=false;
SQLStoreproc.CommandText:=SQLStr;
SQLStoreproc.Active:=true;
Result:=SQLStoreproc;
except
on E:Exception do
Result:=nil;
end;

請問是否我用錯方法?

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

謝謝eaglewolf 前輩

試過,可以了...
不過我找不到SQLStoreprocProcedureName := 'sp_tables';
裡的方法...
所以我改用SQLStoredProc1.StoredProcName:='sp_tables';
也一樣可以使用了....

------
123456