请教ADO对像连接DataGrid控件的问题

Question

在模块中
fileName = App.Path & "\server.mdb"
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & fileName & "';Persist Security Info=False"
Set con = New ADODB.Connection
con.ConnectionString = constr
con.Open在窗体中Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "select * from 工资", conSet DataGrid1.DataSource = rs
con.CursorLocation = adUseClient
DataGrid1.ReBind
DataGrid1.Refresh请问为什么显示The rowset is not bookable
我应该怎么改呀

Answer 1

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.LockType = adLockBatchOptimistic
rs.CursorLocation = adUseClientrs.Open "select * from 工资", con
set rs.activeconnection=nothingSet DataGrid1.DataSource = rs

Answer 2

在模块中
fileName = App.Path & "\server.mdb"
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & fileName & "';Persist Security Info=False"
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.ConnectionString = constr
con.Open在窗体中Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "select * from 工资", con, adOpenKeyset, adLockReadOnlySet DataGrid1.DataSource = rs

Answer 3

谢谢,请问大哥为什么con.Cursorlocation=adUseClient这句话加在窗体中的代码中就不行呢?
必须加在模块中才可以?

Answer 4

谢谢,请问大哥为什么con.Cursorlocation=adUseClient这句话加在窗体中的代码中就不行呢?
///可以加在窗體中間，但是必須加在rs.Open "select * from 工资", con,3,1的上面

Answer 5

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.LockType = adLockBatchOptimistic
rs.CursorLocation = adUseClientrs.Open "select * from 工资", conSet DataGrid1.DataSource = rs
Datagrid1.refresh

Answer 6

DataGrid是不是最强大的数据控件??哪位大哥可以告诉我怎么设置列宽和些列内容的最大宽度一样?
还是告诉我怎么给分呀?

Answer 7

不是，強大的有很多，比如 spread回復. 收藏..那一排中有個管理，給了分以後，填你的密碼，然後確定給分