2016-03-15 33 views
-1

'大家好, 我做了VBA,這段代碼在訪問數據庫中增加了新的記錄。但問題是,當多個運行vba我得到錯誤信息爲「無法識別的數據庫格式」「運行時錯誤3343. 任何人可以告訴我爲什麼我得到這個錯誤。我的代碼是如何添加新的記錄通過vba訪問

+0

顯示您的代碼請.. –

+0

PrivateSubExportNewData() DimWsAsWorksheet DimrsAsNewRecordset SetWs = ActiveWorkbook.Sheets(1) J = 3個 DoWhileNotWs.Cells(J,2)= 「」 J = J + 1 環路 Ifrs.State = 1Thenrs.Close rs.Open 「SELECT * fromDatawhereid = 0」,cn.db,adOpenDynamic,ADLOCKOPTIMISTIC IfNotrs.EOFThenExitSub 法院地= 4Toj-1 rs.AddNew rs.Fields (「如rs.Fields(「LNumber」)= Ws.Cells(i,2)'LockboxNumber rs.Fields(「DepositDate」)= Ws.Cells(i,3)'DepositDate rs。字段( 「B-號碼」)= Ws.Cells(I,4) 'CustomerBatchNumber rs.Fields( 「CNumber」)= Ws.Cells(I,8)' CheckNumber me'Username rs.Update Nexti RS。關閉 cn.db.Close Setrs =無 EndSub – VKB

+0

顯式的選項 公共DB作爲新ADODB.Connection 公共str作爲字符串 私人小組Class_Initialize() If db.State = 1 Then db.Close 'db.ConnectionString =「Provider = Microsoft.ACE.OLEDB.12.0; Data Source = \\ 1245.4578 \ 1245 \ Users \ 1245 \ 1245 \ Daily report \ Team Database不要刪除\ REPORT.accdb;「 db.Open 結束小組 – VKB

回答

0
+0

謝謝你,我的代碼也可以運行文件。當多個用戶使用或多個用戶導出數據時Access損壞。它會給出錯誤信息爲「無法識別的數據庫格式」「運行時錯誤3343.任何想法擺脫這一點。 – VKB