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
|