用VBA设定表的主关键字

wjb5645

我用"生成表查询"建一表后，想用按钮单击来设定某一字段为主关键字。
不懂写，请板主、高手们出手赐教！

sunredday

利用ADO 或DAO 追加INDEX

wjb5645

谢谢！
具体一点好吗？

sunredday

Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
     Dim idxNew As DAO.Index
     
     Set dbs = OpenDatabase("C:\yourdatabase.mdb")
    Set tdf = dbs!yourtable

    With tdf
        ' Create new index, create and append Field
        ' objects to its Fields collection.
        Set idxNew = .CreateIndex("NewIndex")

        With idxNew
            .Fields.Append .CreateField("国家")
            .Fields.Append .CreateField("姓氏")
            .Fields.Append .CreateField("名字")
        End With

        ' Add new Index object to the Indexes collection
        ' of the Employees table collection.
       .Indexes.Append idxNew
        .Indexes.Refresh
  END WITH

[此贴子已经被作者于2003-6-12 9:07:32编辑过]

wjb5645

谢谢sunredday大侠！！！
我看不懂语句的意思，请问("NewIndex")是否为表名，("国家")等为待设定的字段名？
试一下提示：缺少 End With
在最后加 End With
又提示：方法或数据成员未找到
请指教！

sunredday

引用DAO3.6
另外，增加的是索引，还不是主关键字。

sunredday

NEWINDEX 是索引名称，不用管它
国家等是你的作为索引的字段名称，此处用了三个字段作为一个索引。

wjb5645

sunredday谢谢!
还是不行.
错误指向 .Indexes.Append idxNew
Set tdf = dbs!yourtable是啥意思?
请再指教!

wjb5645

我乱改为:
Private Sub 命令1_Click()
Dim dbs As Database
    Dim tdf As TableDef
     Dim idxNew As Index
     
     Set dbs = OpenDatabase("d:\db1.mdb")
     'Set dbs = CurrentDb()
    Set tdf = dbs![站点表]
    With tdf
               Set idxNew = .CreateIndex("primarykey")
        

        With idxNew
            .Fields.Append .CreateField("站点")
            '.Fields.Append .CreateField("站点ID")
            '.Fields.Append .CreateField("名字")
End With

             tdf.Indexes.Append idxNew
        tdf.Indexes.Refresh
  
   End With
   
End Sub

只可加一个索引(为无重复),如多一两字段,却只显一个,其它的是加了索引可在表设计中看不到?
现差一步之遥,请大侠们帮忙啦!

sunredday

主键加
idxNew.Primary = True

Set tdf = dbs!yourtable是啥意思?
你的表的名称为表1，则
Set tdf = dbs!表1