vb 数据库查询的问题

来源：百度知道 编辑：UC知道 时间：2024/05/14 14:14:30
我不会ADO编程,所以用VB自带的 外界程序_可视化数据管理器 编辑了一个三国武将数据库.使用DATA控件连接.在窗体中我放了一个text控件,一个command按钮,一个list控件,想法是在text控件里输入武将姓名,点按钮查询,在list控件里会输出武将的数据(比如光荣常用的五围).我只会查询Data1.RecordSource = "select * from 武将数据库 where 姓名='" & Text1.Text & "'" ,但这句以后如何将查询值赋给list控件让其显示呢,需要代码,特请教大家.
感谢maxjiejie2006 的回答,我修改了你的代码已经成功了.

Private Sub Form_Load()
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\txl.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from txl1", cn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
For i = 0 To 7
Text1(i).Text = rs.Fields(i)
Next i
End Sub

太多了！而且实现以后调试不一定就顺利地通过！这个东西没有标准