为什么不能更新数据库？

[cnthinking]

我用Acess 2000做的数据库
从中读数据没有问题
可无法修改该数据库
代码如下：请各位高手帮忙看一下，不胜感激！





Public Sub DataModify()
Dim DataRecSet As adoDB.Recordset
Set DataRecSet = New adoDB.Recordset

DataRecSet.Open "select * from FileInfo", G_SystemCon ,adOpenKeyset ,adLockOptimistic , adCmdText


If Not DataRecSet.EOF Or Not DataRecSet.BOF Then
DataRecSet.MoveFirst
While Not DataRecSet.EOF

DataRecSet!fName = G_filename

DataRecSet.Update
DataRecSet.MoveNext
i = i + 1
Wend
End If
DataRecSet.Close
Set DataRecSet = Nothing

End Sub

[hustwjz]

数据库如果是以只读模式打开的，数据库将无法更新。另外还有一些打开模式会影响更新

[fuxc]

提示什么错误？

[wskshun]

再详细一点

[cnthinking]

-2147217887 : 无法更新字段。

[zzgthc]

把 DataRecSet.Update
拿到循环外

[cnthinking]

connection 应该不会有问题！


Public Sub DataModify()
Dim DataRecSet As adoDB.Recordset
Set DataRecSet = New adoDB.Recordset

DataRecSet.Open "select * from FileInfo", G_SystemCon ,adOpenKeyset ,adLockOptimistic , adCmdText


If Not DataRecSet.EOF Or Not DataRecSet.BOF Then
DataRecSet.MoveFirst
While Not DataRecSet.EOF

DataRecSet!fName = G_filename ‘G_filename是全局变量，由其他过程赋值

DataRecSet.Update
DataRecSet.MoveNext
i = i + 1
Wend
End If
DataRecSet.Close
Set DataRecSet = Nothing

End Sub

[cnthinking]

把 DataRecSet.Update 拿到循环外，还是提示一样的错！
程序在 DataRecSet!fName = G_filename 就中断了

[cnthinking]

想起来了，我把数据库绑到了一个DataGrid 上了，是不是这个原因？
那么，当我想更新数据是该怎么做呢？

[banping]

应该不是datagrid的问题吧！在这一步断，内容还没开始写数据库了！！


对了，这一句你是第几次时断？？第一次嘛？
如果不是，有个方法试一下！
只要对数据库有改动，就刷新！也就是一个update一个刷新！！
把datagrid也刷新！！

[banping]

知道了！！

你的连接字符串，的驱动要写成jet.4.0而不能是jet.3.51 ！！！
给我加分吧！以后我的问题，也要多多捧场呀！！

[cnthinking]

我写的是jet.4.0!要不怎么能读呢？

[cnthinking]

to :banping(半瓶)　

程序在第一次运行 DataRecSet!fName = G_filename 就中断了!