如何增加或者减少字段名称

研究研究　发表于：2015-10-21 18:59:29 　

本人新手很多地方都搞不明白想高手指点

    Dim db1 As Database
    Dim rs1 As Recordset
    Set db1 = OpenDatabase(ThisWorkbook.Path & "\学生成绩管理.mdb")
    Set rs1 = db1.OpenRecordset(Name:="期末成绩", Type:=dbOpenDynaset)

接下来我想完成2个动作

      if rs1下面没有 "总分"的字段名称 then 创建一个   "总分"
      if rs1下面有 "体育"的字段名称 then 删除  "体育"

Top

杜超发表于：2015-10-22 16:36:10

可以用隐藏

Top

研究研究发表于：2015-10-22 19:12:23

我的意思是：

如果【期末成绩】表的字段有【体育】则删除

如果【期末成绩】表的字段没有【总分】则增加一个

最终结果是这样样子

各位大侠我想要详细的VBA过程，不是最后的结果。因为我想学习一下ACCESS和EXCEL

Top

研究研究发表于：2015-10-23 12:46:47

自己顶一下

Top

研究研究发表于：2015-10-24 12:37:01

搞不明白下面2句话怎么才能加到我的代码中让其生效

Top

煮江品茶发表于：2015-10-24 14:46:58

试试：

Public Sub AddOrDeleteField(ByVal filepath As String, ByVal tablename As String, ByVal fieldname As String, ByVal b As Boolean)
    '功能：增加或删除表中字段
    '引用：Mocrosoft ADO Ext 2.8 for DDL and Securty
    '参数：filepath--数据库文件地址
    '      tablename--表名
    '      fieldname--字段名
    '      b--新增还是删除,true(新增) false(删除)
    Dim conn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    Dim tb As ADOX.table
    Dim f As ADOX.Column

    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
    conn.Open
    Set cat.ActiveConnection = conn
    Set tb = cat.Tables(tablename)

    If b = True Then
        If ExistField(tb, fieldname) = False Then
            Set f = New ADOX.Column
            f.name = fieldname
            f.Type = adDecimal
            tb.Columns.Append f
        End If
    Else
        If ExistField(tb, fieldname) = True Then
            Set f = tb.Columns(fieldname)
            tb.Columns.Delete f
        End If
    End If

    conn.Close
    Set cat = Nothing
    Set conn = Nothing
    Set tb = Nothing
    Set f = Nothing
End Sub

Top

研究研究发表于：2015-10-24 17:35:15

ExistField 报错

Top

煮江品茶发表于：2015-10-25 12:27:22

Public Function ExistField(ByRef tb As ADOX.table, ByVal fieldname As String) As Boolean
    Dim b As Boolean
    Dim f As ADOX.Column
    b = False
    For Each f In tb.Columns
        If f.name = fieldname Then
            b = True
            Exit For
        End If
    Next
    ExistField = b
End Function

Top

研究研究发表于：2015-10-25 13:52:13

亲加上这段代码后继续报错与 tb.Columns.Delete f

Top

研究研究发表于：2015-10-26 19:21:04

已经有高手在这里回答了。谢谢各位

http://www.accessoft.com/bbs/showtopic.asp?ID=25233&BoardID=17

煮江品茶　虽然最后还是不能用，但我还是要谢谢你及各位高手的帮助

Top

总记录：9篇页次：1/1 9 1 :

Access交流中心

如何增加或者减少字段名称