• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 253
  • Last Modified:

Read Write Permissions

Is there anything in the code below that would throw a Read/Write Permission error???


  rs2 = New ADODB.Recordset
                    rs2.Open("SELECT * FROM tblFTR_strSQL ORDER BY tblFTR_strSQL.FTRSQL_Seq;", appAcc, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
                    Do Until rs2.EOF
                        currstr = rs2.Fields("FTRSQL_Seq").Value
                        rst = New ADODB.Recordset
                        rst.Open(rs2.Fields("strSQL").Value, appAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
                        rs2.MoveNext()
                    Loop

rst.Open(strsql, libAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                        libAcc.Close()
                        strsql = "INSERT INTO [" & TblNm & "] IN '" & libpth & rs2.Fields("LibMdbNm").Value & DtStr & ".mdb' SELECT [" & TblNm & "].* FROM [" & TblNm & "];"
                        rst = New ADODB.Recordset
                        rst.Open(strsql, appAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                        strsql = "Delete * FROM [lib_Ind] WHERE [lib_Ind].FLNM=""" & rsFL.Fields("flnm").Value & """ and [lib_Ind].TblNM=""" & TblNm & """;"
                        libAcc.Open(libStr)
                        rst = New ADODB.Recordset
                        rst.Open(strsql, libAcc, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                        libAcc.Close()

0
LAppling7775
Asked:
LAppling7775
1 Solution
 
iboutchkineCommented:
Check if Access database has read/write permission.
0

Featured Post

NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now