我以前写的程序,MDB数据库的连接字符串是这样的:"dsn=data"
在这种连接方式下,执行ado的recordset的UpdateBatch可以成功提交数据但我现在用如下数据连接字符串时,
" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
            "\" & g_strMDBname
执行程序时却发现以前正常的rs.UpdateBatch提示出错,提示:"有挂成的更改的行数已超过限制"请问这是为什么啊?

解决方案 »

  1.   

    Sub Main()
        Dim txt As String
        Dim msg As String
        txt = App.Path
        On Error GoTo errHand:
        contxt = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & txt & "\db.mdb"
        Set conStr = New ADODB.Connection
        With conStr
            .CommandTimeout = 500
            .ConnectionString = contxt
            .CursorLocation = adUseClient
            .Open
        End With
        If conStr.State = adStateOpen Then
            Load frmWelcome
            frmWelcome.Show
        Else
            MsgBox "系统连接数据库出错,即将退出!", vbCritical + vbOKOnly, "系统提示"
            Exit Sub
        End If
       Exit Sub
    errHand:
       MsgBox "错误代码:" & Err.Number & Chr(13) & Chr(13) & "错误原因:" & Err.Description, vbCritical + vbOKOnly, "错误提示:"
    End Sub