使用access數據庫生成申報數據與讀入數據的實例方法：
示例：
| 以下為引用的內容： sub mwrite() on error goto thiserr dim rs as new adodb.recordset rs.open "dlmd", currentproject.connection, adopendynamic, adlockoptimistic, actable rs.save "a:/dlmd.adtg", adpersistadtg rs.close set rs = nothing thisexit: exit sub thiserr: msgbox err.description resume thisexit end sub sub mread() on error goto merr dim i as integer dim rsde as new adodb.recordset dim rsso as new adodb.recordset rsso.open "a:/dlmd.adtg", "provider=mspersist" rsde.open "dlmd", currentproject.connection, adopenkeyset, adlockoptimistic, actable do until rsso.eof rsde.addnew for i = 0 to rsso.fields.count - 1 rsde.fields(i) = rsso.fields(rsde.fields(i).name) next i rsde.update rsso.movenext loop rsso.close rsde.close set rsso = nothing set rsde = nothing mexit: exit sub merr: msgbox err.description resume mexit end sub |
新聞熱點
疑難解答
