Question

我正在从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"

Answer 1

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

以下是指向MSDN article的链接。

Answer 2

试试这个用cmd1 .ActiveConnection = CurrentProject.connection .CommandText =“usp_tbl_close” .CommandType = 4 .Parameters（“@ paramname1”）= paramvalue1 .Parameters（“@ paramname2”）= paramvalue2 .execute

结束

如何为sql server程序提供参数

2 个答案: