Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

[access报表]查找表中的字段的数据类型

时 间:2007-12-10 19:43:57
作 者:何勇   ID:274  城市:肇庆
摘 要:字段的数据类型
正 文:

Public Function UserFildesType(ByVal FieldsName As String, ByVal TableName As String) As Integer
'============================================================
'  项目名称:   CommUserFilter
'  过程函数名: UserFildesType       类型:Function
'------------------------------------------------------------
'  版权所有:何勇
'  作  者:何勇
'------------------------------------------------------------
'  参  数:FieldsName As String       字段名
'           TableName As String        表名
'  返  回:字段的类型
'
'  调用方法: UserFildesType("编号","表1")
'------------------------------------------------------------
'  说  明:检测字段的类型
'------------------------------------------------------------
'  修订历史:2006-11-19
'============================================================
    On Error GoTo Err:
    Dim Rs As ADODB.Recordset
    Dim strSQL As String

    '设置SQL语句
    strSQL = "Select top 1 * FROM " & TableName

    '初始化
    Set Rs = New ADODB.Recordset

    '连接SQL
    Rs.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic

    '字段类型
    UserFildesType = Rs.Fields(FieldsName).Type

    '数字,自动编号3;文本202;日期7;备注,超链接203;逻辑11;货币6'OLE 对象205

    '关闭连接
    Rs.Close
    Set Rs = Nothing

Err:
    Exit Function
End Function



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助