[转贴]：利用CAO和VBA编辑链接的属性

efan2000

以下的内容转载于明经通道：http://www.mjtd.com/ 。

2. 
   
3.   [FONT=courier new]
   
4. 问：你想使用VBA编辑对象数据库链接的属性。
   
5. 答：
   
6. 
   
7. 使用连接自动控制对象(CAO) API来编辑对象数据库链接的属性。以下示例演示了怎样编辑链接的键值。
   
8. 
   
9. Sub f_editLinks()
   
10. '声明
    
11. Dim po_dbc As DbConnect
    
12. Dim po_lpn As CAO.LinkTemplate
    
13. 
    
14. Dim po_link As CAO.Link
    
15. Dim po_links As CAO.links
    
16. 
    
17. Dim po_keyVs As CAO.KeyValues
    
18. Dim po_keyV As CAO.KeyValue
    
19. 
    
20. '开始数据库连接
    
21. Set po_dbc = ThisDrawing.Application.GetInterfaceObject("CAO.Dbconnect")
    
22. 
    
23. '获取第一个链接模板。确认你至少有一个链接模板
    
24. Set po_lpn = po_dbc.GetLinkTemplates(ThisDrawing).Item(0)
    
25. 
    
26. '获取和链接模板关联的链接。
    
27. '你也可提供对象ID数组来获得和对象关联的链接
    
28. Set po_links = po_dbc.GetLinks(po_lpn)
    
29. 
    
30. '获取第一个链接
    
31. Set po_link = po_links(0)
    
32. Set po_keyVs = po_link.KeyValues
    
33. 
    
34. '获得第一个键值。
    
35. '记住它可以有多个键值
    
36. Set po_keyV = po_keyVs(0)
    
37. 
    
38. '更改键值的值。假定键值为数字的
    
39. po_keyV.Value = 1234
    
40. po_link.Update
    
41. 
    
42. End Sub  
    
43. 
    
44. 原作者  郑立楷  来 源  明经通道  
    
45.   [/FONT]
    

<br />   [FONT=courier new]<br /> 问：你想使用VBA编辑对象数据库链接的属性。 <br /> 答：<br /> <br /> 使用连接自动控制对象(CAO) API来编辑对象数据库链接的属性。以下示例演示了怎样编辑链接的键值。 <br /> <br /> Sub f_editLinks() <br /> '声明 <br /> Dim po_dbc As DbConnect <br /> Dim po_lpn As CAO.LinkTemplate <br /> <br /> Dim po_link As CAO.Link <br /> Dim po_links As CAO.links <br /> <br /> Dim po_keyVs As CAO.KeyValues <br /> Dim po_keyV As CAO.KeyValue <br /> <br /> '开始数据库连接 <br /> Set po_dbc = ThisDrawing.Application.GetInterfaceObject("CAO.Dbconnect") <br /> <br /> '获取第一个链接模板。确认你至少有一个链接模板 <br /> Set po_lpn = po_dbc.GetLinkTemplates(ThisDrawing).Item(0) <br /> <br /> '获取和链接模板关联的链接。 <br /> '你也可提供对象ID数组来获得和对象关联的链接 <br /> Set po_links = po_dbc.GetLinks(po_lpn) <br /> <br /> '获取第一个链接 <br /> Set po_link = po_links(0) <br /> Set po_keyVs = po_link.KeyValues <br /> <br /> '获得第一个键值。 <br /> '记住它可以有多个键值 <br /> Set po_keyV = po_keyVs(0) <br /> <br /> '更改键值的值。假定键值为数字的 <br /> po_keyV.Value = 1234 <br /> po_link.Update <br /> <br /> End Sub  <br /> <br /> 原作者  郑立楷  来 源  明经通道  <br />   [/FONT]<br />

catchy_sky

老大，这是已经知道连接了，然后更改连接的列子，
能不能给个自动连接的列子。