★★★★★★★★★★ GetTableNames不错，可是他提的东东太多了，我只想要Table名, 不要view名,怎么办？★★★★★★★★★★

[gototop99]

如何用组件区分表名和视图名？？？？

[gototop99]

不知道用 BDE 可不可以？？？？？

[firetoucher]

在sql server 中你可以使用sql语句
select name from sysobjects where xtype = 'U'
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

[gototop99]

是不是要根据不同的数据库来判断啊？？？？？

[firetoucher]

不是，因为这条语句其他数据库不支持：（
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

[ihihonline]

procedure TADOConnection.GetTableNames(List: TStrings;
SystemTables: Boolean);
var
TypeField,
NameField: TField;
TableType: string;
DataSet: TADODataSet;
begin
CheckActive;
DataSet := TADODataSet.Create(nil);
try
OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
TypeField := DataSet.FieldByName('TABLE_TYPE'); { do not localize }
NameField := DataSet.FieldByName('TABLE_NAME'); { do not localize }
List.BeginUpdate;
try
List.Clear;
while not DataSet.EOF do
begin
TableType := TypeField.AsString;
if (TableType = 'TABLE') or (TableType = 'VIEW') or { do not localize }
(SystemTables and (TableType = 'SYSTEM TABLE')) then { do not localize }
List.Add(NameField.AsString);
DataSet.Next;
end;
finally
List.EndUpdate;
end;
finally
DataSet.Free;
end;
end;

看一下，这儿是源码。
其中：
(TableType = 'TABLE') or (TableType = 'VIEW')就决定了它会找View,你可以自己写一个方法去实现，只要去掉TableType = 'VIEW' 就可以了。

----------------
沉沦中..........

[gototop99]

先谢谢 firetoucher(风焱)，

那么sybase数据库怎么办呢？？？

[tpmao]

同意，还是SQLSERVER里方便！！！！！

select name from sysobjects where xtype = 'U'

[gototop99]

ihihonline(小小->沉沦中..........) 谢谢，

我正在看源码，不知道用 BDE 可不可以？？？？？

[gototop99]

uupp!!!