編程環境:VB6.0+MSSQL2000 如何得到數據庫中現有的表?

Question

用dao还是ado，dao中可用database对象的tabeldefs集合和tabeldef对象访问；
ado中可用connection对象的openschema方法，openschema方法msdn里面有介绍。

Answer 1

SELECT name
FROM sysobjects
WHERE (LTRIM(RTRIM(xtype)) = 'U ')

Answer 2

可以得到当前库里所有的表。select table_name from INFORMATION_SCHEMA.TABLES where table_type = 'BASE TABLE' and table_name <> 'dtproperties'

Answer 3

用ADO技术实现：
首先引用ADO2.1到VB工程，然后在事件处理函数或过程中编程：
dim cnnX new ADODB.Connection
dim rstX new ADODB.Recordset
cnnX.open "strConnction"
rstX.open "TableName",cnn...'返回的记录集rstX就是你想要的表，具体你参考MSDN中的示例，ADO很不错，相信你很快就能掌握。