, 14 2018 . 08:50
+
. function...
Private Sub Blocada( As Long, Chel As String, YesNo As Integer)
Dim cmd As ADODB.Command
Set tek = CurrentProject.Connection
Set cmd = New ADODB.Command
cmd.ActiveConnection = tek
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Blocada"
cmd.Parameters("@") =
cmd.Parameters("@Name") = Chel
cmd.Parameters("@YesNo") = YesNo
cmd.Execute , , Options:=adExecuteNoRecords
Set cmd = Nothing
Set tek = Nothing
End Sub
function? ? ?
http://www.sql.ru/forum/1287614/kak-zapustit-polzovatelskuu-function-na-sql-servere-i-poluchit-otvet
