微软Canvas App实战之Access导入数据到SharePoint多值列

桃扇骨 2023-10-03 10:59 5阅读 0赞

> 在使用微软Canvas App进行开发过程中，使用Access导入数据到SharePoint多值列遇到的一些问题及解决方案。

由于SharePoint和Canvas App是比较常见的搭配， 所以我们有了这个Canvas App的番外篇：如何导入数据到SharePoint多值列

其实上一篇中，我们已经可以使用Power Automate进行多值列的导入工作了。我们也看得到所谓的多值列其实是一个由Id构成的数组，其形式类似于：

[{Id:值},......]

其中，Id这个标识符由具体List字段的配置决定。

今天我们介绍另一种方法，这种方法更适合于“专业”人士。即：VBA编程。

首先我们需要知道的一个知识点是，Access是什么、VBA是什么。他们为什么能完成这种“专业”任务。

Access是一个单机版的数据库，它也是Office专业版套件中的一部分。不要小看Office套件，Access可是Office中的杀手级组件。当年BBS流行于世的时代，一个Access数据库可是能撑起一个人气论坛的哦！

由于Access自己就是数据库，所以自带了一套数据库客户端所应该具备的查询分析器、查询设计器等功能。同时，由于这个是Office套件成员，天然具有Office登录的功能，自然也就可以很轻松的直接连接到微软的云产品，充当数据库客户端了。实际上Excel也是可以使用相同的方式连上微软的云服务的，只是没有写操作的能力罢了。

VBA则是Office套件中内嵌的“宏”功能的另一种形式，可以由用户自行编写代码实现一些界面效果和功能。不光Access，在Word和Excel中也是可以使用的。本文并不重点介绍VBA的基本使用，有兴趣的自行查阅官方文档，或者国内的教程。放个传送门：[Excel VBA 编程教程\_w3cschool][Excel VBA _w3cschool]

下面，我们新建一个Access数据库（假设你已经安装并拥有了授权），然后可以通过链接远程数据的方式得到一些“数据表”

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70][]

接下来，你就可以达到远程表进行数据操作了，使用方式和Excel十分接近。如果数据量小的话，完全可以复制粘贴Excel数据进去，非常简单，不做赘述。

我们具体说一下，如果有多值列，我们应该怎么办。

接着，我们做一个窗体，以便继续编写代码

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70 1][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70 2][]

接下来是重要步骤，根据你的Access版本，现在一般是用2016、2019版了，选择正确的引用。这个步骤很重要，否则写代码时是没有正确的智能感知的。甚至运行都会出错哦！

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70 3][]

然后通过这个部位的下拉框，为你的按钮等控件添加事件处理函数。我的按钮叫做Command6，所以图中就是Command6的Click了

![d9a6602f9eb4c24ae347831a7d84c763.png][]

然后，就可以发挥程序猿的专业水平了。普通的增、删、改、查代码可以通过官方文档学习，或者上面的教程网站，此处不做赘述，仅提供与多值列有关的关键代码

' ds是一个已经实例化的Recordset2类型的对象，通常由OpenRecordset打开一个表得到
            ' AddNew将会添加一行新记录。但是并没有提交保存哦！
    		ds.AddNew    
    	    
    		' 普通字段赋值语句
            ds.Fields("字段名") = 变量值
           
            
            ' 要点在此处。一个多值字段，本身就是一个记录集
            Dim rsDBAInStatesMultiValue As DAO.Recordset2
            Set rsDBAInStatesMultiValue = ds.Fields(多值列的字段名).Value
            
    		' 假设我们有一个数组，名为nameArrLength,存放有准备插入的数组项
            nameArrLength = UBound(Users) - LBound(Users) + 1
            
    		    ' 循环插入多值列的记录
                For i = 0 To nameArrLength - 1
                    rsDBAInStatesMultiValue.AddNew
                    rsDBAInStatesMultiValue("Value") = Users(i)
                    rsDBAInStatesMultiValue.Update
                Next
    			' 完成循环插入多值列，关闭多值列记录集
                rsDBAInStatesMultiValue.Close
            
    		' 这句是提交前面的 AddNew动作。否则仅仅只是添加，并不具备保存的效果
            ds.Update

通过拖拽控件、编写代码之后，将Form表单由Design视图切换回View视图，即可点击按钮控件执行我们自己编写的代码了。至于调试过程什么的，各位猿们加油吧！

**传送门:**

[微软Canvas App实战踩坑指南6番外：Access导入数据到SharePoint多值列][Canvas App_6_Access_SharePoint]

[TiDB源码学习笔记：启动TiDB][TiDB_TiDB]

[TiDB源码学习笔记：SQL的一生][TiDB_SQL]

[Excel VBA _w3cschool]: https://link.zhihu.com/?target=https%3A//www.w3cschool.cn/excelvba/
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20210714164834808.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw==,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/20210714164934462.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw==,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70 2]: https://img-blog.csdnimg.cn/20210714164951554.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw==,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw_size_16_color_FFFFFF_t_70 3]: https://img-blog.csdnimg.cn/20210714165024638.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0NCR0NhbXB1cw==,size_16,color_FFFFFF,t_70
[d9a6602f9eb4c24ae347831a7d84c763.png]: https://img-blog.csdnimg.cn/img_convert/d9a6602f9eb4c24ae347831a7d84c763.png
[Canvas App_6_Access_SharePoint]: https://zhuanlan.zhihu.com/p/336166363
[TiDB_TiDB]: https://zhuanlan.zhihu.com/p/304036138?utm_source=ZHShareTargetIDMore&utm_medium=social&utm_oi=854602979624497152
[TiDB_SQL]: https://zhuanlan.zhihu.com/p/305704259?utm_source=ZHShareTargetIDMore&utm_medium=social&utm_oi=854602979624497152