Tag: ms access

数据驱动编码UItesting:如何设置Access数据库(oledb)的数据源?

我编写了一个使用Excel电子表格数据的Visual Studio数据驱动编码的UItesting。 连接如下所示: [TestMethod, DataSource("System.Data.Odbc", @"Dsn=Excel Files;Driver=(Microsoft Excel Driver (*.xls)}; dbq=C:\Test Deliverables\Flydekasser\Data\Flydekasser beregning.xls; defaultdir=C:\Test Deliverables\Flydekasser\Data;driverid=790;maxbuffersize=2048;pagetimeout=5;readonly=true", "kasse beregning$", DataAccessMethod.Sequential), DeploymentItem(@"C:\Test Deliverables\Flydekasser\Data\Flydekasser beregning.xls")] 但是,现在我想让它使用来自Access数据库(oledb)的数据。 任何人都可以帮我改变我的代码吗?

读取access vba中的excel文件

我正在尝试使用VBA读取访问应用程序中的excel文件。 我有这个代码: Dim xlApp As Excel.Application Dim xlWrksht As Excel.worksheet 我从这里得到: 将Excel文件读入Access数据库的最佳方法 但是当我尝试运行它,我得到错误,用户定义types不定义。 我应该添加一个对应用程序的引用吗? 有什么办法可以做到这一点,而无需添加对我的应用程序的引用? 编辑1 添加引用代码后,现在我有这样的代码: Dim excelApp As Excel.Application Dim workbook As Excel.workbook Dim Worksheet As Excel.Worksheet Set excelApp = CreateObject("Excel.application") Set workbook = excelApp.Open(InputFileName) Set Worksheet = workbook.Worksheets(1) 但现在我得到错误在线: Set workbook = excelApp.Open(InputFileName) 因为excelApp没有任何叫Open的方法。 我应该添加任何其他的参考?

MicrosoftAccess / Excel:如果在这些表中的两个字段匹配,如何更新一个表中的字段以匹配另一个表中的字段?

我是一名实习生,正在处理一些数据清理工作,并且因为我正在处理的一些数据而陷入僵局。 我试图将匹配的序列号和零件号从一个表移动到新表,但只有在其他两个字段跨表匹配时才会这样。 基本上: I want [GPFixedAsset].[OasisPar] to update to [OasisFixedAssets].[PartNumber] if [GPFixedAsset].[OasisLink] = [OasisFixedAssets].[SysIDOasis] 然后序号相同: [GPFixedAsset].[OasisSer] to update to [OasisFixedAssets].[SerialNumber] if [GPFixedAsset].[OasisLink] = [OasisFixedAssets].[SysIDOasis]. 我仍然在学习SQL,但是现在有点混乱。 如果可以在Excel中用一个很好的公式来完成。 但是,如果我可以运行两个单独的查询来更新我的表,所以我可以将其导出回Excel,这将是真棒。 编辑: 谢谢大家的答案。 我最终通过运行select查询来查找OasiLink和SysIDOasis之间匹配的所有字段,然后根据查询运行单独的更新查询,将字段更新为正确的值。

访问 – 循环遍历表,并在第二个表中查找外键,并将多个字段连接到原始表中

访问 – 我们有一个备注字段[DESCRIPTION_OF_REQUEST]的表格。 另一个表logging特定请求发生的任何date更改(对于可交付成果)。 一对多的关系。 从报告的angular度来看,我们需要按月导出(如Excel)请求,并希望将所有可交付date的所有更改连接到注释字段。 [tblRequests] RegProjID DateOfRequest DESCRIPTION_OF_REQUEST ———- ————- ———————- 116 06 Oct 2015 "Stability of broken ampoule." 和 [tblDateChanges] RegProjChangeID RegProjID DateOfDateChange UserName ReasonForChange ————— ——— —————- ——– ————— 355 116 19 Jan 2016 dskelly "Duplicate Request from Simon Wong CPP Request already in process Original Request # 13661" 1549 116 […]

基于来自Access的条件查找excel表中字段的值

我有一个名为Excel表格(Table1),有一列,我需要根据我的源数据简单的Vlookup公式填充一列。 但是源数据太大了,所以我把它作为访问表。 现在,我希望我的Table1在访问表中find访问表中与列1中的列B到列1中的值相匹配的行,并从访问表中的列3中获取值,并将其填充到表1中的列U中。 我想要这个表中的所有行。 Excel中的表格命名为Table1,并自动更新其行范围,因为该表格中最后一行下面填充的字段更多。 我知道如何从访问中获取整个表格,但不知道如何从一列中获取数据并将其input到另一个列中。 我准备好使用SQL,但对如何做不了太多的了解。

