￥$￥ 关于DBGrid：请问如何将SQL查询的结果放到DBGrid控件中？ ￥$￥

Question

请问如何将SQL查询的结果放到DBGrid控件中？1、得到SQL结果的代码如下:
    Set conn = New Connection
    Set rs = New Recordset
    sdbname = App.Path + "\Database.mdb"
    sPassword = ""
    str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
    conn.Open str
    rs.Open "Select 姓名, 密码 from ask where 经验值 = ' 1'", conn, 3  （SQL结果存放在rs中）2、请问如何将rs中的结果放到DBGrid中（让DBGrid“只”显示rs的内容）3、也可以用其他方式获得结果，但必须使用SQL语句，并且要能将SQL的查询、删除、更新等结果“能”放入到DBGrid中。谢谢大家帮忙。

Answer 1

直接绑定rs记录集啊更删改查过后刷新一下rs就可以了啊

Answer 2

DBGrid.datesource=rs直接控件属性设置绑定或者程序中指定刷新

Answer 3

DBGrid是vb5的控件，VB6 不再直接提供 DBGrid 控件

Answer 4

    Set conn = New Connection
    Set rs = New Recordset
    sdbname = App.Path + "\Database.mdb"
    sPassword = ""
    str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
    conn.Open str
    rs.Open "Select 姓名, 密码 from ask where 经验值 = ' 1'", conn, 3    用DataGrid控件的话，用 Set DataGrid1.DataSource=rs 就可以显示rs的数据了

Answer 5

你试试吧，好用的
记得要引用adoDim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
   'strsql 是你的查询语句 你可以order by 排序的字段
   'strsql="select xh as 学号 from 表" 这里的学号就是你dbgrid中列的标题   strsql="select 字段 from 表"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DbGrid1.DataSource = adoPrimaryRS
end sub

Answer 6

直接棒定DBGrid的数据源,然后编写SQL查询代码!