关于ＡＤＯ与ＤＡＴＡＧＲＩＤ的问题2

[go2x]

我的代码如下，为什么ＤＡＴＡＧＲＩＤ中不显示内容
Option Explicit
Dim cat As New ADOX.Catalog
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim pstr As String
Dim RS As ADODB.Recordset
Dim strsql As String
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\feita.mdb;Persist Security Info=False"
conn.Open pstr
Set RS = New ADODB.Recordset
strsql = "select * from k"
RS.Open strsql, conn, adOpenKeyset, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = RS
DataGrid1.Refresh
RS.Close:set rs=nothing
conn.Close:set conn=nothing
conn.CursorLocation = adUseClient
但是数据不会停留在ＤＡＴＡＧＲＩＤ表中，鼠标抬起数据就消失了，为什么

[南山明月]

我的代码如下，为什么ＤＡＴＡＧＲＩＤ中不显示内容
Option Explicit
Dim cat As New ADOX.Catalog
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim pstr As String
Dim RS As ADODB.Recordset
Dim strsql As String
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\feita.mdb;Persist Security Info=False"
conn.Open pstr
Set RS = New ADODB.Recordset
strsql = "select * from k"
conn.CursorLocation = adUseClient

RS.Open strsql, conn, adOpenKeyset, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = RS
DataGrid1.Refresh

[南山明月]

我的代码如下，为什么ＤＡＴＡＧＲＩＤ中不显示内容
Option Explicit
Dim cat As New ADOX.Catalog
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim pstr As String
Dim RS As ADODB.Recordset
Dim strsql As String
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\feita.mdb;Persist Security Info=False"
conn.Open pstr
conn.CursorLocation = adUseClient
Set RS = New ADODB.Recordset
strsql = "select * from k"


RS.Open strsql, conn, adOpenKeyset, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = RS
DataGrid1.Refresh

[go2x]

只可以操作一次
第二次，提示对象打开时，不允许操作，为什么

[南山明月]

在第二次打开时
加上
if rs.state=1 then
rs.close :set rs=nothing
endif

[南山明月]

你肯定是新手
有此东西比如 conn 应该做在全局里

[南山明月]

程序结构部局不合理吧,