<<< 返回 access911.net 编程静态资料库索引页

生成表查询,怎么连原表的主键一起copy进去?

 

作者:  摘自:  录入:cg1  时间:2003-5-2  浏览人次:4654


专题地址:http://access911.net/fixhtm/74FAB01E16DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


select ... into 以后再使用adox建立主键
Sub CreateKey()

    Dim kyForeign As New ADOX.Key
    Dim cat As New ADOX.Catalog

    ' Connect the catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\Program Files\Microsoft Office\" & _
        "Office\Samples\Northwind.mdb;"

    ' Define the foreign key
    kyForeign.Name = "CustOrder"
    kyForeign.Type = adKeyForeign
    kyForeign.RelatedTable = "Customers"
    kyForeign.Columns.Append "CustomerId"
    kyForeign.Columns("CustomerId").RelatedColumn = "CustomerId"
    kyForeign.UpdateRule = adR.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/74FAB01E16DC.htm

 


上一篇:如何在连续窗体中反白显示获得焦点的记录

下一篇:如何设定表的某字段默认值?

2017年2月22日生成静态资料