主题：01.如何从SQL SERVER 2000中读取某个表的数据结构

版主：

    我的数据库以内部表为主，还想连接SQL SERVER 2000，把其中数百个表的数据结构读入，并保存到内部表中，如何读取呢？

    注意是读取表的数据结构，而不是表的数据内容。

    请版主详细指点。

 要么，用代码，要么一个一个地添加进来。

 http://www.foxtable.com/help/topics/1812.htm

 
 添加以后，重定向为内部数据源。

 http://www.foxtable.com/help/topics/1565.htm

02.版主及各位朋友：

     我想把外部数据源各表的数据结构读入，不是读入其数据。

      您给出的方法，好像是读取数据。

      请问：用语句如何写呢？

 你添加外部表的时候，可以设置加载的行数……

 这只是个过程，不必太在意，我们的目的是 重定向 外部表成内部表。

03.版主：

     我们自己开发了一套管理软件，数据库是SQL SERVER 2000，使用情况良好。

     我的想法是，在内部表中，建立一个表，想把外部数据源相关数据表的数据结构保存起来。因此，管理的是外部数据源的表结构，而不是其数据。这样，我可以随时查询这些表的数据结构。

     不知道我的想法说清楚了没有？

---------表结构信息查询----------------
--sql server 2000
		SELECT 
    表名       =
		case
		when a.colorder=1
		then d.name else
		''
		end,
    表说明     =
		case
		when a.colorder=1
		then
		isnull(f.value,'') else
		''
		end,
    字段序号   = a.colorder,
    字段名     = a.name,
    标识       =
		case
		when
		COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1
		then
		'√'else
		''
		end,
    主键       =
		case
		when
		exists(SELECT
		1
		FROM sysobjects where xtype='PK'
		and parent_obj=a.id and name in (
                     SELECT name FROM sysindexes WHERE indid in(
                        SELECT indid FROM sysindexkeys WHERE id = a.id AND colid=a.colid))) then
		'√'
		else
		''
		end,
    类型       = b.name,
    占用字节数 = a.length,
    长度       =
		COLUMNPROPERTY(a.id,a.name,'PRECISION'),
    小数位数   =
		isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0),
    允许空     =
		case
		when a.isnullable=1
		then
		'√'else
		''
		end,
    默认值     =
		isnull(e.text,''),
    字段说明   =
		isnull(g.[value],'')
FROM 
    syscolumns a
left
		join 
    systypes b 
on 
    a.xusertype=b.xusertype
inner
		join 
    sysobjects d 
on 
    a.id=d.id  and d.xtype='U'
		and  d.name<>'dtproperties'
		left
		join 
    syscomments e 
on 
    a.cdefault=e.id
left
		join 
    sysproperties g 
on 
    a.id=g.id and a.colid=g.smallid  
left
		join 
    sysproperties f 
on 
    d.id=f.id and f.smallid=0
		where 
    d.name='要查询的表'
		--如果只查询指定表,加上此条件
		order
		by 
    a.id,a.colorder

/*
表名    表说明 字段序号 字段名    标识 主键    类型    占用字节数 长度 小数位数 允许空  默认值      字段说明 
------- ----- -------  -------- ---- ------- ------ ------- --------------- ------ ---------- ---------- 
authors       1        au_id          √     id      11     11      0                          
              2        au_lname              varchar 40     40      0                          
              3        au_fname              varchar 20     20      0                          
              4        phone                 char    12     12      0              ('UNKNOWN') 
              5        address               varchar 40     40      0       √                 
              6        city                  varchar 20     20      0       √                 
              7        state                 char    2      2       0       √                 
              8        zip                   char    5      5       0       √                 
              9        contract              bit     1      1       0                          
（所影响的行数为 9 行）
*/
		--------------------------------------------------------------------------------------------------------
		

 嗯嗯，楼上已经很详细了，整合到狐表，代码如下。

Dim cmd As New SQLCommand
cmd.C
For Each tn As String In Connections("数据源").GetTableNames
    cmd.CommandText = "Select a.name as 列名, b.name as 类型 from sys.columns a join sys.types b on (a.system_type_id=b.system_type_id) where object_id=object_id('" & tn & "')"
    Dim dt As DataTable = cmd.ExecuteReader
    For Each dr As DataRow In dt.DataRows
        msgbox(tn & "|" & dr("列名") & "|" & dr("类型"))
    Next
Next

非常感谢各位朋友的帮助。我试试看。