1,217
社区成员
发帖
与我相关
我的任务
分享在线等，指教！
上次说用ado调excel在datagrid中显示的问题，有高手告诉我这么做
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
但是我在datagrid 中修改号数据后，不能对记录集更新，一运行rs.updatebatch总是说：该查询不能更新！
不知是什么问题？
麻烦各位了
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
但是我在datagrid 中修改号数据后，不能对记录集更新，一运行rs.updatebatch总是说：该查询不能更新！
不知是什么问题？
麻烦各位了
...全文
请发表友善的回复…
发表回复
hhjjhjhj 2004-01-30
- 打赏
- 举报
......
Dim sconn As new Connection
sconn.open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
....
这样可以吗
Dim sconn As new Connection
sconn.open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
....
这样可以吗
