首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

DataGrid1不能显示,该如何处理

2012-03-30 
DataGrid1不能显示小弟我刚刚学习vb,现在一问题,我现在有一个窗体,一个模块。我在窗体中有一个DataGrid.我

DataGrid1不能显示
小弟我刚刚学习vb,现在一问题,我现在有一个窗体,一个模块。我在窗体中有一个DataGrid.我在模块中写如下代码:
--------------------------------------------------
Option   Explicit
Public   con   As   New   ADODB.Connection
Public   rst   As   New   ADODB.Recordset

Public   Sub   main()
con.ConnectionString   =   "Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID=sa;   password   =   ****;Initial   Catalog=linshi;Data   Source=Mycomputer "
con.Open
  Form1.Show
End   Sub
--------------------
然后在窗体的load   事件中写这样的代码:
------------------------------------------------
Option   Explicit

Private   Sub   Form_Load()
    rst.Open   "select   *   from   table ",   con,   adOpenDynamic,   adLockOptimistic
   
    Set   DataGrid1.DataSource   =   rst
End   Sub
------------------------------------------------------
我的目的就是想让DataGrid1显示数据,可是会出现这样的错误,如下:
---------------------------------
The   rowset   is   not   bookmarkable!
------------------------------------
这是为什么?
-----------------------------

[解决办法]
Public Sub main()
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password = ****;Initial Catalog=linshi;Data Source=Mycomputer "
con.CursorLocation = adUseClient
con.Open
Form1.Show
End Sub
加上con.CursorLocation = adUseClient

热点排行