7450
社区成员
- 主页
怎么得到 一个字段的长度和类型
我用的是data 控件 我想得到 .dbf的字段长度 和类型
高手帮忙
高手帮忙
...全文
请发表友善的回复…
发表回复
pcwak 2003-12-22
http://www.csdn.net/Develop/read_article.asp?id=15422
SoHo_Andy 2003-12-22
对比一下字段名和字段类型，应该可以猜出是什么吧
或者自己增加几个字段看看type是那个数字就行了
或者自己增加几个字段看看type是那个数字就行了
liuyanghe111 2003-12-22
.type的值是数字,每个值对应一种数据类型
yue_qiong 2003-12-22
还是不对 我的 数据表是.dbf
.type 的类型 数字是 10 或 8
.type 的类型 数字是 10 或 8
SoHo_Andy 2003-12-22
看看
Public Sub TypeX()
Dim rstEmployees As ADODB.Recordset
Dim fldLoop As ADODB.Field
Dim strCnn As String
' Open recordset with data from Employee table.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "employee", strCnn, , , adCmdTable
Debug.Print "Fields in Employee Table:" & vbCr
' Enumerate Fields collection of Employees table.
For Each fldLoop In rstEmployees.Fields
Debug.Print " Name: " & fldLoop.Name & vbCr & _
" Type: " & FieldType(fldLoop.Type) & vbCr
Next fldLoop
End Sub
Public Function FieldType(intType As Integer) As String
Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
End Function
Public Sub TypeX()
Dim rstEmployees As ADODB.Recordset
Dim fldLoop As ADODB.Field
Dim strCnn As String
' Open recordset with data from Employee table.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "employee", strCnn, , , adCmdTable
Debug.Print "Fields in Employee Table:" & vbCr
' Enumerate Fields collection of Employees table.
For Each fldLoop In rstEmployees.Fields
Debug.Print " Name: " & fldLoop.Name & vbCr & _
" Type: " & FieldType(fldLoop.Type) & vbCr
Next fldLoop
End Sub
Public Function FieldType(intType As Integer) As String
Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
End Function
yue_qiong 2003-12-22
为什么 .type 显示的是数字
其它都是对的
其它都是对的
liberte 2003-12-22
Data1.Recordset.Fields(i).Type
Data1.Recordset.Fields(i).Name
Data1.Recordset.Fields(i).Size
Data1.Recordset.Fields(i).Name
Data1.Recordset.Fields(i).Size
海牛 2003-12-22
楼上正解！！！
SoHo_Andy 2003-12-22
试试
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To Data1.Recordset.Fields.Count - 1
MsgBox Data1.Recordset.Fields(i).Type
MsgBox Data1.Recordset.Fields(i).Name
MsgBox Data1.Recordset.Fields(i).Size
Next
End Sub
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To Data1.Recordset.Fields.Count - 1
MsgBox Data1.Recordset.Fields(i).Type
MsgBox Data1.Recordset.Fields(i).Name
MsgBox Data1.Recordset.Fields(i).Size
Next
End Sub
flc 2003-12-22
关注