0

我目前正在从 ms 访问执行此代码,该代码从 SQL 服务器调用存储过程以创建临时表并将该表中的数据直接导出到 Excel 工作簿。我现在希望将表单中的两个日期字段作为此过程的参数(dateOpen、dateClose)。我该怎么做?

Dim rst As New ADODB.Recordset
Dim cmd1 As New ADODB.Command
Dim cmd2 As New ADODB.Command
Dim cmd3 As New ADODB.Command

With cmd1
    .ActiveConnection = CurrentProject.connection
    .CommandText = "usp_tbl_close"
End With
Set rst = cmd1.Execute
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "dbo.close", "C:\Documents\testio3.xls", True, "close"
4

2 回答 2

0

试试这个 cmd1 .ActiveConnection = CurrentProject.connection .CommandText = "usp_tbl_close" .CommandType = 4 .Parameters("@paramname1") = paramvalue1 .Parameters("@paramname2") = paramvalue2 .execute

结束于

于 2013-09-11T07:24:40.613 回答
0

使用 ADO DB 中的 create 和 append 参数方法。

这是一个指向MSDN 文章的链接,应该会有所帮助。

于 2013-09-09T14:23:51.363 回答