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

升迁专用:检查出没有设置主键的表

时 间:2018-06-25 13:13:39
作 者:123   ID:47512  城市:南京
摘 要:检查出没有设置主键的表
正 文:

当我们将Access数据库通过升迁或导入的方式到SQL Server数据库时,需要检查每一个表有没有主键,因为如果没有主键,将不能给表添加新数据,这里,我们就可以采用下面的代码来进行检查,具体代码如下:

Sub 检查主键()
   On Error GoTo CreateKeyError
    Dim cat    As New ADOX.Catalog  '需要引用ado ext
    Dim i      As Byte
    Dim tbl As Object
    Dim fld  As Object
    cat.ActiveConnection = CurrentProject.Connection
    For Each tbl In CurrentDb.TableDefs
   If tbl.Name Like "MSys*" = False And tbl.Connect = "" Then
    With cat.Tables(tbl.Name)
        If .Keys.Count < 1 Then
        Debug.Print tbl.Name & "没有主键"
       GoTo N
        End If
          For i = 0 To .Keys.Count - 1
            If .Keys.Item(0).Type = adKeyPrimary Then GoTo N
          Debug.Print tbl.Name & "没有主键":
N:
        Next
  
    End With

  End If
  Next
    Set cat.ActiveConnection = Nothing
    Set cat = Nothing
    Exit Sub
CreateKeyError:
    Set cat = Nothing

    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub


Access软件网官方交流QQ群 (群号:43631875)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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