怎么得到一个字段的长度和类型

2003-12-22 12:52:20 108 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32 Proteu直流电机正反转控制系统限位开关-0035 硬件组成：STM32F103C6单片机 +L298N电机控制电路+直流电机+3个按键（正转、反转、停止）+LED指示灯（正转、反转、停止）+限位开关（正限位反限位） 1.通过3个按键（正转、反转、停止）控制电机的正转、反转、停止。 2.有3个LED指示灯，正转时正转指示灯亮。反转停止对应反转停止指示灯亮。 3.有自动正转反转停止功能，正转时当正限位按键按下时说明正转到最大距离。此时自动停止。反转一样。阅读详情

我用的是data 控件我想得到 .dbf的字段长度和类型
高手帮忙

...全文

小米路由器R1D进阶玩法：MIXBOX工具箱安装与插件管理指南本文详细介绍了为小米路由器R1D安装MIXBOX工具箱的完整指南。通过开启SSH、执行一键安装脚本，用户可以轻松解锁路由器的进阶功能，如安装离线下载、内网穿透等插件，从而将旧设备转变为强大的家庭网络服务中心。阅读详情

yue_qiong

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

pcwak 2003-12-22

打赏
举报

http://www.csdn.net/Develop/read_article.asp?id=15422

SoHo_Andy 2003-12-22

打赏
举报

对比一下字段名和字段类型，应该可以猜出是什么吧

或者自己增加几个字段看看type是那个数字就行了

liuyanghe111 2003-12-22

打赏
举报

.type的值是数字,每个值对应一种数据类型

yue_qiong 2003-12-22

打赏
举报

还是不对我的数据表是.dbf
.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

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

海牛 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

flc 2003-12-22

打赏
举报

关注

怎么得到 一个字段的长度和类型

相关推荐

怎么得到一个字段的长度和类型