| |
|
|
| | Как запустить ХП на вставку с параметрами?
Private Sub Кнопка18_Click()
CurrentProject.Connection.Execute (" EXEC dbo.sp_обновление_цен_проекта @ном_проекта= " & Me.ном_проекта)
End Sub
|
так не получается
Set cnn = CurrentProject.Connection
Set cmd = New adodb.Command
With cmd
.ActiveConnection = cnn
.CommandText = "sp_обновление_цен_проекта"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@ном_проекта", adInteger, adParamInput, 10, Me!ном_проекта)
.Execute , , adExecuteNoRecords
End With
Set cmd = Nothing
cnn.Close
Set cnn = Nothing
|
и так тоже | |
| |
|
