vb如何读取sql-server数据库中一个表的表项？

[大鹏展翅]

1.vb如何读取sql-server数据库中一个表的表项？
（如：我在sql-server数据库中建了一个名为：“学生信息”的表，它里边的表项有 姓名、年龄、性别.....,请问：我在vb中如何读取这个表的表项？）
2.vb如何读取sql-server数据库中的表（用户自建）？
（如：我在sql-server数据库中建了名为：“学生信息”、“学生成绩”....的表,如何在vb读取这些表名？）

[DimVar]

下面代码显示把table name 和field name填到一个Combo box里。
Function GetTables(cnn As ADODB.Connection) As Boolean
'Purpose : Get table names from the Connection given
'Input : cnn, ther ADODB.Connection
'Output : TRUE/FALSE
'

On Error GoTo GetTables_ErrorHandler
Screen.MousePointer = 11

Dim rstSchema As ADODB.Recordset
cboTablesName.Clear

Set rstSchema = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))


Do Until rstSchema.EOF
If StrComp(Left(rstSchema!TABLE_NAME, 4), "MSys", vbTextCompare) <> 0 Then
cboTablesName.AddItem rstSchema!TABLE_NAME
End If
rstSchema.MoveNext
Loop

rstSchema.Close
Set rstSchema = Nothing

Screen.MousePointer = 0

ErrorHandler:
Exit Function
GetTables_ErrorHandler:
Screen.MousePointer = 0
ShowErrMsg ("GetTables")
Resume ErrorHandler

End Function

Function GetFields(strTableName As String, cnn As ADODB.Connection) As Boolean
'Purpose : Get field names from the table selected and Connection given
'Input : strTableName - the table name; cnn - ther ADODB.Connection
'Output : TRUE/FALSE
'
On Error GoTo GetFields_ErrorHandler
Screen.MousePointer = 11

Dim adoFields As ADODB.Fields
Dim rstTable As ADODB.Recordset
Dim strSQL As String

cboFieldsName.Clear

strSQL = "SELECT TOP 1 * FROM [" & strTableName & "] "

Set rstTable = New ADODB.Recordset

rstTable.Open strSQL, cnn, adOpenStatic, adLockPessimistic, adCmdText
Dim fld As ADODB.Field

For Each fld In rstTable.Fields
cboFieldsName.AddItem fld.Name
Next

rstTable.Close
Set rstTable = Nothing

Screen.MousePointer = 0

ErrorHandler:
Exit Function
GetFields_ErrorHandler:
Screen.MousePointer = 0
ShowErrMsg ("GetFields")
Resume ErrorHandler

End Function

[tgc99]

up

[AechoJohn]

把分给楼上的吧。
其实这些东西你查一下MSDN完全可以自己解决的吧。

[yefm]

读取SQL-SERVER系统表
sysobjects
syscolumns

[yefm]

syscolumns
每个表和视图中的每列在表中占一行，存储过程中的每个参数在表中也占一行。该表位于每个数据库中。

列名 数据类型 描述
name sysname 列名或过程参数的名称。
id int 该列所属的表对象 ID，或与该参数关联的存储过程 ID。
xtype tinyint systypes 中的物理存储类型。
typestat tinyint 仅限内部使用。
xusertype smallint 扩展的用户定义数据类型 ID。
length smallint systypes 中的最大物理存储长度。
xprec tinyint 仅限内部使用。
xscale tinyint 仅限内部使用。
colid smallint 列或参数 ID。
xoffset smallint 仅限内部使用。
bitpos tinyint 仅限内部使用。
reserved tinyint 仅限内部使用。
colstat smallint 仅限内部使用。
cdefault int 该列的默认值 ID。
domain int 该列的规则或 CHECK 约束 ID。
number smallint 过程分组时（0 表示非过程项）的子过程号。
colorder smallint 仅限内部使用。
autoval varbinary(255) 仅限内部使用。
offset smallint 该列所在行的偏移量；如果为负，表示可变长度行。
status tinyint 用于描述列或参数属性的位图：
0x08 = 列允许空值。
0x10 = 当添加 varchar 或 varbinary 列时，ANSI 填充生效。保留 varchar 列的尾随空格，保留 varbinary 列的尾随零。
0x40 = 参数为 OUTPUT 参数。
0x80 = 列为标识列。

type tinyint systypes 中的物理存储类型。
usertype smallint systypes 中的用户定义数据类型 ID。
printfmt varchar(255) 仅限内部使用。
prec smallint 该列的精度级别。
scale int 该列的小数位数。
iscomputed int 表示是否已计算该列的标志：
0 = 未计算。
1 = 已计算。

isoutparam int 表示该过程参数是否是输出参数：
1 = 真。
0 = 假。

isnullable int 表示该列是否允许空值：
1 = 真。
0 = 假。

[yefm]

sysobjects
在数据库内创建的每个对象（约束、默认值、日志、规则、存储过程等）在表中占一行。只有在 tempdb 内，每个临时对象才在该表中占一行。

列名 数据类型 描述
name sysname 对象名。
Id int 对象标识号。
xtype char(2) 对象类型。可以是下列对象类型中的一种：
C = CHECK 约束
D = 默认值或 DEFAULT 约束
F = FOREIGN KEY 约束
L = 日志
FN = 标量函数
IF = 内嵌表函数
P = 存储过程
PK = PRIMARY KEY 约束（类型是 K）
RF = 复制筛选存储过程
S = 系统表
TF = 表函数
TR = 触发器
U = 用户表
UQ = UNIQUE 约束（类型是 K）
V = 视图
X = 扩展存储过程

uid smallint 所有者对象的用户 ID。
info smallint 保留。仅限内部使用。
status int 保留。仅限内部使用。
base_schema_
ver int 保留。仅限内部使用。
replinfo int 保留。供复制使用。
parent_obj int 父对象的对象标识号（例如，对于触发器或约束，该标识号为表 ID）。
crdate datetime 对象的创建日期。
ftcatid smallint 为全文索引注册的所有用户表的全文目录标识符，对于没有注册的所有用户表则为 0。
schema_ver int 版本号，该版本号在每次表的架构更改时都增加。
stats_schema_
ver int 保留。仅限内部使用。
type char(2) 对象类型。可以是下列值之一：
C = CHECK 约束
D = 默认值或 DEFAULT 约束
F = FOREIGN KEY 约束
FN = 标量函数
IF = 内嵌表函数
K = PRIMARY KEY 或 UNIQUE 约束
L = 日志
P = 存储过程
R = 规则
RF = 复制筛选存储过程
S = 系统表
TF = 表函数
TR = 触发器
U = 用户表
V = 视图
X = 扩展存储过程

userstat smallint 保留。
sysstat smallint 内部状态信息。
indexdel smallint 保留。
refdate datetime 留作以后使用。
version int 留作以后使用。
deltrig int 保留。
instrig int 保留。
updtrig int 保留。
seltrig int 保留。
category int 用于发布、约束和标识。
cache smallint 保留。

[chenyu5188]

UP