VB查询一个Access数据库的菜鸟问题

Question

呵呵！我又来这里提问了！最后10分了！大家不要嫌分少就不理我哈！C:\item.mdb是一个Access数据库。
表结构大致如下姓名  性别  年龄  分数 备注
王某  男  19  398  三好学生
张某  男  18  372  优秀班干部
李某  女  19  422  优秀班干部 三好学生
我要在VB窗体中做一个查询，查询所有库纪录，把所有的三好学生都列出一张表呢？因为我第一次接触VB和MDB。所以用什么控件都不大清楚，我改如何着手呢？该怎么实现呢？我自己尝试摸索了一下，用VisData已经更具item.mdb建立可一个窗体，可以浏览所有的库数据了~但是现在无法实现最重要的查询部分。请各位大大不吝相助。在线等待。

Answer 1

sql="select 姓名,性别,年龄,分数,备注 from table where 备注 like '%三好学生%'"

Answer 2

hdhai9451(※★AC米兰☆※)  大大，这条语句在那里输入？Command的单击事件里面直接输入？返回的结果sql要在那里才能看到？

Answer 3

我也是新来的：
先建立一个连接拉：dim cn as adodb.connection
dim rs as adodb.recordset
cn.open path  '***path是连接字符串哒
sql="select 姓名,性别,年龄,分数,备注 from table where 备注 like '%三好学生%'"
rs.open sql ......(后面的我有不大记得了)

Answer 4

哦！你们都用ADO啊？我窗体上只有一个Date1，还是VisData自动生成的！我要换么？rs.open sql 后应该做什么了呢？要怎么把返回的结果显示出来？？

Answer 5

OK!!!OK!!!经过自己慢慢摸索，终于发现Dim MySql As String
'mysql = "Select ... From ..... Where......" 'SQL查询语句
MySql = "select 姓名,性别,年龄,分数,备注 from table where 备注 like '三好学生'"
Data1.RecordSource = MySql
Data1.Refresh
就可以让Data1列出符合要求的数据~好了！ 问题继续有什么好的办法让这些纪录现实的更加人性化？

Answer 6

你可以把内容显示在MSFLEXGRID里MSFlexGrid1.TextMatrix(行,列)=rs.feilds("字段名")
当然你要徇环一下了把所有的内容都写进去!!!

Answer 7

今天我正常上班，忙，不在線......
Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL ="select 姓名,性别,年龄,分数,备注 from table where 备注 like '%三好学生%'"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub