| IT猫扑网 | 论坛社区 | 网址导航 | 网管博客 | 软件下载 | 下载中心 | 小游戏 | 图片频道 | 免费电影 | 猫扑小说 | 免费代理 | 站长工具 | 登陆 | 会员注册 | 收藏本站 |
|
|
| 网管首页 操作系统 路由交换 服务器 数据库 网络安全 系统集成 网络编程 IT认证考试 热门排行 视频教程 杀毒更新 下载 论坛 高级搜索 网站地图 |
| 当前位置:IT猫扑网|网管联盟 > 数据库 > MSSQL > 一个Access数据库数据传递的实例方法 |
使用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 |