[求助][VBA]VBA高手！数据库链接问题！

petertian

斑竹及各位大虾：我欲将图内房子中的数字代码作为ID链接字段和数据库（access）相链接，用VBA编程，我现在可以用VBA读出数据库中的记录值，也可以读出房子中的ID值，我怎样用VBA编程自动的将房子和对应的数据库纪录链接起来，因为房子很多，图幅也很多我不可能用手工一个一个的去链接，站长的“AutoCAD VBA开发精彩实例教程”中
好像也没有相关的内容！感谢大家！图和数据库在附件中，（我是CAD R2000版本）

雪山飞狐_lzh

按ID查询，你的图纸上有房子的ID号麽

petertian

房子上有ID号，图上和数据库中都有！

雪山飞狐_lzh

你是想达到什么样的效果？将房子和对应的数据库纪录链接起来干什么？


把问题写清楚

petertian

在2000中进行查询操作呀！因为图形要和数据库中的纪录链接，如果用手工操作，可以用菜单中的tools/dbconnect，一个一个的逐纪录链接，但是那样太麻烦、工作量太大，所以我想用VBA编写一个程序，因为房子中已经提前标注了ID,数据库中也有iD,我只要搜索出ID值一样的纪录，将其与房子链接起来就行了。一点击房子查询数据库，就可以查询出房子的属性！图和数据库都在一楼！多谢大虾！

雪山飞狐_lzh

用ADO控件或对象连接Access数据库，再做个查询不就完了

petertian

我现在要做的不是链接不上，可以链接，需要手工选择一个对象，然后再选择一个纪录链接，但是我的房屋很多，我不可能用手工去做，我的意思是用程序怎么实现自动链接，你说的方法可以去读取数据库，最数据库进行操作，但是链接怎么做？？？手工做法是用菜单中的tools/dbconnect！谢谢！

雪山飞狐_lzh

用Adodc和DataGrid控件不要任何代码就可以链接数据库，


把VB的数据库的操作找本书看看

雪山飞狐_lzh

给你一段代码慢慢研究吧

2. Dim mycon As New ADODB.Connection
3. Dim myrs As New Recordset
4. Private Sub Form_Load()
5. mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False"
6. mycon.Open
7. myrs.ActiveConnection = mycon
8. myrs.CursorType = adOpenDynamic
9. myrs.CursorLocation = adUseClient
10. myrs.Open "select * from Categories"
11. Set DataGrid1.DataSource = myrs
12. DataGrid1.Refresh
13. End Sub

Dim mycon As New ADODB.Connection Dim myrs As New Recordset Private Sub Form_Load() mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False" mycon.Open myrs.ActiveConnection = mycon myrs.CursorType = adOpenDynamic myrs.CursorLocation = adUseClient myrs.Open "select * from Categories" Set DataGrid1.DataSource = myrs DataGrid1.Refresh End Sub

红色的部分自己改成你连接的数据库名和表名

petertian

多谢楼上！我试试！