如何從MS Access VBA中調用SQL Server存儲過程

Question

我有一個存儲過程需要參數，但不返回任何內容。我如何從MS Access中調用它？

編輯 - 隨着Remou的幫助下，我找到了工作：

Set cnn = New adodb.Connection 
cnn.ConnectionString = 
    "driver=SQL Server;server=SERVER\SERVER;database=a_db;Trusted_Connection=Yes" 

cnn.Open cnn.ConnectionString 

Set cmd = New adodb.Command 
cmd.ActiveConnection = cnn 
cmd.CommandType = adCmdStoredProc 
cmd.CommandText = "stprMoveDataSet" 

Set param = cmd.CreateParameter 
       ("DataSetID", adInteger, adParamInput, 6, stDataSet) 
cmd.Parameters.Append param 
Set param = cmd.CreateParameter 
       ("Destination", adChar, adParamInput, 2, stDestination) 
cmd.Parameters.Append param 

rs.CursorType = adOpenStatic 
rs.CursorLocation = adUseClient 
rs.LockType = adLockOptimistic 
rs.Open cmd 

Answer 1

這裏有一個大綱，可以幫助。稍後我可能會回到更多細節。它不是具體到你的情況，但它可能讓你去:)

Public dbconn As ADODb.Connection 
Dim cmd As New ADODb.command 
Dim rs As New ADODb.Recordset 
Dim param As New ADODb.Parameter 

Set dbconn = New ADODb.Connection 
dbconn.ConnectionString = GetServerCon 

dbconn.Open dbconn.ConnectionString 

Set cmd = New ADODb.command 
cmd.ActiveConnection = dbconn 
cmd.CommandType = adCmdStoredProc 
cmd.CommandText = "insert_user" 

Set param = cmd.CreateParameter(_ 
    "username", adVarChar, adParamInput, 50, Environ("UserDomain") & "dddddddd\" _ 
    & Environ("Username")) 
cmd.Parameters.Append param 

rs.CursorType = adOpenStatic 
rs.CursorLocation = adUseClient 
rs.LockType = adLockOptimistic 
rs.Open cmd