为什么无法建立关联呢?

请看代码Dim rel As Relation
Set rel = db_myfristdb.CreateRelation("id", "tdb_studentinfo", "tdb_student")
Dim relfld As Field
Set relfld = rel.CreateField("id")
rel.Fields.Append relfld
db_myfristdb.Relations.Append rel[这一步不能通过:(]db_myfristdb可以操作,前面已经建立了索引.谢了!!

解决方案 »

  1.   


    Set relfld = rel.CreateField("id")relfld .ForeignName = "foreign key field in tdb_student"'<-在另一个表中的字段的名字rel.Fields.Append relfld
      

  2.   

    一结贴就出这个:
    Microsoft OLE DB Provider for SQL Server 错误 '80004005' Subquery returned more than 1 value. This is not permitted when the subquery follows =, !=, <, <= , >, >= or when the subquery is used as an expression. /Expert/FAQ/FAQ_SQL.asp，行62 咋整的?