查看完整版本: 列出SQL SERVER数据库中所有表及字段信息 lihonggen0（原作）

luckdevil 2003-3-25 15:26

列出SQL SERVER数据库中所有表及字段信息 lihonggen0（原作）

关键字     SQL,表,字段
   


程序思想:用SELECT name From sysobjects WHERE xtype = 'u'得到所有表，然后循环打开表,根据Rs_Colums.Fields(I).Name   得到字段名,FieldType(Rs_Colums.Fields(I).Type)  得到字段类型,Rs_Colums.Fields(I).DefinedSize  '宽度

由于Rs_Colums.Fields(I).Type返回类型是数字，程序中写了一个FieldType函数转化成中文类型

Private Sub Command1_Click()
Dim Cn As New ADODB.Connection
Dim Rs_Table As New ADODB.Recordset
Dim Rs_Colums As New ADODB.Recordset

    With Cn   '定义连接
        .CursorLocation = adUseClient
        .Provider = "sqloledb"
        .Properties("Data Source").Value = "LIHG"
        .Properties("Initial Catalog").Value = "NorthWind"
        .Properties("User ID") = "sa"
        .Properties("Password") = "sa"
        .Properties("prompt") = adPromptNever
        .ConnectionTimeout = 15
        .Open
        
        If .State = adStateOpen Then
            Rs_Table.CursorLocation = adUseClient   '得到所有表名
            Rs_Table.Open "SELECT name From sysobjects WHERE xtype = 'u'", Cn, adOpenDynamic, adLockReadOnly
            Rs_Table.MoveFirst
            Do While Not Rs_Table.EOF
                Debug.Print Rs_Table.Fields("name")
                Rs_Colums.CursorLocation = adUseClient
                Rs_Colums.Open "select top 1 * from [" & Rs_Table.Fields("name") & "]", Cn, adOpenStatic, adLockReadOnly
                For I = 0 To Rs_Colums.Fields.Count - 1   ' 循环所有列
                    Debug.Print Rs_Colums.Fields(I).Name   '字段名
                    Debug.Print FieldType(Rs_Colums.Fields(I).Type)  '字段类型
                    Debug.Print Rs_Colums.Fields(I).DefinedSize  '宽度
                Next
                Rs_Colums.Close
                Rs_Table.MoveNext
            Loop
            Rs_Table.Close
            Set Rs_Colums = Nothing
            Set Rs_Table = Nothing
        
        Else
            MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
            End
        End If
    End With
End Sub

'*********************************************************
'* 名称：FieldType
'* 功能：返回字段类型
'* 用法：FieldType(nType as integer)
'*********************************************************
Function FieldType(nType As Integer) As String
    Select Case nType
        Case 128
            FieldType = "BINARY"
        Case 11
            FieldType = "BIT"
        Case 129
            FieldType = "CHAR"
        Case 135
            FieldType = "DATETIME"
        Case 131
            FieldType = "DECIMAL"
        Case 5
            FieldType = "FLOAT"
        Case 205
            FieldType = "IMAGE"
        Case 3
            FieldType = "INT"
        Case 6
            FieldType = "MONEY"
        Case 130
            FieldType = "NCHAR"
        Case 203
            FieldType = "NTEXT"
        Case 131
            FieldType = "NUMERIC"
        Case 202
            FieldType = "NVARCHAR"
        Case 4
            FieldType = "REAL"
        Case 135
            FieldType = "SMALLDATETIME"
        Case 2
            FieldType = "SMALLMONEY"
        Case 6
            FieldType = "TEXT"
        Case 201
            FieldType = "TIMESTAMP"
        Case 128
            FieldType = "TINYINT"
        Case 17
            FieldType = "UNIQUEIDENTIFIER"
        Case 72
            FieldType = "VARBINARY"
        Case 204
            FieldType = "VARCHAR"
        Case 200
            FieldType = ""
    End Select
End Function


此程序只是一个雏形，可以在此基础上开发成一个工具使用

本程序在：VB 6.0  ，SQL SERVER 2000下运行通过

注程序中须引用ActiveX Data Objects (ADO)

银飞 2003-11-11 15:41

真的不错！！

wngh211 2003-11-14 11:09

看得不是很懂。哈哈

lany235 2004-4-2 20:11

还不错吧。

wwq 2004-6-4 16:18

好东东。加此语句可做成一个好的工具软件

mingxiang 2004-6-23 12:30

