设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2825|回复: 8
打印 上一主题 下一主题

[表] 各位老师,我想请教一下如何判断一个表中存在某一个字段?

[复制链接]
跳转到指定楼层
1#
发表于 2011-12-25 17:15:33 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
比如我想判断当前数据库的所有表里,那些表存在"项目编号"字段,如何做呢?或者简单点,判断"订单表"这个表中是否有"项目编号"字段?谢谢各位赐教啊
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2011-12-25 20:33:19 | 显示全部楼层
roych 发表于 2011-12-25 18:20
估计表关系没建立起来,或者关系很混乱。。。。在设计数据库之初,就应该想好哪些表需要这个字段,哪些不需 ...

大哥你说的没错!我就是设计了一堆东西,但是没建立任何表关系!!所以我的很多代码都是做的重复工作.我做这个东西是边学边做.学到哪一步了做到哪一步,现在我的系统马上要上线了,到处拼装修改了一堆的代码.目前是遇到了这个问题,不知您可否赐教?
3#
 楼主| 发表于 2011-12-25 20:35:03 | 显示全部楼层
roych 发表于 2011-12-25 18:20
估计表关系没建立起来,或者关系很混乱。。。。在设计数据库之初,就应该想好哪些表需要这个字段,哪些不需 ...

还有一点,我现在做的是access+sqlserver的系统开发模式,用的是access的链接表.如果我建立表关系,是在sql2000里做,还是在access里做?
4#
 楼主| 发表于 2011-12-25 20:47:57 | 显示全部楼层
本帖最后由 godzhong 于 2011-12-25 20:52 编辑

自己搜索方法了!参考了andymark 老大的代码!谢谢诸位了!  
   Dim Rs As New ADODB.Recordset
    Dim Conn As New ADODB.Connection
    Set Conn = CurrentProject.Connection
'td.name为for each各个表得来的表名称
    Rs.Open "select * from " & td.Name, Conn, adOpenDynamic, adLockOptimistic
    For i = 0 To Rs.Fields.Count - 1
        If Rs.Fields(i).Name = "项目编号" Then
           msgbox "存在项目编号字段"
           
        End If
    Next
    Set Conn = Nothing
    Set Rs = Nothing


因为没做表关系,所以造成了重复工作.我发现我的很多表都重复设计了!这方面之前考虑不周到还要多向大家学习!{:soso_e183:}
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-30 10:39 , Processed in 0.101720 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表