引用
csdn许多网友问怎样列出数据库有所有表及表信息,下面这段程序正是你所想要的
程序思想:用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)
分享到:
相关推荐
快捷方便,可查看sqlserver数据库每个表的使用情况,一次下载终身使用,此文件为sql语句格式,免费试用
SQL SERVER 创建数据库SQL SERVER 创建数据库SQL SERVER 创建数据库
《SQL Server 2016数据库原理及应用》教学设计(部分)(含课程思政).pdf《SQL Server 2016数据库原理及应用》教学设计(部分)(含课程思政).pdf《SQL Server 2016数据库原理及应用》教学设计(部分)(含课程思政).pdf《SQL...
SQLserver遍历所有表数据库命令
查看SQL Server Log数据库,查看日志数据 查看SQL Server Log数据库,查看日志数据
【SQLServer数据库教程】课程列表 SQLServer数据库教程 第1章 数据库的基本概念(共85页) SQLServer数据库教程 第2章 数据库和表创建(共54页) SQLServer数据库教程 第3章 表数据操作(共30页) SQLServer数据库...
将mysql数据库转换为sql server的数据库,或者将sql server数据库转换为mysql的数据库,在nt环境下很多时候都会用到。使用mysql odbc后就比较好办,可以使用sql server的管理工具,也可以使用mysql的管理工具,更可以...
由16章构成,主要内容包括:SQL Server 2000概述、SQL Server 2000安装和配置、SQL Server 2000工具、数据库系统基础、SQL Server 2000数据类型、SQL Server 2000数据库创建与管理、SQL Server 2000数据库表的创建和...
查询SQLSERVER数据库中各表大小和空间的存储过程,用这个SQL创建一个存储过程。然后执行这个存储过程。即可查询各表的相关信息。
例子程序实现了SQLServer2000数据库的表与Excel2003的表内容的相互转换。其中的代码可以只作极小的修改就可以使用。无编程基础者勿下!
【SQLServer数据库教程】课程列表 SQLServer数据库教程 第1章 数据库的基本概念(共85页) SQLServer数据库教程 第2章 数据库和表创建(共54页) SQLServer数据库教程 第3章 表数据操作(共30页) SQLServer数据库...
【SQLServer数据库教程】课程列表 SQLServer数据库教程 第1章 数据库的基本概念(共85页) SQLServer数据库教程 第2章 数据库和表创建(共54页) SQLServer数据库教程 第3章 表数据操作(共30页) SQLServer数据库...
【SQLServer数据库教程】课程列表 SQLServer数据库教程 第1章 数据库的基本概念(共85页) SQLServer数据库教程 第2章 数据库和表创建(共54页) SQLServer数据库教程 第3章 表数据操作(共30页) SQLServer数据库...
用SQL语句查看SQL Server中的数据库查看所有表大小,所占空间
《SQL Server 2016数据库应用教程》试卷及答案3套.pdf《SQL Server 2016数据库应用教程》试卷及答案3套.pdf《SQL Server 2016数据库应用教程》试卷及答案3套.pdf《SQL Server 2016数据库应用教程》试卷及答案3套.pdf...
Sqlserver2005数据库还原备份工具,主要是测试应用,希望通过各位的使用提出更好修改意见
【SQLServer数据库教程】课程列表 SQLServer数据库教程 第1章 数据库的基本概念(共85页) SQLServer数据库教程 第2章 数据库和表创建(共54页) SQLServer数据库教程 第3章 表数据操作(共30页) SQLServer数据库...
【SQLServer数据库教程】课程列表 SQLServer数据库教程 第1章 数据库的基本概念(共85页) SQLServer数据库教程 第2章 数据库和表创建(共54页) SQLServer数据库教程 第3章 表数据操作(共30页) SQLServer数据库...
本书具有很强的操作性和实用性,可作为高等院校、高职学校“SQL Server数据库原理与应用”课程的教材,或社会培训班“SQL Server 2005”的基础入门教材,同时对从事数据库开发和管理的人员也具有较高参考价值。
《SQL Server 2008数据库设计与实现》深入浅出地介绍了目前世界上最受欢迎...《SQL Server 2008数据库设计与实现》浓缩了作者作为SQL Server数据库架构师多年来丰富的实践经验,适合各类数据库开发和管理人员学习参考。