将多个Excel文件导入到一个Access表时如何添加文件名

我正在使用Access VBA将多个Excel文件导入到我的Access数据库中。 这将是一个每月20-50个文件和10-60Klogging的过程。 我需要包含一个“应用程序名称”,它不包含在电子表格文件本身中,而是包含在它的文件名中。 而不是手动将应用程序名称添加到Excel文件,我想通过我的VBA代码添加它。 我不熟练使用Access,并通过关于如何完成的search将大部分内容拼凑在一起。 这个“工作”,但是当我在大批量运行时,我收到错误“运行时错误3035”:超出系统资源。 当我删除添加文件名(循环logging)的部分,它运行良好。我认为这是因为步骤没有有效地sorting?任何帮助,将不胜感激。 Public Function Import_System_Access_Reports() Dim strFolder As String Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim rstTable As DAO.Recordset Dim strFile As String Dim strTable As String Dim lngPos As Long Dim strExtension As String Dim lngFileType As Long Dim strSQL As String […]

Excel报告使用访问数据库(〜2GB)作为后端可替代由Rshiny或降价?

我目前有一个Access数据库,从各个国家的Oracle拉取数据,目前大约1.3 GB。 但是,应该增加更多的国家和方面,这将进一步扩大规模。 我的估计大约是2 GB,因此标题。 每个国家都有一张桌子。 这些表然后链接到第二个Access数据库中,用户可以通过表单从Access数据库中的相应链接表中抽取数据,按月汇总,并将其写入表中。 然后从Excel中查询该表格,并显示一些图表。 此外,还有另一种forms,用户可以select某些按键,如业务区域,并由此分割数据。 这可以拉到同一个excel文件的第二张表。 用户不仅希望能够通过更多密钥进行过滤和分组,而且还能够自定义显示数据的时间段,例如从第xx天到第yy天(按星期或月份累计)(目前,从每个月的第一个月开始只支持月份)。 由于目前的Access-Access-Excel解决scheme在我看来是相当麻烦的,所以我想知道是否可以使用R和shiny或降价来制作本报告用户所需的扩展。 我知道shiny不允许上传超过30MB的文件,但我打算离线使用它。 我只是无法find这个文件大小限制 – 或者是否适用相同的限制? 我知道一些R,我认为使用dplyr可以快速完成所需的数据聚合。 问题是用户不需要,所以报告需要高度定制,而不需要技术知识。 既然我没有预先知道的shiny或降价的知识,我想知道是否值得通过学习一个足够实施这个报告的麻烦。 我想做什么是可行的shiny或R降价? 如果是这样,它会加载足够快,可用吗?

从Access数据生成格式化的Excel数据表

标题基本上总结了我的问题。 基本上,我想通过点击表单中的button,从访问表数据生成一个格式化的Excel表格。 我知道你可以导出访问数据为Excel,但有没有办法生成格式化的Excel表格? 是否有一些Excel脚本语言,我可以通过VBA从我的访问数据库提供数据执行? 关于DB的一些细节: 它只是跟踪公司内某些职位的员工数量。 这就是新来的员工,员工被重新部署,员工被终止,员工被转移等等。 目标是能够从这些数据创build一个优秀的人员配备计划。 如果还有什么我可以提供,请让我知道! 感谢您的帮助!

数据库挖掘,自动graphics和电子邮件在一天的特定时间

我有一些自动化的机器运行巴氏杀菌过程,传感器注册值,如温度,时间,压力等… 我们的主要控制软件确实为我们提供了这样的价值的历史图表,但不可能邮寄给他们。 该软件能够将所有数据logging到Microsoft Access / SQL数据库中。 对于公司来说,我们的日子是从早上6点开始的,所以24 / hr的时间是每天6点再开始的。 现在的问题是:有没有办法挖掘数据库(可以select)从上午6点到当天上午6点(X,Y图)的所有值自动在Excel中,并让它自动发送到一些邮件收件人EVERY一天六点? 如果是这样,我该怎么做?

Access任务退出后,在任务pipe理器中的stil显示直到完全退出

我退出后,在任务pipe理器进程中显示的问题。 我在任务pipe理器中search了很多不同的答案还有过程显示。 我在其他函数中有其他函数,打开和closuresexcel就好了,并从进程中删除,但是我正在运行的当前事件只是将任务pipe理器中的进程退出,直到完全退出访问。 请帮忙!! Private Sub status_ID_AfterUpdate() On Error GoTo Problems Dim filename As String Dim NewStatus As Long filename = "M:\Shared Documents\Job Cost Analysis\Hospital Active B2B Cases.xlsx" Dim cell As Range Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim ws As Worksheet Set xlApp = New Excel.Application With xlApp .Visible = True Set […]