DATAGRID与RS的绑定,无显示...怪

Question

我先在FORM内加入一个datagrid1..在一个事件中..我执行以下:
 Dim conn As New ADODB.Connection
 conn.ConnectionString = "Provider=sqloledb;Data Source=DB_server;User ID=sa;PWD=as;Initial Catalog=dm_system"
 conn.Open
        
  Dim rs As New ADODB.Recordset
        rs.ActiveConnection = conn
        rs.CursorLocation = adUseClient
        rs.Open "select * from ma_interest_tbl"
        MsgBox ("this first value is " & rs.Fields(1).Value)
        Set DataGrid1.DataSource = rs
       ' DataGrid1.Refresh
        rs.Close
        conn.Close已经确定RS能读到数据...但是DATAGRID只是闪一下,并没有出现RS的数据...怪??!!

Answer 1

加上Conn.CursorLocation = adUseClient
和Rst.Open SQLString, Conn, adOpenStatic, adLockOptimistic

Answer 2

说的清楚一点就是：Dim conn As New ADODB.Connection
 conn.ConnectionString = "Provider=sqloledb;Data Source=DB_server;User ID=sa;PWD=as;Initial Catalog=dm_system"
Conn.CursorLocation = adUseClient
conn.Open
Dim rs As New ADODB.Recordset
        rs.ActiveConnection = conn
        rs.CursorLocation = adUseClient
        rs.Open "select * from ma_interest_tbl",Conn, adOpenStatic, adLockOptimistic
        MsgBox ("this first value is " & rs.Fields(1).Value)
        Set DataGrid1.DataSource = rs
       ' DataGrid1.Refresh
        rs.Close
        conn.Close

Answer 3

Dim conn As New ADODB.Connection
 conn.ConnectionString = "Provider=sqloledb;Data Source=DB_server;User ID=sa;PWD=as;Initial Catalog=dm_system"
 conn.Open
        
  Dim rs As New ADODB.Recordset        rs.CursorLocation = adUseClient
        rs.Open "select * from ma_interest_tbl",",Conn, adOpenStatic, adLockOptimistic        MsgBox ("this first value is " & rs.Fields(1).Value)
        Set DataGrid1.DataSource = rs

Answer 4

修正
rs.Open "select * from ma_interest_tbl",Conn, adOpenStatic, adLockOptimistic

Answer 5

我觉的是不是你把rs和 cn都关闭了才显示不出来的,你把那两句去去掉看看,
rs.Open "select * from ma_interest_tbl",conn,adOpenStatic, adLockOptimistic,adcmdtext
set datagrid1.datasource=rs

Answer 6

Set DataGrid1.DataSource = rs
       ' DataGrid1.Refresh
        rs.Close
        conn.Close
是这样：Set DataGrid1.DataSource = rs
       DataGrid1.Refresh
       ' rs.Close
       ' conn.Close
关闭了，就什么都没有了耶

Answer 7

NOD...我只想到用了RS和CONN后释放它们,没想到不能用了...原来要活的...

Answer 8

用过的rs conn记得关闭时好事情，不过你要放到工作结束再关，比如放到form的unload中