想的很不错!实用就好!

zhangzhengjie 2004-7-12 10:29

谢谢了。就是有一些不太懂。

nicehu 2004-7-14 09:52

虽然现在还不明白， 收下， 努力中！！！

yessym 2004-7-16 15:29

好!

哪位高人把它开发成工具共享出来吧!

菜鳥 2004-10-28 11:14

很實用

iam36 2004-10-29 14:13

其实直接用存储过程就可以实现了

jojosky 2004-11-29 12:39

好啊!
实用!

ypqing 2005-1-23 20:18

先COPY下来再说，肯定有用撒

aaronwa 2005-7-16 02:47

刚开始学呢，还看不大懂

superghy 2005-7-29 15:40

very good

chemie2004 2005-7-31 22:17

VC 可以调用SQL2000吗？

jefe001 2005-8-4 12:22

有好心人指导吗???加我QQ24756244

zxlwell 2005-8-16 10:14

很好啊

chinahui 2005-9-7 16:07

非常好非常好非常好非常好

LeeAo 2005-10-14 14:56

东西不错，我喜欢

slyp 2005-11-10 18:33

xiexie  ,,辛苦了

theend 2005-11-20 11:57

正打算开始学习。。。。。

wxbszd 2005-12-15 15:02

没什么的 一般

sharebbs 2006-3-1 22:01

好东西，支持一下

yjh16_mail 2006-6-14 15:29

敢问LZ，是列出系统控制的表吗？？因为这些在跟踪器中有用处！！

xgscbbn 2006-6-26 22:04

用笔记下来

zhengfaqi2006 2006-8-3 12:47

回去再研究研究

没事可乐 2006-8-21 09:07

看不懂

yanjieee 2006-8-23 15:19

不怎么懂

oO至恋红尘Oo 2006-9-17 17:52

嗯.谢谢楼主.

hysap 2006-9-19 12:27

先收下，

BOBOP6578 2006-9-21 19:22

Thanks for your share.
[url=http://www.miniforum.org][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.baidu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ads28.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.allmusicshop.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.top1.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.synthesoft.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.timway.com/][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.top1.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.3a247.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.66emart.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.acmeshop.org][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.djtommy.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ashop.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.synthesoft.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.jrtoys.net][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.kallan-partners.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.kenicohk.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.onlineteahouse.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.zenith.edu.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.chinesecastle.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.djtommy.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.baidu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.desufashion.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.discount-perfume-house.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.dragon-chain.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.timway.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.baidu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.flower28.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.fusionartonline.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.glue.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.go2zone.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.timway.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.golfsupermarket.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.greatpoweren.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.top1.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.hairmaster.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.hifi-cd.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.h-ray.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.synthesoft.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.djtommy.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.baidu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.oursnack.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.supersmartshop.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url]
[url=http://www.swim4style.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.kireibeauty.com.au][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.synthesoft.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.timway.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ledtorchs.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.djtommy.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.linkswithu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.little-bookworm.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.lucky-moments.net][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.top1.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ads28.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.luremarket.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ads28.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.timway.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.top1.com.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.baidu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.timway.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://wholesale.noblepetshop.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.match.com.tw][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.tomicapeko.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.djtommy.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.synthesoft.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.tonefashion.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.topbeauty-eshop.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.yahoo.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://get.games.yahoo.com/proddesc?gamekey=tropix][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.toyplayer.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.upet.hk][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.ads28.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://ec2biz.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.itflorist.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url]
[url=http://www.zippolook.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.elementiedu.org][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.synthesoft.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.djtommy.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url][url=http://www.baidu.com][img]http://apr.apache.org/apr2_0intro/apr2_0intro_files/space.gif[/img][/url]

hwyl 2006-10-17 14:08

顶到十分

yingsong 2006-12-6 14:06

不懂

abcdos 2007-1-14 11:45

感觉用处不大

yesren 2007-1-16 15:19

如果查全库中的库里的列表要怎样写呢？

duanze82 2007-1-20 15:02

sql中可以生成脚本的，包括表的结构
不过这个也很实用

casyon5 2007-1-23 22:18

压根看不懂

camui 2007-2-10 15:43

lz是讲述了关于程序设计中引用数据库的方法，对吗？

MySOFT 2007-4-4 14:47

还没入门.......收藏备用...
页: [1] 2
查看完整版本: 列出SQL SERVER数据库中所有表及字段信息 lihonggen0（原作）