Tag: ms access

这个查询有什么问题吗？

INSERT INTO tblExcel (ename, position, phone, email) VALUES ('Burton, Andrew', 'Web Developer / Network Assistant', '876-9259', 'aburton@wccs.edu') 我有一个访问表，有五个字段：id，ename，位置，电话和电子邮件…每个是50个字符的纯文本字段，保存位置是255和id这是一个自动增量字段。 我正在使用VB.NET从Excel表中读取数据，该数据被推送到用于填写该查询的简单类中。 我对另外两个表做了同样的事情，他们的数据是从DB2表和MySQL表中抽取的。 另外两个工作，但这个简单的INSERT循环保持失败，所以我不认为这是我的“InsertNoExe”函数处理所有的OleDb的东西。 那么，呃，这个查询，字段标题等等是不是伪造的？ 如果有人想看，我可以发表其他一些代码。 编辑：修正。 我不确定广泛的图像是否被算作堆栈溢出错误，这就是我为什么离开它的原因。 编辑2：我很密集。 我使用try … catch来查看伪造查询，甚至不检查ex.messsage。 嘎。 INSERT INTO tblExcel (ename, position, phone, email) VALUES ('Burton, Andrew', 'Web Developer / Network Assistant', '876-9259', 'aburton@wccs.edu') at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(Int32 hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) […]

如何在Excel中从VBA查询Microsoft Access数据库字段

我目前正在编写一个程序来保存在Excel表格中input的数据到Access数据库中。 我试图增加Access中的主键字段“1”，每当我从我的Excel表单中的字段添加数据。 因为我已经声明这个字段为PRIMARY KEY NOT NULL字段，所以不允许我添加另一行数据，除非主键字段已被声明。 我不希望用户inputPK数据，因为这将是愚蠢的。 我怎样才能把Excel中的DDL转换成Access，就像说MAX(CustomerID)来查找Access表中的最大ID，然后使用RS.FIELD("CustomerID") = MAX(CustomerID) + 1来将MAX(CustomerID) + 1 RS.FIELD("CustomerID") = MAX(CustomerID) + 1 。 对于这件事的任何帮助，我将不胜感激。 提前致谢。

从Excel中运行访问查询并将parameter passing给查询

如何在ms中执行查询从Excel VBA代码或macros中访问db。 MS-Access查询接受一些参数，需要从Excel传递。 谢谢

MSACCESS VBA：将边框添加到Excel工作表

以下不起作用。 我如何添加边框？ 谢谢！ Set objApp = CreateObject("Excel.Application") objApp.Visible = True Set wb = objApp.Workbooks.Open("aFile.xls", True, False) objApp.Cells.Select objApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone objApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With objApp.Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With objApp.Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With […]

需要VB代码来显示Excel文件中的工作表的列表，将其显示在Access窗体的列表框中

我在Access中创build一个窗体，允许用户select一个Excel文件，然后select一个工作表导入。 我有代码，允许用户select一个Excel文件，并将其存储在窗体上的控件的文件名。 现在我想显示该文件中的工作表的名称。 我知道如何进行导入，我不知道如何获取文件中的工作表名称，并将它们存储在表格或表单上的列表框中，以便用户可以select一个。 可悲的是，虽然所有的Excel文件都应该有工作表的标准名称，但一些表单已closures，这就是为什么我要显示它们。 我正在使用Office 2007。

如何从具有特定条件的表中删除logging

菜鸟问题我知道。 我有一个约10个字段的表，其中一个字段是一个类别字段。 我需要这个领域的存在，因为有多种类别。 但是，在这个领域的一个类别是错误的，是重复的结果。 那么我可以在CatDescription字段中删除表中具有“Type320”的所有logging，以及如何？ 我想保持其他东西，就像在这张桌子上一样。 只需要摆脱在那个领域有这样的logging 非常感谢！ 编辑：感谢您的答案，我不知道如何做到这一点，这是非常有益的 不过，这比我想象的要复杂得多。 我提供的原始数据携带这些重复的logging（只在某些情况下重复，但它们很容易被隔离）。 这些原始数据是以电子表格的forms每月发给我的。 这一切都涉及到这些身份证号码，并有10个字段（xls列）。 正如我之前说的其中之一是类别描述字段（抱歉，这不是一个查找）在某些地方，这些logging自动复制自己的输出，因为在数据库中这是来自它，它必须有一个特定的“types” 所以…每当有重复时，所有字段中的每一个信息都是完全相同的，除了CatDescription（一个是Type320，重复的loggingtypes是“Type321”）。 但是，在某些情况下，Type321本身是有效的（在这种情况下，没有与Type320 catdescription匹配的数据行）。 通过匹配我的意思是在一个特定的logging的所有领域的所有数据。 一个非常明显的绝对是如果一个Type320 CatDescription的logging中的所有字段（数据）与Type321 CatDescription的logging中的所有字段（数据）相匹配，那么我可以删除包含Type321 CatDescription的logging。 这是真的，因为这是发生这种重复的唯一情况，通常不是所有这些都应该匹配。 这允许Type320和Type321数据（不完全匹配）的所有唯一logging保留; 只是一个它应该。 这对我来说是有意义的（希望你也是：/）但是可以这样做，怎么样？ 谢谢，因为这是我的头。 我宁愿知道如何做到这一点，但是xls解决scheme同样值得赞赏。 嘿，我会做到这一点，如果它能完成这项工作！ 🙂

从Excel打开ADODB连接 – 错误424

我试图创build一个通用的函数来返回一个打开的连接。 但是，当我将函数设置为连接对象时，代码在最后一行出现错误。 需要一些方向来实现这一目标。 谢谢！ '' ' Function to open an ADODB connection and return the connection object ' @param strDBPath string containing full path to database of interest ' @param strUserID optional string containing user name to use when establishing the connection (default: vbNullString) ' @param strPassword optional string containing password to use when establishing […]

将网格线添加到Excel工作表

在下面的代码中，如何将网格线添加到整个Excel工作表？ Set objApp = CreateObject("Excel.Application") objApp.Visible = True Set wb = objApp.Workbooks.Open("template.xls", True, False) wb.Sheets(1).Rows(3).Delete wb.Sheets(1).Range("A1").Value = title 'need to format column E & F as currency Set objApp = Nothing

MS Access VBA如何在Excel中删除一行

我已经使用下面的代码在MS Access 2003中打开一个Excel文件。我想删除第2行或A2：K2。 Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.Workbooks.Open "QuotebyItem.xls", True, False

如何将表名称传递给VBA中的sql查询

我正在使用下面的代码从MDB数据库加载到Excel工作表的表。 我试图将表名称定义为variables，并将其传递给查询，但我得到下面的代码错误。 我如何在VBA做到这一点？ Public Sub ReadMdb() Dim cn As Object, rs As Object Dim intColIndex As Integer Dim DBFullName As String Dim TargetRange As Range DBFullName = Application.GetOpenFilename() On Error GoTo Oops Application.ScreenUpdating = False Set TargetRange = Sheets("Sheet1").Range("A1") Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName Set rs = CreateObject("ADODB.Recordset") Dim tableName […]