Public Function CreateInstrumentInterfaceLogRecords(BatchID As Long,InstrumentName As            String) As Boolean
On Error GoTo HandleError

Dim objFSO As FileSystemObject
Dim AllFiles As Object
Dim objFolder As Object
Dim objFile As Object
Dim FileExt As String
Dim strsql As String

CreateInstrumentInterfaceLogRecords = False
strsql = "SELECT FileExt FROM tlkpInstrument"
FileExt = ExecuteScalar(strsql)


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(NewPath) 

'NewPath is a public variable that holds the path to the folder'

Set AllFiles = objFolder.Files
For Each objFile In AllFiles

FileName = objFile.FileName
QuenueId = Replace(FileName,FileExt,"")

'call procedure to pass values'

Next objFile

ExitProc:
Exit Function
HandleError:
MsgBox Err.Number & " " & Err.Description & " in CreateInstrumentInterfaceLogRecords"
GoTo ExitProc

End Function

并且存储过程是：

CREATE PROCEDURE upInsertToInstrumentInterfaceLog @BatchID nvarchar(60),@InstrumentName nvarchar(60),@FIleName nvarchar(60),@QueueId nvarchar(60) 
AS
INSERT INTO tblInstrumentInterfaceLog (BatchID,InstrumentName,FileName,QueueID,DateOfBatch,Folder)
VALUES (@BatchID,@InstrumentName,@FileName,@QueueId,getdate(),'New');
GO

所有这些例子都没有给我一个创建连接和调用过程的可靠想法.我给出的一些建议是研究ExecuteNonquery如何工作,所以我一直试图找到与此相关的例子.以下是我发现的示例模板之一

Dim conn As ADODB.Connection 
Dim cmd As ADODB.Command 

Set conn = New ADODB.Connection 
conn.ConnectionString = “your connection String here” 
conn.Open 

Set cmd = New ADODB.Command 
cmd.ActiveConnection = conn 
cmd.CommandType = adCmdStoredProc 
cmd.CommandText = "put stored procedure name here" 

cmd.Execute 
conn.Close 

Set conn = Nothing 
Set cmd = Nothing

我不确定从这个例子中应该采取什么以及如何合并传递值.即使我已经访问了http://www.connectionstrings.com/,我仍然对如何制作它们感到困惑.任何帮助将不胜感激