当前位置：首页 - 正文

用VBA如何获取access数据库中字段的数据类型?

发布网友发布时间：2022-05-21 03:03

共2个回答

热心网友时间：2023-09-10 19:47

1、打开相应的access数据库。

2、在左边的对象栏里单击模块，观察右边的窗口，如果里面有模块，可以双击打开。如果没有新建一个模块，然后双击打开。

3、粘贴以下代码并运行、观察立即窗口。

Private Sub aaaa()
    Dim TableName As String, FieldName As String, i As Integer
    TableName = "tb1" '表名 tb1
    FieldName = "编号" '字段名编号

        Select Case CurrentDb.TableDefs(TableName)(FieldName).Type
        Case dbBoolean
            Debug.Print "是/否"
        Case dbByte
            Debug.Print "数字(字节)"
        Case dbInteger
            Debug.Print "数字(整型)"
        Case dbLong
            If (CurrentDb.TableDefs(TableName)(FieldName).Attributes And dbAutoIncrField) = dbAutoIncrField Then
                Debug.Print "自动编号(长整型)"
            Else
                Debug.Print "数字(长整型)"
            End If
        Case dbSingle
            Debug.Print "数字(单精度)"
        Case dbDouble
            Debug.Print "数字(双精度)"
        Case dbDecimal
            Debug.Print "数字(小数)"
        Case dbCurrency
            Debug.Print "货币"
        Case dbDate
            Debug.Print "日期/时间"
        Case dbText
            Debug.Print "文本"
        Case dbMemo
            If (CurrentDb.TableDefs(TableName)(FieldName).Attributes And dbHyperlinkField) = dbHyperlinkField Then
                Debug.Print "超链接"
            Else
                Debug.Print "备注"
            End If
        Case dbGUID
            Debug.Print "自动编号(自动复制ID)"
        End Select


End Sub

热心网友时间：2023-09-10 19:48

SQLServer2000中自带的导入和导出数据，导入数据访问表到Oracle去

下面是预防措施，我发现一个人的博客工具，你可以看一看
1。当输入的访问表的名称必须是大写，否则去引导后，因为sqlplus中跑入后台，当所有字符都将自动成为大写和Oracle大小写敏感的，所以小写的表生成不能上网，你有一只蟾蜍或DBARtsion是没有好的

2.表中的字段名称，如喜欢重命名改善的用户，很有可能会因为存储卡，重定向

3.注意，数据库中的数据，还可以导入，因为后的数据引一半卡住，当大多发生此问题，因为备注转换为错误类型的对象在4.ACCESS

指出的问题，这是一个头疼的问题，真TM头痛，我刚开始使用OLE DB连接数据库，Oracle数据类型转换备注默认长，但*每个Oracle表只能有一个LONG类型的字段（奇数规则！我找了半天也没找到原因），琢磨了很久时间后，决定放弃（原先选定的OLE DB是通过内页OLE DB连接先进的比ODBC连接点的观点影响了..），使用ODBC，当连接到有几种方法的数据库，我选择了连接与定义的文件，该文件生成的时候一定要注意的是，用户名和密码，必须是大写，或者当你在等待哭，然后用连接良好，进口，我当第一遍是相当成功的，但后来因为插入错误的数据和表格，又懒删除用户删除了重定向，完全相同的数据，用户名更改，NND就报N多错误，票据自动生成的方法是CLOB，我们Access数据库表有是一个OLE对象类型，自动转化为BLOB类型，无法直接读取CLOB RS在页面上与流行的方法，如果写，准误差，这个问题一直没有得到解决。。从网上找了一些资料，是一种表示对象分割的上来了，但太麻烦了，可以生成一套完整的好成绩。。有反复，我们已经很长的时间来准备替代使用VARCHAR2（2000年），在结果页面的错误进行讨论。