我编写了如下代码进行数据连接,可是在结果中没有数据显示出来,但在控件上显示出了和数据条数一样多的行,请各位高手帮忙解决!谢谢!
str = "select * from rydlxx order by 人员编号 "
mrc.Open str, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = mrc
DataGrid1.Columns(0).DataField = mrc!人员编号
DataGrid1.Columns(1).DataField = mrc!账户名
DataGrid1.Columns(2).DataField = mrc!人员类别
  Set mrc = Nothing

解决方案 »

  1.   

    str = "select * from rydlxx order by 人员编号 "
    mrc.Open str, db, adOpenKeyset, adLockPessimistic
    Set DataGrid1.DataSource = mrc
      

  2.   

    将mrc.cusorlocation设为useclient,好像是这么写,英文单词记不清了。反正就是设置为客户端游标。
      

  3.   

    是不是DataGrid除了DataSource之外还有其它的属性要设置?
      

  4.   

    mrc.CursorLocation = adUseClient去掉 Set mrc = Nothing另,
    DataGrid1.Columns(0).DataField = mrc!人员编号
    DataGrid1.Columns(1).DataField = mrc!账户名
    DataGrid1.Columns(2).DataField = mrc!人员类别
    可以不要。如果想自定义布局,可以实现编辑一下 DataGrid 属性。