Question

我想要在vb中访问access数据库，获取数据库中的x，y坐标值，然后在网格坐标中显示出来，求给我代码，

大致如图所示，先给50，做好了我还会加的

Answer 1

主要代码 供参考 如需详细 请给出数据库结构
工程引用 microsoft dao 3.6 object library

'定义一个数据库
dim zb As Database
'打开一个数据库
Set zb = OpenDatabase(App.Path + "\countzb.mdb")
'定义一个记录集
Dim select_cxxm As Recordset
'取得该记录集
Set select_cxxm = zb.OpenRecordset("select * from cxxm where id='1'", dbOpenDynaset)
'取得记录集中的 x y 字段
label1.text=select_cxxm.fields("x")
label2.text=select_cxxm.fields("y")

追问

大神，可以用vb帮我做一下吗，我是初学者

追答

把数据库结构发上来看看！

追问

好像发不了文件，

追答

Dim zb As Database
Dim x As Integer
Dim y As Integer
Dim str_id As String
Set zb = OpenDatabase(App.Path + "\表.mdb")
Dim select_cxxm As Recordset
Set select_cxxm = zb.OpenRecordset("select * from 定位节点", dbOpenDynaset)
Do While Not select_cxxm.EOF
x = select_cxxm.Fields("x")
y = select_cxxm.Fields("y")
str_id = select_cxxm.Fields("id")
Form1.Picture1.Circle (x, y), 40, vbYellow '画圆
Form1.Picture1.CurrentX = x + 50
Form1.Picture1.CurrentY = y - 30
Picture1.Print str_id ‘写id
Loop
原理：取定位节点的每条记录 在图像控件picture1的x，y位置画圆 在圆下方输出 id 慢慢调试