Access表中 哪个字段是主键

写段代码  
  得知Access表中   哪个字段是主键  
  没有主键   返回空 问题点数：40、回复次数：3Top

1 楼of123（）回复于 2006-03-20 11:46:42 得分 0

DAO:  
   
  Private   Sub   Form_Click()  
  Debug.Print   Get_Primary("C:\Program   Files\Microsoft   Visual   Studio\VB98\nwind.mdb",   "suppliers")  
  End   Sub  
   
  Public   Function   Get_Primary(ByVal   databasename   As   String,   ByVal   tablename   As   String)   As   String  
   
  Dim   td   As   DAO.TableDef  
  Dim   db   As   DAO.database  
  Dim   nx   As   DAO.Index  
   
  Set   db   =   OpenDatabase(databasename)  
  Set   td   =   db.TableDefs(tablename)  
  For   Each   nx   In   td.Indexes  
          If   nx.Primary   =   True   Then  
                  Get_Primary   =   nx.Fields(0).Name  
                  Exit   For  
          End   If  
  Next  
  End   Function  
  Top

2 楼of123（）回复于 2006-03-20 12:09:42 得分 40

ADOX:  
   
  Private   Sub   Form_Click()  
  Debug.Print   Get_Primary("C:\Program   Files\Microsoft   Visual   Studio\VB98\nwind.mdb",   "suppliers")  
  End   Sub  
   
  Public   Function   Get_Primary(ByVal   databasename   As   String,   ByVal   tablename   As   String)   As   String  
  Dim   cat   As   New   ADOX.Catalog  
  Dim   ndx   As   ADOX.Index  
   
  cat.ActiveConnection   =   "Provider='Microsoft.Jet.OLEDB.4.0';"   &   _  
                  "Data   Source="   &   databasename  
   
  For   Each   ndx   In   cat.Tables(tablename).Indexes  
          If   ndx.PrimaryKey   Then  
                  Get_Primary   =   ndx.Columns(0).Name  
                  Exit   For  
          End   If  
  Next  
  End   Function  
  Top

3 楼yxx7347（）回复于 2006-04-03 23:34:21 得分 0

大侠，您的方法返回的是主键的字段名。我要的是主键名（设置主键时Access生成的主键名）不是主键所在的字段名。Top

相关问题

• db
• microsoft
• td
• 主键
• primary
• nx
• databasename
• dao
• tablename
• byval

• 帖主：utada776
• of123

• Visual Basic类图书
• Visual Basic类源码下载