Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS SQL Server > Ошибка выполнения ХП из VBA

Автор: shefus 27.11.2010, 14:23

Добрый день!

Есть ХП:

Код


ALTER PROCEDURE dbo.[1111]
(@parN int)
AS 
 SET NOCOUNT ON
DELETE FROM dbo.[Cross]
WHERE     ([№] = @parN)

Вызываю ее из проекта access:
1. Непосредственно из окна проекта - всё ок. Запрашивает параметр и удаляет

2. Из VBA:

Код


Dim cmd As ADODB.Command
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim p1, p2, p3 As ADODB.Parameter
  Set cnn = CurrentProject.Connection
  Set cmd = New ADODB.Command
  
    cmd.ActiveConnection = cnn
    cmd.CommandText = "1111"
    cmd.CommandType = adCmdStoredProc
       
    Set p3 = cmd.CreateParameter("@parN", adInteger, adParamInput, , -1637037225)
    cmd.Parameters.Append p3
    
   Set rs = cmd.Execute()

вылетает ошибка:

Run-time error '-2147217900(80040e14)':
Ошибка синтаксиса или нарушения прав доступа

В чем проблема?

PS к SQL подключаюся под SA

Автор: shefus 27.11.2010, 15:51

Пардон, ошибку нашёл

Автор: Zloxa 28.11.2010, 12:32

Цитата(shefus @ 27.11.2010, 14:23

)

cmd.CommandText = "1111"

попробуйте

Код


   cmd.CommandText = "dbo.[1111]"