运行Vb.net显示更新异常

Question

 I've a website in vb.net. While running the website i get the following error:

“当前记录集不支持更新。这可能是提供商或所选锁定类型的限制。”

 My DB connection.inc file looks as follows:

Dim strDataSource As String Dim cnnCRM作为ADODB.Connection

我尝试过为记录集对象提供所需的所有属性。还是一样的错误。任何人都可以告诉我如何摆脱这个错误吗？.....

---

数据库拥有完全权限。当我调用一个函数时发生了这个错误。我的代码如下所示：

＆lt;％=（funcGetMaxDate（rstAWCList.Fields（“TOMONTH”）。Value，rstAWCList.Fields（“TOYEAR”）。Value）＆amp;“/”＆amp; IIF（IsDBNull（rstAWCList.Fields.Item（“ TOMONTH“）。值），Nothing，rstAWCList.Fields.Item（”TOMONTH“）。Value）＆amp;”/“＆amp; IIF（IsDBNull（rstAWCList.Fields.Item（”TOYEAR“）。Value），Nothing，rstAWCList .Fields.Item（ “TOYEAR”）值））％＆GT。

定义完美无缺。功能定义如下：

函数funcGetMaxDate（ByRef prmMonth As String，ByRef prmYear As String）As String     Dim intPrmMonth As Integer     intPrmMonth = prmMonth     Dim iDate As String

Select Case intPrmMonth
    Case 1
        iDate = 31
    Case 2
        iDate = CheckMaxDateFebruary(prmYear)
    Case 3
        iDate = 31
    Case 4
        iDate = 30
    Case 5
        iDate = 31
    Case 6
        iDate = 30
    Case 7
        iDate = 31
    Case 8
        iDate = 31
    Case 9
        iDate = 30
    Case 10
        iDate = 31
    Case 11
        iDate = 30
    Case 12
        iDate = 31
    Case Else
        iDate = 0
End Select  
funcGetMaxDate = iDate  

结束功能

当ctrl回到调用函数时，会发生此异常.....

Answer 1

看起来您需要指定adOpenDynamic或adOpenStatic等游标信息以及锁定adLockOptimistic

等信息

RS.Open(..., Con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

此外，您会发现.Net世界中的大多数人已经离开ADODB并使用本机SqlClient或本机OLEDB提供程序。

Answer 2

网站运行的用户是否有权修改该MDB文件？如果数据库是只读的或只具有NTFS读取权限，则可能会报告此错误。