VB 6.0中判断是否Access 2010中存在指定表格

简介:

问题

最近在工作中遇到使用VB6判断是否ACCESS 2010数据库中是否存在指定表格的问题。对于早期ACCESS数据库(应当主要是ACCESS 2003及以前版本),使用DAO引擎操作是没有问题的。主要相关代码如下:

For Each mytable In mydatabase.TableDefs
    print mytable.name
Next

但是,DAO技术已经不适用于ACCESS 2010了。为此,我使用BAIDU搜索,初步得到的一个方法如下:

cn2.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=" + App.Path + "\data\object.accdb"
            
            Debug.Print cn2.ConnectionString
            
            '1, 先判断表格是否存在
           cn2.Execute "select * from Single"
            If Err.Number <> 0 Then
'
                MsgBox "目标数据库中表格Single不存在!"
                GoTo end1
            End If

注意,我使用VB6访问ACCESS2010时使用的不是Microsoft.Jet.OLEDB.4.0技术,我发现使用它访问高版本的 ACCESS(INCLUDING 2007)是不行的,这个你相信就是了,是没有问题的。我们看到,上面代码使用了陷阱技术来分析数据库中是否存在指定表格。但可怜的是,上述技术对于 ACCESS 2010是没有用的(我亲自试验的)。

解答

正确的方法(之一)是,使用ADO对象的OpenSchema方法。相关代码如下:

            cn2.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=" + App.Path + "\data\object.accdb"
Dim bYes As Boolean
            bYes = False
            
            Set rs2 = cn2.OpenSchema(adSchemaTables)
            
            Do Until rs2.EOF
            
            Debug.Print rs2!TABLE_NAME
            
                If rs2!TABLE_NAME = "Single" Then
                    bYes = True
                    GoTo cont1
                End If
                
                rs2.MoveNext
                
            Loop
         
cont1:
            rs2.Close
                    
            If Not bYes Then
                GoTo end1
            End If
















本文转自朱先忠老师51CTO博客,原文链接:http://blog.51cto.com/zhuxianzhong/1438947 ,如需转载请自行联系原作者



相关文章
|
小程序 JavaScript 索引
小程序v-for与key值使用
小程序v-for与key值使用
189 0
|
XML 前端开发 Java
SSM框架@Value("${key}")不能获取属性,原样输出${key}的分析
今天在做框架改造时,碰到了不能@Value 不能获取属性的问题。纠结了好一阵,现做一个简单记录。
196 0
|
JavaScript
源生JS 之对象key值为数字时的取值及修改key值方法
源生JS 之对象key值为数字时的取值及修改key值方法
472 0
源生JS 之对象key值为数字时的取值及修改key值方法
|
SQL 存储 关系型数据库
访问方法access method---单表访问方法(三十六)
访问方法access method---单表访问方法(三十六)
VB编程:DataPart函数判断当前所处季节-46
VB编程:DataPart函数判断当前所处季节-46
157 0
VB编程:DataPart函数判断当前所处季节
VB编程:DataPart函数判断当前所处季节
328 0
VB编程:DataPart函数判断当前所处季节