知识大全列出SQLSERVER数据库中所有表及字段信息

Posted 2022-07-15 类型

篇首语：一切节省，归根到底都归结为时间的节省。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全列出SQLSERVER数据库中所有表及字段信息相关的知识，希望对你有一定的参考价值。

列出SQLSERVER数据库中所有表及字段信息 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　程序思想:用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 Command _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 = 　　 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 * from [ & Rs_Table Fields( name ) & ] Cn adOpenStatic adLockReadOnly　　For I = To Rs_Colums Fields Count 　循环所有列　　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 数据库连接失败请找系统管理员进行检查！ cProgramName　　End　　End If　　End With　　End Sub　　　　 *********************************************************　　 * 名称 FieldType　　 * 功能返回字段类型　　 * 用法 FieldType(nType as integer)　　 *********************************************************　　Function FieldType(nType As Integer) As String　　Select Case nType　　Case 　　FieldType = BINARY 　　Case 　　FieldType = BIT 　　Case 　　FieldType = CHAR 　　Case 　　FieldType = DATETIME 　　Case 　　FieldType = DECIMAL 　　Case 　　FieldType = FLOAT 　　Case 　　FieldType = IMAGE 　　Case 　　FieldType = INT 　　Case 　　FieldType = MONEY 　　Case 　　FieldType = NCHAR 　　Case 　　FieldType = NTEXT 　　Case 　　FieldType = NUMERIC 　　Case 　　FieldType = NVARCHAR 　　Case 　　FieldType = REAL 　　Case 　　FieldType = SMALLDATETIME 　　Case 　　FieldType = SMALLMONEY 　　Case 　　FieldType = TEXT 　　Case 　　FieldType = TIMESTAMP 　　Case 　　FieldType = TINYINT 　　Case 　　FieldType = UNIQUEIDENTIFIER 　　Case 　　FieldType = VARBINARY 　　Case 　　FieldType = VARCHAR 　　Case 　　FieldType = 　　End Select　　End Function　　　　此程序只是一个雏形可以在此基础上开发成一个工具使用　　　　本程序在 VB 　 SQL SERVER 下运行通过　　　　注程序中须引用ActiveX Data Objects (ADO) cha138/Article/program/SQLServer/201311/22042

知识大全 列出SQLSERVER数据库中所有表及字段信息

知识大全列出SQLSERVER数据库中所有表及字段信息