есть хп на sql-servere. там текст начинается так:
CREATE PROCEDURE select_analizZP (
@mes int, @mes1 int, @god int, @god1 int) as
declare @i int, @i1 int, @g int, @g1 int
declare @l table(name_predpr nvarchar(20), ФЗП1 decimal(20, 10), ФЗП2 decimal(20, 10), ФЗП3 decimal(20, 10), ФЗП4 decimal(20, 10),
name_pred varchar(20), a int)
set @i=@mes
set @i1=@mes1
set @g=@god
set @g1=@god1
while @i <= @i1
begin
insert @l
т.е. там создается табличная переменная @l, и с ней дальше происходят действия. в query analizere я ее запускаю так:
exec select_analizzp 1,6,2005,2004. всё идеально работает. но с запуском из приложения начинаются проблемы. делаю так:

Dim rcd As New ADODB.Recordset
Dim cn As New ADODB.Connection

cn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Otiz;Data Source=BTSERVER"
cn.Open
ss = "exec select_analizzp 1, 6, 2005, 2004"
rcd.CursorLocation = adUseClient
rcd.Open ss, cn, adOpenStatic, adLockBatchOptimistic
MsgBox rcd.RecordCount вот тут сразу возникает ошибка:
операция не допускается, если объект закрыт.
Вопрос: как он может быть закрыт, если я его открываю rcd.open...
Помогите пож-та. что я не так делаю.

нет, конец процедуры такой:

select name_predpr as predpr,
sum(isnull(ФЗП1,0)) as ФЗП1, sum(isnull(ФЗП2,0)) as ФЗП2, sum(isnull(ФЗП3,0)) as ФЗП3,
sum(isnull(ФЗП4,0)) as ФЗП4, sum(isnull(ФЗП5,0)) as ФЗП5, sum(isnull(ФЗП6,0)) as ФЗП6, name_pred, a from @l group by name_predpr, name_pred, a

в qa exec возвращает 10 записей.
вы написали попробовать без exec. это как?

такой же результат. может всё дело в этой табличной переменной. попробуйте набрать этот код в qa. что он вам возвратит?

declare @a table (red int)
insert into @a (red) values (232)
insert into @a (red) values (343)
select * from @a

нет, в таблице а есть. я просто не до конца запрос написала, он очень длинный.
так вот, правильно возвращает 2 записи: теперь делаем то же самое из кода:

Dim rcd As New ADODB.Recordset
Dim cn As New ADODB.Connection

Private Sub Command1_Click()
cn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Otiz;Data Source=ITSERVER"
cn.Open
ss = "declare @a table (red int) insert into @a (red) values (232) insert into @a (red) values (343) select * from @a"
rcd.CursorLocation = adUseClient
rcd.Open ss, cn, adOpenStatic, adLockReadOnly
MsgBox rcd.RecordCount
End Sub

и начинается ругань на msgbox с recordcountom. протестируйте у себя и скажите результат, удалось ли получить recordcount?

а где код ХП? приведите его полностью.

странно, но всё работает. скажите, что это за драйвер такой?

cn.Open "DRIVER={SQL Server};SERVER=(local);DATABASE=Universys"

почему тогда provider oledb не работает?