Tag: 访问

代码清理后，Excel进程卡在任务pipe理器中: Access有一个问题，打开一个Excel文件，从中读取并closures它 …但Excel进程不会从任务pipe理器中消失。我已经find了完全相同的问题，但没有解决scheme，为我工作，所以我张贴我的情况在这里（见下文）。如果我单击VB编辑器中的重置button，它会消失（或者如果我更改代码中的任何东西，这也会导致项目重置并摆脱不需要的Excel进程）。任何想法（在Access中运行）的代码是什么？码我有以下类，称为clsTest ： Option Compare Database Option Explicit Private xlFolder As String Private xlFile As String Private xlSheet As String Private colShortURL As String Private oXL As Excel.Application Private oWB As Excel.Workbook Private oWS As Excel.Worksheet Private iLastRow As Long Private Sub Class_Initialize() Debug.Print "From class: Going through initialization inside […]

如何将SQL语句结果导出到Excel文件: 我有一个Access数据库和Excel VBA中的表单。我input到数据库的所有数据都是通过VBA表格input的。这个数据库包含了我们今年在公司里收到的所有好处。但是同一个员工可以要求两次或两次以上的卡，所以我们在他的DB上会有一个以上的logging。我需要的是当logging数大于1时，SQL语句结果应该出现在Excel报告中。我使用SELECT (*) COUNT语句来知道何时有多个logging与search条件兼容。但是我不能让结果出现在Excel文件中。这是我的代码： Public Function Relatorio() Dim sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim rel As String Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & enderecoDB & ";Jet OLEDB:Database" cn.Open Set rs = New ADODB.Recordset sql = "INSERT INTO OPENROWSET('Microsoft.ACE.OLEDB.12.0', […]

Excel复制数据多个表: 所以通常我知道我在做什么，可以谷歌和弄清楚。但是，我甚至不知道我所要做的是什么。我在excel中有两张（或Access中的表格，以最简单的方式）。表A有315个数字，表2有146个人。我需要合并两个表，这样我有两列。每个帐户一列，每个人一列。所以我基本上最后会有大约46,000行。所以：表格1：数 1 2 3 4 表2：人一个乙 C d 预期结果：表3：人数 A | 1 A | 2 A | 3 A | 4 B | 1 B | 2 B | 3 B | 4 C | 1 C | 2 C | […]

如何在Access中使用VBA清除表格？: 我想要做的是，在Excel中，使用VBA将数据推送到现有的Access表。我已经能够做到这一点，但我有一个小小的打嗝。在我推送数据以进行访问之前，我想清除Access表中的当前数据，所以当来自Excel的新数据进入时，它是Access表中唯一的数据。我真的不知道如何编写Access的代码，因为这个类已经在VBA for Excel上了。我尝试了几种不同的方法，每次都不起作用。例如，看起来应该工作的代码是 DoCmd.RunSQL "DELETE tblName.* FROM CoversheetTableFourthAttempt 但我得到一个错误告诉我定义一个对象。如果你可以帮助我，我会真的appricate它我已经把我的代码放在下面供参考。 Sub AccessFourthMonth() Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:\Users\Kent\Documents\MBA\Winter 2009 Semester\MBA 614\Final Project\shilded\testdatabase.mdb" ' open a recordset Set […]

在Access中的链接的Excel表上执行SQL更新: 使用Access 2010，我将多个Excel表导入到Access中，并构build了允许用户更新和向表中添加信息的表单。这些表单通过在VBA中dynamic生成SQL alter和update语句，然后运行DoCmd.RunSQL 。但是，我希望表中的更改反映在原始Excel表中，因此我删除了Access中的表格，而是将Excel表格链接到Access。我所有的select查询都继续工作，所以我能够以基本相同的方式访问数据，但是我无法使用DoCmd.RunSQL在VBA中的表上执行SQL语句，这意味着我无法执行SQL更新和改变像我之前做的声明。我的问题是：我可以在链接的Excel表上执行包括alter和update语句的SQL吗？如果是这样，怎么办？

有条件的内部联接语句（VBA / SQL）生成多个值: 我很新的VBA / SQL，我试图执行一个条件的内部联接。我有两个共同列的表（“CRM”和“CodeCRM”），当table1（“Flux”）触发某个事件（CodeBlocage = 101）时，我希望从table2（“服务台”）获得一个电子邮件地址以将其添加到自动电子邮件。 Dim StrDestinataire As String Select Case Strtable Case "Flux", "GAFIJOUR" Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim Y As String Dim sSql As String Set cn = CurrentProject.Connection sSql = "Select AddMailCRM from Desks Inner Join Flux on Desks.CODECRM = Flux.CRM WHERE Flux.CODEBLOCAGE = '101'" Set rs […]

非networkingSQL注入: 似乎有一些关于SQL注入攻击的歇斯底里。最近在这里如何根据另一个字段中的查找值返回一个字段中的值如果我在Excel中创build一个连接到Access数据库的macros，我真的不得不关心SQL注入吗？这不是在networking上，它在我的办公室使用（你们记得桌面？）。我不担心我的同事要破坏我。如果他们足够聪明的做一个SQL注入，是不是足够聪明来破解我的加载项密码，只是改变代码？