Tag: ms access

在MS Access中将自定义查询输出为Excel格式

我知道有DoCmd.TransferSpreadsheet acExport,但这需要一个硬查询名称。 我想循环一个logging集,并导出每个视图的文件,所以例如导出一个Excel文件的"select * from myQuery where arguments=arg1" ,另一个文件的"select * from myQuery where arguments=arg2" ,等等上。 有没有办法创build这样的基于“自定义”的飞行SQL查询这样的Excel文件?

通过MS Access 2003将查询从Oracle导出到MS Excel

我需要find最快速的方法,通过MS Access 2003将数据从Oracle导出到MS Excel。 行数大约是34,000。 方法1 CopyFromRecordset MyRecordset 时间: 9分钟 方法2 DoCmd.RunSQL "SELECT * INTO TBL_GET_ITEM_INFO FROM _GET_ITEM_INFO" DoCmd.TransferSpreadsheet acExport, 8, "TBL_GET_ITEM_INFO", path, True 时间: 9分钟 有更快的方法吗?

从Access表中selectID是一个string

我有一些在Excel中的代码,更新一个Access表,如果RTP_ID等于IngID,下面的匹配,如果它们是RTP_ID数字作品: sSQL = "SELECT * FROM Tbl_Primary WHERE RTP_ID = " & lngID 不过,我希望它RTP_ID可以是一个string。 我试过了: sSQL = "SELECT * FROM Tbl_Primary WHERE RTP_ID = '" & lngID & "'" 但是这仍然行不通,有什么想法? 所以如果RTP_ID是1它会工作,但如果它是1A它不会。 编辑 – 这里是我目前的代码: Application.ScreenUpdating = False Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim fld As ADODB.Field Dim MyConn Dim lngRow As Long […]

更新查询以在MS Access表中指定的范围内插入缺less的date

我有一个Access数据库跟踪滚动35周窗口的作业数据。 我有它自动化,所以一个月一次我运行一个脚本,生成一个电子邮件,并附加一个Excel工作表为适当的程序pipe理器,使他们可以更新他们的船员数量预测未来35周。 该程序保存了Excel工作表的一个副本,以便在工作表返回后可以运行比较。 我想要做的是在构build通过电子邮件发送的Excel工作表之前,从其数据集中添加缺失的date。 这样,我存储date的表格就会有一个自动生成的订单项编号,稍后我可以从Excel文件重新导入数据时参考。 我想我可以运行一个更新查询,将数据库中的所有工作logging展开到相同的结束date,并随后在滚动窗口消失时清除任何有零个工作人员数的东西,但有没有更好的方法接近这个?

Excel VBA userform的多用户

我已经连接到Access数据库以允许多个条目。 它现在需要一个范围,并将其添加到表中。 全部完美。 但是现在我想让多个用户使用Excel用户窗体填充Access数据库。 这是可能的还是我必须重写我的整个用户表单?

访问select最大date的条件查询

我正在处理一个如下所示的数据集: ZeroCurveID MarkRunID MarkAsOfDate 90-6589 6656 2/28/2012 90-6589 6656 2/28/2012 90-6589 6656 2/28/2012 14-8898 8898 8/12/2014 14-8898 8898 8/12/2014 14-8898 8898 8/12/2014 14-8898 8898 8/6/2014 14-8898 8898 8/6/2014 14-8898 8898 8/12/2014 14-8898 8898 8/12/2014 14-8898 8898 8/12/2014 14-8898 8898 8/12/2014 14-8898 8898 8/12/2014 对于给定的ZeroCurveID和MarkRunID,应该只有一个MarkAsofDate。 因此,对于ZeroCurveID = 14-8898和MarkRunID = 8898,MarkAsofDate必须等于2014年8月12日,其他值不正确。 在某些情况下,对于相同的MarkRunID和ZeroCurveID,我有两个MarkAsofDate值。 我想要创build一个查询来识别这些实例何时发生,并select较大的MarkAsofDate值作为正确的值。 我怎样才能devise一个查询或VBA子程序来做到这一点?

在Access中移动logging集中的特定点

我有一个用Access VBA编写的函数。 这个function的目的是执行简单的线性插值。 它使用从inputlogging集中绘制的最近“MaturityDates”date的ZeroRates插值指定date的“ZeroRate”值。 function如下: Function CurveInterpolateRecordset(rsCurve As Recordset, InterpDate As Date) as Double Dim Q As Long Dim x1 As Date, x2 As Date, y1 As Double, y2 As Double, x As Date CurveInterpolateRecordset = Rnd() If rsCurve.RecordCount <> 0 Then Q = 1 rsCurve.MoveFirst x1 = CDate(rsCurve.Fields("MaturityDate")) y1 = CDbl(rsCurve.Fields("ZeroRate")) If InterpDate = […]

Access VBA中的strSQL不会执行

我在Access VBA中有以下代码: Sub SampleReadCurve() Dim rs As Recordset Dim iRow As Long, iField As Long Dim strSQL As String Dim CurveID As Long Dim MarkRunID As Long Dim MaxOfMarkAsofDate As Date CurveID = 15 MaxOfMarkAsofDate = #7/31/2015# strSQL = "SELECT * FROM VolatilityOutput WHERE CurveID=" & CurveID & " AND MaxOfMarkAsofDate=" & MaxOfMarkAsofDate & " […]

在Access VBA中的strSQL中循环date

我在Access中有这样的代码: Sub SampleReadCurve() Dim rs As Recordset Dim iRow As Long, iField As Long Dim strSQL As String Dim CurveID As Long Dim MarkRunID As Long Dim MaxOfMarkAsofDate As Date CurveID = 15 MaxOfMarkAsofDate = #7/22/2015# strSQL = "SELECT * FROM VolatilityOutput WHERE CurveID=" & CurveID & " AND MaxOfMarkAsofDate=#" & MaxOfMarkAsofDate & "# ORDER […]

在Access VBA中使用集合

我有以下的子程序在Access VBA中: Sub SampleReadCurve() Dim rs As Recordset Dim iRow As Long, iField As Long Dim strSQL As String Dim CurveID As Long Dim MarkRunID As Long Dim MaxOfMarkAsofDate As Date Dim userdate As String CurveID = 15 Dim I As Integer Dim x As Date userdate = InputBox("Please Enter the Date (mm/dd/yyyy)") x = […]