Question

VB使用TEXT对ACCESS查询

TEXT1 TEXT2
ACCESS 为 ORDER 表为USERMSG 内容如下：
NO1 NO2
1 2
4 7
如果TEXT1 中数据是1 打开VB 则直接在TEXT2内显示 ACCESS中NO2的数据"2",
同理TEXT1 中数据是4 开VB 侧直接在TEXT2内显示 ACCESS中NO2的数据"7"。

使用控件的 我会 但是碰到 打开界面就显示 我的就失败了，求解，求助！谢谢
我源码
Private Sub ViewData() '定义显示数据的过程
With rs
Text1(0).Text = .Fields("no1") '这是TEXT1
Text1(1).Text = .Fields("no2") '这是 TEXT2
End With
End Sub
——————————————————
Private Sub Form_Unload(Cancel As Integer)

rs.Close
cnn.Close

Set rs = Nothing
Set cnn = Nothing
End Sub
------------------------------
Private Sub Form_Load()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\order.mdb;Persist Security Info=False"
rs.Open "select * from usermsg", cnn, adOpenKeyset, adLockOptimistic

ViewData

Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
rs.Filter = "NO1 = " & Text1(0).Text & ""
Debug.Print rs.Filter
ViewData
End Sub
-------------
能给出完整代码 最好 非常谢谢

Answer 1

你直接用数据库中的语句select 查询text1的内容，查找到m行后，直接让text2=表usermsg的m行2列的内容就可以了