设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2081|回复: 1

[ADO/DAO] ACCESS VBA开发记录集问题。请大神帮忙解答

[复制链接]
发表于 2017-11-17 21:25:44 | 显示全部楼层 |阅读模式
本帖最后由 songjiecf 于 2017-11-17 21:31 编辑

现有两个表。

Set ParConn = CurrentProject.Connection
Set BasConn = CurrentProject.Connection
BasRs.LockType = adLockPessimistic


ParRs.Open "parameter", ParConn
BasRs.Open "BasicData", ParConn
------------------这段是一个字符串截取的代码
Do Until ParRs.EOF = True

   MsgBox ParRs.Fields(0)

   c = InStr(main, ParRs.Fields(0))
If c > 0 Then

    c = c + ParRs.Fields(1)

    For i = c To Len(main)
        s = Mid(main, i, 1)
            If s <> ";" Then
                t = t & s
            Else
                Exit For
            End If
    Next i
-------------
    abo = ParRs.Fields(2) 我想实现一个字段的映射关系,由上表可知abo变量是  “代码”
    BasRs.AddNew  新增
    BasRs!"&"abo = t   这个地方不会写了。 如何能够达到 basrs!代码=t 这个效果呢?
    BasRs.Update
    MsgBox t
    t = ""


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2017-11-17 21:42:17 | 显示全部楼层
问题 解决了。basrs.fields(abo)=t  搞定。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-28 22:48 , Processed in 0.102355 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表