求助：我是新手，作出来的程序有很多问题，好心人帮我查查错吧，我快绝望了
我是用VB和ACCESS编一个查询的可视化界面，要实现点击按钮后会以文本方式查到。现在VB和ACCESS连接已经成功了，查询出了问题，只有数据表的第一项可以查到，其余的根本查不到，是不是recordset出现的问题啊，我编程能力有限，求高手解答
Public db As DatabasePublic
rs As Recordset
Sub main()
Set db = db.OpenDatabase(App.Path + 电源系统.mdb)
Set rs = db.OpenRecordset("power")
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Dim strsql As String
strsql = "SELECT 导线编号 FROM power WHERE 导线编号='" & Text1.Text & "'"
Adodc1.Refresh
Adodc1.RecordSource = strsql
If Not Adodc1.Recordset.EOF Then
Form4.Text1.Text = Adodc1.Recordset.Fields("导线编号")
End If
Form4.Show
Form4.Text1.Text = Adodc1.Recordset("导线编号")
Form4.Text2.Text = Adodc1.Recordset("导线类型")
Form4.Text3.Text = Adodc1.Recordset("编号")
Adodc1.Recordset.Close
Set Adodc1.Recordset = Nothing
End Sub
--------------------编程问答-------------------- 你应该是少了一个循环语句！！ --------------------编程问答-------------------- 能具体点吗？不太明白 --------------------编程问答-------------------- 具体不太明白你要怎么出数据，如果是
If Not Adodc1.Recordset.EOF Then
Form4.Text1.Text = Adodc1.Recordset.Fields("导线编号")
End If
这里出数据库记录的话试下改成：
If Not Adodc1.Recordset.EOF Then
do while not Adodc1.Recordset.EOF
Form4.Text1.Text = Adodc1.Recordset.Fields("导线编号")
Adodc1.Recordset.MoveNext
loop
End If
反正就是在出表数据的地方加个循环 --------------------编程问答-------------------- do while not Adodc1.Recordset.EOF
Form4.Text1.Text = Adodc1.Recordset.Fields("导线编号")
Adodc1.Recordset.MoveNext
loop
外面的if不用加了
--------------------编程问答--------------------
对头 --------------------编程问答-------------------- 加循环没用的.因为他的目的是点击COMMAND来实现符合TEXT1文本条件的数据检索.
检索结果应该是对应只有一条记录.
1\既然前面已经用RS了,为什么后面又要用数据控件?
2\strsql = "SELECT 导线编号 FROM power WHERE 导线编号='" & Text1.Text & "'"
这句返回的记录集结果只有"导线编号"这个字段.
你后面想要在文本中显示"类型"\"编号"肯定是没有的.
改成"SELECT 导线编号,导线类型,编号 FROM power WHERE 导线编号='" & Text1.Text & "'"
--------------------编程问答-------------------- 好问题！
补充：VB , 数据库(包含打印，安装，报表)
