Tag: ms access 2010

ADO参数查询正在将相同的数据插入到每一行中

我有以下代码inputexcel数据到Microsoft Access数据库的几行。 代码似乎正在工作，数据正在写入数据库。 唯一的问题是，只有第一行数据被input，几次！ 这是我的代码： Sub AddToDB() Dim adoConn As ADODB.Connection Dim adoComm As ADODB.Command Dim RecordRow As Long Dim TheProduct As String, TheQuantity As String, ThePrice As Double Dim Location As String, TheTime As Date, SaleNumber As Integer Set adoConn = GetConnectionTWO Set adoComm = New ADODB.Command Lastrow = Sold.Cells(Rows.Count, 1).End(xlUp).Row Location = Frontsheet.Range("M3").Value […]

使用ADO VBA将Excel字段插入访问表

我正在尝试使用ADO从Excel文件中访问和读取一些内容。 我知道如何打开它，并执行SELECT *并将其放入一个Recordset对象。 我不明白的是如果我select一组信息，如何访问该Recordset中的特定字段。 码： Private Sub SaveReq_Click() ' ' Saves the current entry to the database ' Into the TABLE 'pr_req_table' ' ' Open a connection to the database dim data_base as Database set data_base = OpenDatabase(CurrentProject.Path & "\test_database.accdb") Sub InsertRecord() Dim data_base As Database Set data_base = OpenDatabase(CurrentProject.Path & "\test_database.accdb") ' Grab all […]

使用中间处理从MS Excel导出到MS Access

我有一个以Excel（.XLS）格式生成报告的应用程序。 我需要将这些报告中的数据追加到MS Access 2010数据库中的现有表中。 典型的logging是： INC000000004154 Closed Cbeebies BBC Childrens HQ6 monitor wall dropping out. HQ6 P3 3/7/2013 7:03:01 PM 3/7/2013 7:03:01 PM 3/7/2013 7:14:15 PM The root cause of the problem was the power supply to the PC which was feeding the monitor. HQ6 Monitor wall dropping out. BBC Third Party Contractor supply this […]

将访问表复制到Excel电子表格中

我有一个Excel 2010工作簿，validation表单，我需要从Access 2010中复制表格，以便可以填充表单。 我有三个访问表 – date，活动和项目 – 和五个Excel表 – 原始date，原始活动，原始项目，validation和参数。 这些button存储在“参数”页面上。 我想编写一个VBA代码，当button，获取数据被选中时，将Access中的表中的数据复制到相应的电子表格中。 然后，当按下完成button时，我想要清除这些表单。 我已经在网上寻找一个解决scheme，但到目前为止，我还没有find任何有效的工作或帮助。 任何协助或指示如何处理这将不胜感激。 这是我正在尝试使用的代码。 它在objDB.Execute中给我一个'找不到安装的ISAM'的错误。 Unload ParameterMenu formWait.Show 'Save workbook ActiveWorkbook.Save Dim strExcelFile As String Dim strWorksheet As String Dim strDB As String Dim strTable As String Dim objDB As Database strExcelFile = "X:\Verification Form.xlsm" strWorksheet = "RawDates" strDB = "X:\Tables.accdb" strTable = […]

标准expression式中的数据types不匹配（Access 2013）

我有一个访问数据库与链接的Excel表（每个表是一个Excel表）在我的表之一，有一个货币字段称为“薪酬”。 格式是$＃，## 0.00 。 因此，对于工资为0的情况，字段值为$ 0.00 。 我写了一个查询来排除工资值为0的logging。在criatera框中，我plase <>“$ 0.00”，但是当我运行查询时，我收到错误数据types不匹配在条件expression式 。 任何帮助，将不胜感激。

Excel文件太大 – 340 MB – 迁移访问？

我有一个约340 MB的Excel文件，其中包含2000多个工作表和几十个长的VBA程序。 文件越来越大，打开文件需要10-15分钟左右，当我保存或debugging文件时，经常进入“无响应”，“无法使用的资源”。 我在网上search的人build议迁移到Acesss。 不过，我从来没有使用过Access。 所以我想知道 1）如何迁移excel文件来访问？ 2）将VBA程序带到新的访问文件3）我是否需要修改excel VBA代码以适应Access？ 2）可以访问处理300-500MB文件？ 谢谢

我有一些VBA打开电子表格，并从Access导入数据，我如何locking原来的自动“另存为”？

下面的代码附加到一个命令button并打开一个Excel工作簿，然后从Access窗体中导入一打（主要是在下面的代码中编辑）字段。 我遇到的麻烦是用户： （1）使用button一次。 （2）点击“保存”而不是“另存为”。 （3）再次使用button。 （3）抱怨工作簿上有旧的数据。 在下面的代码中，我怎么能： （A）防止用户编辑工作簿的主副本。 （B）打开时自动显示“另存为”对话框。 Private Sub cmd1_Click() Dim appExcel As Excel.Application Dim wbook As Excel.Workbook Dim wsheet As Excel.Worksheet Set appExcel = New Excel.Application appExcel.Visible = True Set wbook = appExcel.Workbooks.Open("F:\Network Folder\MySpreadsheet.xlsx") Set wsheet = wbook.Worksheets("Sheet1") With wsheet .Cells(10, 1).Value = txt1 .Cells(10, 2).Value = txt2 End With End Sub […]

将文本文件导入没有Office Professional的计算机上的MS Access表

我正在为不能运行Office Professional（Office Standard）的用户编写一个工具。 这意味着他们的系统上没有安装MSAccess。 所以下面的代码失败（从Excel调用）： Dim appAccess As Object Set appAccess = CreateObject("Access.Application") With appAccess .OpenCurrentDatabase Range("DBfile") .Application.Run "importmms" .Quit End With 虽然我认为这曾经工作（那么我正在寻找为什么这个代码不再在标准许可证机器上工作），它不再工作了。 所以我正试图find一个解决scheme， 导入一个.csv文件到一个不运行MS Access的机器上Excel中的VBA中的Access表 。

查看后端连接从Excel访问数据库

我有一个数据库，在我的工作场所，许多人有excel文件与链接表等 在有些情况下，我非常重视数据库的使用，而且不能正确地分解和修改数百个可能的excel文件，这是不可行的。 尤其是当人们一直在创作新文件的时候。 我发现下面的代码可以让我看到有人连接到数据库的前端： Sub ShowUserRosterMultipleUsers() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i, j As Long Set cn = CurrentProject.Connection ' The user roster is exposed as a provider-specific schema rowset ' in the Jet 4.0 OLE DB provider. You have to use a GUID to ' reference the schema, […]

无法将CopyFromRecordset结果设置为date或数字

我试图使用Range.CopyFromRecordset从Access 2010导入到Excel数据集。 在查询中有一些字段中的某些值已被转换为date或数字，例如： iif(isdate([Install Date]),cdate([Install Date]),[Install Date]) AS [Install Date (cast)], iif(isnumeric([Feature Number]),cdbl([Feature Number]),[Feature Number]) AS [Feature Number (cast)] 以下是我正在使用这些数据生成工作表的代码： Private Sub createRSSheet(db As DAO.Database, rsName As String, sheetName As String) Dim rs As DAO.Recordset Dim sht As Worksheet Dim fldCtr As Long Dim columnRng As Range 'get recordset Set rs = db.OpenRecordset(rsName) 'add worksheet […]