大家帮帮我。

Question

Private Sub Form_Load()
Call dbopen
SQL = "select mc as 学院名称,dm as 学院代码 from xs_xy"
rsopen (SQL)
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub我用msgbox rs.recordcount测试过，里面有21条记录。
但是在datagrid1控件里却什么也没有，真奇怪，请高手请教。

Answer 1

Dim CN   As New adodb.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New adodb.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient   ‘加上这个试试
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
   Set DataGrid1.DataSource = Rs
   

Answer 2

Private Sub Form_Load()
Call dbopen
SQL = "select mc as 学院名称,dm as 学院代码 from xs_xy"
rsopen (SQL)
rs.CursorLocation = adUseClient'使用客户端游标，要不然datagrid控件没有显示
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub