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

godzhong

比如我想判断当前数据库的所有表里,那些表存在"项目编号"字段,如何做呢?或者简单点,判断"订单表"这个表中是否有"项目编号"字段?谢谢各位赐教啊

zhuyiwen

根据字段名求表：

1. 
   
2. Function getTalbleList(ByVal fldName As String)
   
3.    Dim conn As ADODB.Connection
   
4.    Set conn = CurrentProject.Connection
   
5.    Dim rs As ADODB.Recordset
   
6.    
   
7.    Dim s As String, f As String
   
8.    
   
9.    f = "COLUMN_NAME='" & fldName & "'"
   
10.    
    
11.    Set rs = conn.OpenSchema(adSchemaColumns)
    
12.    rs.Filter = f
    
13.    Do While Not rs.EOF()
    
14.       s = s & rs("TABLE_NAME") & ", "
    
15.       
    
16.       rs.MoveNext
    
17.    Loop
    
18.    rs.Close
    
19.    Set rs = Nothing
    
20.    
    
21.    If Len(s) > 0 Then s = Left(s, Len(s) - 2)
    
22.    getTalbleList = s
    
23. End Function

复制代码

Henry D. Sy

一个是在所有表中寻找有特定字段的表名
一个是在特定的表中判断是否存在特定的字段。
两个都给你！

Henry D. Sy

1. Private Sub Command0_Click()
   
2. '    getTblName "日期"
   
3.    
   
4.     MsgBox IsFldNameExist("订单列表", "日期")
   
5.    
   
6. End Sub
   
7. 
   
8. Sub getTblName(strFiledName As String)
   
9.     Dim tbl As DAO.TableDef
   
10.     Dim rs As DAO.Recordset
    
11.     Dim i As Integer
    
12.     Dim strtblName As String
    
13.     On Error Resume Next
    
14.     For Each tbl In CurrentDb.TableDefs
    
15.         If Left(tbl.Name, 4) <> "Msys" And Left(tbl.Name, 1) <> "~" Then
    
16.             Set rs = CurrentDb.OpenRecordset(tbl.Name)
    
17.             For i = 0 To rs.Fields.Count - 1
    
18.                 If rs.Fields(i).Name = strFiledName Then
    
19.                     strtblName = strtblName & tbl.Name & ";"
    
20.                     Exit For
    
21.                 End If
    
22.             Next
    
23.             rs.Close
    
24.         End If
    
25.     Next
    
26.     MsgBox strtblName
    
27.     Set rs = Nothing
    
28.     Set tbl = Nothing
    
29. End Sub
    
30. 
    
31. Public Function IsFldNameExist(tblName As String, fldName As String) As Boolean
    
32.     Dim rs As New ADODB.Recordset
    
33.     Dim i As Integer
    
34.     rs.Open tblName, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
35.     For i = 0 To rs.Fields.Count - 1
    
36.         If rs.Fields(i).Name = fldName Then
    
37.             IsFldNameExist = True
    
38.             Exit For
    
39.         End If
    
40.     Next
    
41.     rs.Close
    
42.     Set rs = Nothing
    
43. End Function
    

复制代码

godzhong

自己搜索方法了!参考了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:}

godzhong

roych 发表于 2011-12-25 18:20
估计表关系没建立起来，或者关系很混乱。。。。在设计数据库之初，就应该想好哪些表需要这个字段，哪些不需 ...

还有一点,我现在做的是access+sqlserver的系统开发模式,用的是access的链接表.如果我建立表关系,是在sql2000里做,还是在access里做?

godzhong

roych 发表于 2011-12-25 18:20
估计表关系没建立起来，或者关系很混乱。。。。在设计数据库之初，就应该想好哪些表需要这个字段，哪些不需 ...

大哥你说的没错!我就是设计了一堆东西,但是没建立任何表关系!!所以我的很多代码都是做的重复工作.我做这个东西是边学边做.学到哪一步了做到哪一步,现在我的系统马上要上线了,到处拼装修改了一堆的代码.目前是遇到了这个问题,不知您可否赐教?

roych

估计表关系没建立起来，或者关系很混乱。。。。在设计数据库之初，就应该想好哪些表需要这个字段，哪些不需要。而不是等到做得差不多了再回头去找这些字段。
ADO当然可以做，不过个人觉得没这个必要。在工具\关系（access 2003版）里列出全部表，重新建立表与表之间的关系，并设置好是否级联删除等等。这样既可以重新理清表关系，进而可以思考哪些字段可以省却，或者哪些表可以拆分等等。
至于哪几张表有木有这个字段，相信重新理清关系后，应该是心中有数了。此外，还可以吸取教训：没规划好之前，千万别动工。正如没图纸之前，建房子大部分都可能是楼歪歪楼脆脆一样。

Henry D. Sy

可以用ado，dao