怎么让datagrid直接等于记录集呀?

Question

rs1.Open "select * from para_dept", Cn, adOpenKeyset, adLockReadOnly '载入数据
Set DataGrid1.DataSource = rs1.DataSource结果什么也没显示

Answer 1

改为:Set DataGrid1.DataSource = rs1

Answer 2

前面是不是应该加上这么一条
rs1.CursorLocation=adUseClient

Answer 3

这个方法很好
   Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
   
   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 DataGrid2.DataSource = adoPrimaryRS

Answer 4

你试试吧，好用的
记得要引用adoDim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
   'strsql 是你的查询语句 你可以order by 排序的字段
   'strsql="select xh as 学号 from 表" 这里的学号就是你数据表中字段的标题
   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 DataGrid1.DataSource = adoPrimaryRS
end sub

Answer 5

这句错了：Set DataGrid1.DataSource = rs1.DataSource
应该是这样：Set DataGrid1.DataSource = rs1