ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / !!!RecordCount : <Operation is not allowed when the object is closed.> :
25 сообщений из 27, страница 1 из 2
  1  все
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32846830
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
выполнил набор таких вот функций..........ошибок не дает проходит все чики пики проверяю потом количество записей в возращаемом АДО-рекордСете написано так:
RecordCount : <Operation is not allowed when the object is closed.> : ADO_LONGPTR : Form_frmDocsMain.RefreshForm"
-------------------------------------------------
Код: plaintext
ssql =" exec vp_DocsInfo -1, 0, '05.12.2004', '28.12.2004', 0, 2, Null, Null, Null"
-------------------------------------------------
Строка подключения нормальная..
-------------------------------------------------
Как это исправить?
И если есть у ВАс полный Хелп по АДО или примеры с вышлите плиз.
-------------------------------------------------
Access 2003
--------------------------------------------------
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
Global g_cnn_Ado As New ADODB.Connection
Global g_cmd_Ado As New ADODB.Command
Global g_rs_ADO_DAO As New ADODB.Recordset

Dim sDBname As String
Dim sServerName As String
Global g_cnn_Str As String
--------------------------------------------------------
Public Function RetRecFromSQL(strSQL As String) As ADODB.Recordset

    Set RetRecFromSQL = Nothing
    
    Set g_rs_ADO_DAO = New ADODB.Recordset
    'Set rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80")               'New ADODB.Recordset '
    g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
                      ";Data Source=" & Trim(GetSySParam("Server")) & _
                      ";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
                      ";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
                      
    g_rs_ADO_DAO.Open strSQL, g_cnn_Str, adOpenDynamic, adLockOptimistic, adCmdText
    
    Set RetRecFromSQL = g_rs_ADO_DAO
End Function
--------------------------------------------------
Public Function cnn_RetRecFromSQL(strSQL As String, Optional bCnn_Var As String = "Connection") As ADODB.Recordset

    Set cnn_RetRecFromSQL = Nothing
    
    'Set rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80")               'New ADODB.Recordset '
    'Set cnn_Ado = CreateObject("ADODB.Connection.2.80")
    Set g_rs_ADO_DAO = New ADODB.Recordset
    Set g_cnn_Ado = New ADODB.Recordset
    With g_cnn_Ado
        If bCnn_Var = "Connection" Then
            g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
                       ";Data Source=" & Trim(GetSySParam("Server")) & _
                       ";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
                       ";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
            .ConnectionString = g_cnn_Str
        Else
            .Provider = Trim(g_oLocalParam.ADO_Provider)                                     '"SQLOLEDB"
            .Properties("Data Source") = Trim(GetSySParam("Server"))                            'sServerName
            .Properties("Initial Catalog") = Trim(GetSySParam("DB_Name"))                         'sDBname
            .Properties("Integrated Security") = Trim(g_oLocalParam.ADO_Integrated_Security)        '"SSPI"
            .Properties("Current Language") = "Russian"
         End If
        .Open
        Set g_rs_ADO_DAO = .Execute(strSQL) ', , adCmdStoredProc)
        '.Close
    End With
    Set cnn_RetRecFromSQL = g_rs_ADO_DAO
    'rs_ADO_DAO.Close
End Function
--------------------------------------------------
Public Function CMD_RetRecFromSQL(strSQL As String) As ADODB.Recordset
    
    Set g_cmd_Ado = New ADODB.Command
    Set g_rs_ADO_DAO = New ADODB.Recordset
    g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
              ";Data Source=" & Trim(GetSySParam("Server")) & _
              ";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
              ";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
    
    g_cmd_Ado.ActiveConnection = g_cnn_Str
    g_cmd_Ado.CommandType = adCmdText       ' adCmdStoredProc
    g_cmd_Ado.CommandText = strSQL          '"SET NOCOUNT ON select top 10 * From Documents" '"SET NOCOUNT ON " & strSQL
    Set g_rs_ADO_DAO = g_cmd_Ado.Execute
    Set CMD_RetRecFromSQL = g_rs_ADO_DAO
    
End Function
...
Рейтинг: 0 / 0
27.12.2004, 20:02:14
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32846839
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
автор
И если есть у ВАс полный Хелп по АДО

что имеется в виду - Вы программируете не в Access ?
...
Рейтинг: 0 / 0
27.12.2004, 20:15:24
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32846911
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Shuhard автор
И если есть у ВАс полный Хелп по АДО

что имеется в виду - Вы программируете не в Access ?


Access 97,2000,2002,2003 больше 97 и 2003
...
Рейтинг: 0 / 0
27.12.2004, 23:57:06
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32846914
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
RuslanLisovenko Shuhard автор
И если есть у ВАс полный Хелп по АДО

что имеется в виду - Вы программируете не в Access ?


Access 97,2000,2002,2003 больше 97 и 2003

Просто не могу никак в ДАО-шном проекте вернуть данные в рекордсет и воспользоваться ими. Обычный слект в теле формы без проблем в АДП-проекте. Может есть особенность в том , что нужно запихивать в глобальный рекордсет или пременная коннектшион тоже должна быть глобальная.
...
Рейтинг: 0 / 0
28.12.2004, 00:01:13
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847004
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
Извини за критику,но написана какая-то муть.
Global - это атавизм
New напихано везде совершенно бездумно.
везде ADODB но в названиях зачемто раздражающе отвлекающее DAO

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

зачем для каждого рекордсета создавать свое подключение
подсовывая в ActiveConnection строку вместо объекта ADODB.Connection
операция для сервера тяжелая.

кода с проверкой кол-ва записей я вообще не увидел
так что навеняка интерпритатор прав и the object действительно is closed.

Зачем городить этот огород с функциями если все и так делается в одну строку
через ADODB.Connection.Execute?
...
Рейтинг: 0 / 0
28.12.2004, 08:39:34
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847206
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
LatukИзвини за критику,но написана какая-то муть.
Global - это атавизм
New напихано везде совершенно бездумно.
везде ADODB но в названиях зачемто раздражающе отвлекающее DAO

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

зачем для каждого рекордсета создавать свое подключение
подсовывая в ActiveConnection строку вместо объекта ADODB.Connection
операция для сервера тяжелая.

кода с проверкой кол-ва записей я вообще не увидел
так что навеняка интерпритатор прав и the object действительно is closed.

Зачем городить этот огород с функциями если все и так делается в одну строку
через ADODB.Connection.Execute?
-----------------------------------------------------
Global уже так тренировался........
Уточняю: В АДП-проекте работает в мдб не хочет.....видать теряется коннектшион ..незнаю.
Хелпа нету(нужен с примерами) только вот на сайт майкрософт хожу....
-----------------------------------------------------
Ок вот пример через Коннектишин..результат тот же
: RecordCount : <Operation is not allowed when the object is closed.> : ADO_LONGPTR
--------------------------------------------------
Dim g_cnn_Ado As Object
Dim g_cmd_Ado As Object
Dim g_rs_ADO_DAO As Object

Dim sDBname As String
Dim sServerName As String
Dim g_cnn_Str As String
--------------------------------------------------

Public Function cnn_RetRecFromSQL(strSQL As String, Optional bCnn_Var As String = "cnn_Var1") As ADODB.Recordset

Set cnn_RetRecFromSQL = Nothing

Set g_rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80")
Set g_cnn_Ado = CreateObject("ADODB.Connection.2.80")

With g_cnn_Ado
If bCnn_Var = "cnn_Var1" Then
g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
";Data Source=" & Trim(GetSySParam("Server")) & _
";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
.ConnectionString = g_cnn_Str
Else
.Provider = Trim(g_oLocalParam.ADO_Provider) '"SQLOLEDB"
.Properties("Data Source") = Trim(GetSySParam("Server")) 'sServerName
.Properties("Initial Catalog") = Trim(GetSySParam("DB_Name")) 'sDBname
.Properties("Integrated Security") = Trim(g_oLocalParam.ADO_Integrated_Security) '"SSPI"
.Properties("Current Language") = "Russian"
End If
.Open
Set g_rs_ADO_DAO = .Execute(strSQL)
End With
Set cnn_RetRecFromSQL = g_rs_ADO_DAO

End Function
--------------------------------------------------
...
Рейтинг: 0 / 0
28.12.2004, 10:36:25
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847211
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
RuslanLisovenko LatukИзвини за критику,но написана какая-то муть.
Global - это атавизм
New напихано везде совершенно бездумно.
везде ADODB но в названиях зачемто раздражающе отвлекающее DAO

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

зачем для каждого рекордсета создавать свое подключение
подсовывая в ActiveConnection строку вместо объекта ADODB.Connection
операция для сервера тяжелая.

кода с проверкой кол-ва записей я вообще не увидел
так что навеняка интерпритатор прав и the object действительно is closed.

Зачем городить этот огород с функциями если все и так делается в одну строку
через ADODB.Connection.Execute?
-----------------------------------------------------
Global уже так тренировался........
Уточняю: В АДП-проекте работает в мдб не хочет.....видать теряется коннектшион ..незнаю.
Хелпа нету(нужен с примерами) только вот на сайт майкрософт хожу....
-----------------------------------------------------
Ок вот пример через Коннектишин..результат тот же
: RecordCount : <Operation is not allowed when the object is closed.> : ADO_LONGPTR
--------------------------------------------------
Dim g_cnn_Ado As Object
Dim g_cmd_Ado As Object
Dim g_rs_ADO_DAO As Object

Dim sDBname As String
Dim sServerName As String
Dim g_cnn_Str As String
--------------------------------------------------

Public Function cnn_RetRecFromSQL(strSQL As String, Optional bCnn_Var As String = "cnn_Var1") As ADODB.Recordset

Set cnn_RetRecFromSQL = Nothing

Set g_rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80")
Set g_cnn_Ado = CreateObject("ADODB.Connection.2.80")

With g_cnn_Ado
If bCnn_Var = "cnn_Var1" Then
g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
";Data Source=" & Trim(GetSySParam("Server")) & _
";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
.ConnectionString = g_cnn_Str
Else
.Provider = Trim(g_oLocalParam.ADO_Provider) '"SQLOLEDB"
.Properties("Data Source") = Trim(GetSySParam("Server")) 'sServerName
.Properties("Initial Catalog") = Trim(GetSySParam("DB_Name")) 'sDBname
.Properties("Integrated Security") = Trim(g_oLocalParam.ADO_Integrated_Security) '"SSPI"
.Properties("Current Language") = "Russian"
End If
.Open
Set g_rs_ADO_DAO = .Execute(strSQL)
End With
Set cnn_RetRecFromSQL = g_rs_ADO_DAO

End Function
--------------------------------------------------

Проверка содержимого рекордсета выполняю нажимая ctrl+G----------:)
или в отладчик запихиваю g_rs_ADO_DAO.RecordCount
:)
...
Рейтинг: 0 / 0
28.12.2004, 10:41:36
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847307
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
Если посмотреть здесь?

.Open
Set g_rs_ADO_DAO = .Execute(strSQL)

msgbox g_rs_ADO_DAO.RecordCount

End With
...
Рейтинг: 0 / 0
28.12.2004, 11:19:25
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847527
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
LatukЕсли посмотреть здесь?

.Open
Set g_rs_ADO_DAO = .Execute(strSQL)

msgbox g_rs_ADO_DAO.RecordCount

End With

Проект МДБ пробую в 97....................
вызывает эта строка MsgBox rs_ADO_Loc.RecordCount
-------------------------еще могу добавить дословно
RunTime Error '3704'
operation is not allowed when the object is closed.
---------------------------------------------------

Коннектишион нужно делать глобальным и открывать при входе в приложение?
И потомо просто пользоваться g_cnn_Ado.Execute(sSql)?
g_cnn_Ado - коннектшион объект
Как сделать так , чтобы конектишион не слетал.
...
Рейтинг: 0 / 0
28.12.2004, 12:48:10
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847739
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
Глобальные переменные в аксесе могут слетать при ошибках
можно сделать проверку и инициализировать заново
например так

Public Const strConnection = "PROVIDER=SQLOLEDB.1;INITIAL CATALOG=OutBoundRetailSQL;DATA SOURCE=(local);INTEGRATED SECURITY=SSPI"

Public Function cnn() As ADODB.Connection
Static cn As ADODB.Connection
On Error GoTo ErrCNN
If cn Is Nothing Then
Set cn = New ADODB.Connection
cn.Open strConnection
ElseIf cn.State = adStateClosed Then
Set cn = Nothing
Set cn = New ADODB.Connection
cn.Open strConnection
End If

Set cnn = cn
Exit Function

ErrCNN:
On Error Resume Next
'Тута всякие обработки ошибок
End Function

Потом где надо конект юзать вставляеш вызов функции
SET rs=cnn.Execute(strSQL)
...
Рейтинг: 0 / 0
28.12.2004, 13:49:04
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847830
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
LatukГлобальные переменные в аксесе могут слетать при ошибках
можно сделать проверку и инициализировать заново
например так

Public Const strConnection = "PROVIDER=SQLOLEDB.1;INITIAL CATALOG=OutBoundRetailSQL;DATA SOURCE=(local);INTEGRATED SECURITY=SSPI"

Public Function cnn() As ADODB.Connection
Static cn As ADODB.Connection
On Error GoTo ErrCNN
If cn Is Nothing Then
Set cn = New ADODB.Connection
cn.Open strConnection
ElseIf cn.State = adStateClosed Then
Set cn = Nothing
Set cn = New ADODB.Connection
cn.Open strConnection
End If

Set cnn = cn
Exit Function

ErrCNN:
On Error Resume Next
'Тута всякие обработки ошибок
End Function

Потом где надо конект юзать вставляеш вызов функции
SET rs=cnn.Execute(strSQL)

т.е. cnn у вас будет потсоянно открыт на все врем яработы вашего приложения и будете тольео проверять его периодически.............
У ВАС наверно проект ADP?
Это было полезно...........
If cn Is Nothing Then
Set cn = New ADODB.Connection
cn.Open strConnection
ElseIf cn.State = adStateClosed Then
Set cn = Nothing
Set cn = New ADODB.Connection
cn.Open strConnection
End If
....................................
Не работает............
Дело в том. что данные мне возращать дожна SP может нужно какие-то параметры ставить типа -adCmdStoredProc
Вот досмотрел у ВАС -"PROVIDER=SQLOLEDB.1" у меня "PROVIDER=SQLOLEDB" счас проверю
...
Рейтинг: 0 / 0
28.12.2004, 14:19:43
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32847964
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
>У ВАС наверно проект ADP?
Этот код будет работать независимо от типа контейнера.
строку подключения сгенерил в ADP потом взял из currentproject.BaseConnectionString

ХП-ки тоже легко выполняются
Например
TMP = cnn.Execute("dbo.ConnectInfoUpd_p " & intProjectID & ",'" & udpWS.LocalIP & "',NULL,NULL").Collect(0)
или
Dim rs As ADODB.Recordset
Set rs = cnn.Execute("dbo.SetOper_p @Status_ID=" & cboInCStatus_Show & _
",@UserID=" & Nz(cboSU_Oper_Show, "NULL") & _
",@AddDate=" & IIf(IsNull(cboSourseDataShow), "NULL", Format(cboSourseDataShow, "'yyyymmdd hh:mm:ss'")) & _
",@ImportType=" & Nz(cboImportType_Show, "NULL") & _
",@lastName=" & Nz("'" + txtlastNameflt + "'", "NULL") & _
",@firstName=" & Nz("'" + txtfirstNameflt + "'", "NULL") & _
",@middleName=" & Nz("'" + txtmiddleNameflt + "'", "NULL") & _
",@Company=" & Nz("'" + txtCompanyflt + "'", "NULL") & _
",@NewUser=" & Nz(cboSetOper, 0) & _
",@Cnt=" & Nz(intCntSetOper, 1) & _
",@Cur=" & Nz(lngID, "NULL"))

Надо только соблюдать правила при преобразовывая в строку
датавремя {Format(MyVar, "'yyyymmdd hh:mm:ss'")) }
и дробные числа {Str(MyVar)}

параметры типа -adCmdStoredProc лиш убыстряют процес помогая методу в разборе команды
...
Рейтинг: 0 / 0
28.12.2004, 15:02:32
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848016
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Latuk>У ВАС наверно проект ADP?
Этот код будет работать независимо от типа контейнера.
строку подключения сгенерил в ADP потом взял из currentproject.BaseConnectionString

ХП-ки тоже легко выполняются
Например
TMP = cnn.Execute("dbo.ConnectInfoUpd_p " & intProjectID & ",'" & udpWS.LocalIP & "',NULL,NULL").Collect(0)
или
Dim rs As ADODB.Recordset
Set rs = cnn.Execute("dbo.SetOper_p @Status_ID=" & cboInCStatus_Show & _
",@UserID=" & Nz(cboSU_Oper_Show, "NULL") & _
",@AddDate=" & IIf(IsNull(cboSourseDataShow), "NULL", Format(cboSourseDataShow, "'yyyymmdd hh:mm:ss'")) & _
",@ImportType=" & Nz(cboImportType_Show, "NULL") & _
",@lastName=" & Nz("'" + txtlastNameflt + "'", "NULL") & _
",@firstName=" & Nz("'" + txtfirstNameflt + "'", "NULL") & _
",@middleName=" & Nz("'" + txtmiddleNameflt + "'", "NULL") & _
",@Company=" & Nz("'" + txtCompanyflt + "'", "NULL") & _
",@NewUser=" & Nz(cboSetOper, 0) & _
",@Cnt=" & Nz(intCntSetOper, 1) & _
",@Cur=" & Nz(lngID, "NULL"))

Надо только соблюдать правила при преобразовывая в строку
датавремя {Format(MyVar, "'yyyymmdd hh:mm:ss'")) }
и дробные числа {Str(MyVar)}

параметры типа -adCmdStoredProc лиш убыстряют процес помогая методу в разборе команды

дА ПОХОЖЕ ПРОБЛЕМА В ДАТЕ...... В КАВЫЧКАХ..ИЗ-ЗА ЧЕГО КАВЫЧКИ ОДИНАРНЫЕ ПРЕОБРАЗОВЫВАЮТСЯ В ДВОЙНЫЕ?

я ПЕРЕДАЮ РАБОТАЮЩУЮУ СТРОКУ ВОТ ТАКУЮ
exec vp_DocsInfo @FCT = -1, @FirmID = 0, @BegDate = '01.12.2004', @EndDate = '25.12.2004', @BegSTS = 0,@EndSTS = 2,@ACC = Null, @Folder ='РА',@NeedFlag = Null

в ПРОФАЙЛЕРЕ..........ДОСМОРТРЕЛ
exec vp_DocsInfo ' @FCT = -1, @FirmID = 0, @BegDate = ''01.12.2004'', @EndDate = ''25.12.2004'', @BegSTS = 0,@EndSTS = 2,@ACC = Null, @Folder =''РА'',@NeedFlag = Null'
...
Рейтинг: 0 / 0
28.12.2004, 15:20:05
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848040
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Такой вызов ошибок не дает, но и профайлер не видит обращение к серваку..и нничег не возвращается на сервак

strSQL= "exec vp_DocsInfo -1, 0, '01.12.2004', '25.12.2004', 0, 2, Null, 'РА ', Null"

Set g_rs_ADO_DAO = g_cnn_Ado.Execute(strSQL)

Такой вызов дает ошибки и добавляет кавычку.
strSQL = " @FCT = -1, @FirmID = 0, @BegDate = '01.12.2004', @EndDate = '25.12.2004', @BegSTS = 0,@EndSTS = 2,@ACC = Null, @Folder ='РА',@NeedFlag = Null"

g_cnn_Ado.vp_DocsInfo strSQL, g_rs_ADO_DAO



Фигня какая-то .чето я видать туплю...............

С ув. к участникам форума, Руслан.
...
Рейтинг: 0 / 0
28.12.2004, 15:27:55
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848081
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Latuk>Set rs = cnn.Execute("dbo.SetOper_p @Status_ID=" & Nz("'" +
",@firstName=" & Nz("'" + txtfirstNameflt + "'", "NULL") & _

параметры типа -adCmdStoredProc лиш убыстряют процес помогая методу в разборе команды

Счас попробую так еще...........
...
Рейтинг: 0 / 0
28.12.2004, 15:40:47
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848125
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
С кавычками разобрался............

Ошибок нет на сиквел строка уже передается нужно только без ехес ее туда слать для того. чтобы профайлер увидел
(exec vp_DocsInfo @FCT = -1, @FirmID = 0, @BegDate = '01.12.2004', @EndDate = '25.12.2004', @BegSTS = 0,@EndSTS = 2,@ACC = Null, @Folder ='РА',@NeedFlag = Null).

видать сам добавляет "exec", но данные не возвращаются ........капец......
Сори..............
С ув. к участникам форума, Руслан.
...
Рейтинг: 0 / 0
28.12.2004, 15:54:14
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848176
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
Дата должна быть в формате yyyymmdd
только тогда ты можеш быть уверен что сервер ее распознает

Всегда делай так:

Format(Now, "'yyyymmdd hh:mm:ss'") -> '20041228 16:05:47'

Обрати внимание,что апострофы уже есть в строке формата
...
Рейтинг: 0 / 0
28.12.2004, 16:07:03
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848207
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
LatukДата должна быть в формате yyyymmdd
только тогда ты можеш быть уверен что сервер ее распознает

Всегда делай так:

Format(Now, "'yyyymmdd hh:mm:ss'") -> '20041228 16:05:47'

Обрати внимание,что апострофы уже есть в строке формата

Счас еще это поробую . но у меня В реджионал Сеттинг все прописано......
Разве Сикевел не оттуда берет формат?
...
Рейтинг: 0 / 0
28.12.2004, 16:19:02
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848226
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Передаю строку такую
ssql = "vp_DocsInfo -1, 0, " & _
Format("01.12.2004", "'yyyymmdd hh:mm:ss'") & "," & _
Format("25.12.2004", "'yyyymmdd hh:mm:ss'") & ", 0, 2, Null, 'РА ', Null"
Профайлер:
exec vp_DocsInfo -1, 0, '20041201 00:00:00','20041225 00:00:00', 0, 2, Null, 'РА ', Null

Не фига рекордсет пустой..........RecordCount : <Operation is not allowed when the object is closed.> :
Работает чуть медленее сам запрос на сиквеле.....с таким форматом....
С ув. к участникам форума, Руслан.
...
Рейтинг: 0 / 0
28.12.2004, 16:25:35
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848335
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
А из QA под тем же юзером
exec vp_DocsInfo -1, 0, '20041201 00:00:00','20041225 00:00:00', 0, 2, Null, 'РА ', Null
эта строка набор возвращает?
...
Рейтинг: 0 / 0
28.12.2004, 17:01:47
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848352
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
LatukА из QA под тем же юзером
exec vp_DocsInfo -1, 0, '20041201 00:00:00','20041225 00:00:00', 0, 2, Null, 'РА ', Null
эта строка набор возвращает?

дА БЕЗ ПРОБЛЕМ ПОД "windows Authotentication"
У ВАС аська есть?
...
Рейтинг: 0 / 0
28.12.2004, 17:06:33
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848455
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
If (.State = adStateClosed) Then
.Provider = Trim(g_oLocalParam.ADO_Provider) '"SQLOLEDB"
.Properties("Data Source") = Trim(GetSySParam("Server")) 'sServerName
.Properties("Initial Catalog") = Trim(GetSySParam("DB_Name")) 'sDBname
.Properties("Integrated Security") = Trim(g_oLocalParam.ADO_Integrated_Security) '"SSPI"
.Properties("Current Language") = "Russian"
End If

Есть ли у объекта g_cnn_Ado(коннектишион) свойство типа "тайаут"........которым можно управлять?


С ув. к участникам форума, Руслан.
...
Рейтинг: 0 / 0
28.12.2004, 17:40:14
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848563
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
RuslanLisovenkoIf (.State = adStateClosed) Then
.Provider = Trim(g_oLocalParam.ADO_Provider) '"SQLOLEDB"
.Properties("Data Source") = Trim(GetSySParam("Server")) 'sServerName
.Properties("Initial Catalog") = Trim(GetSySParam("DB_Name")) 'sDBname
.Properties("Integrated Security") = Trim(g_oLocalParam.ADO_Integrated_Security) '"SSPI"
.Properties("Current Language") = "Russian"
End If

Есть ли у объекта g_cnn_Ado(коннектишион) свойство типа "тайаут"........которым можно управлять?

:)

С ув. к участникам форума, Руслан.
...
Рейтинг: 0 / 0
28.12.2004, 18:27:54
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848594
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Это не решает проблему для конектшина и......?

.CursorLocation = adUseClient
...
Рейтинг: 0 / 0
28.12.2004, 18:58:01
| Ответить | Цитировать | Написать  
!!!RecordCount : <Operation is not allowed when the object is closed.> :
    #32848603
Фотография RuslanLisovenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RuslanLisovenko
Участник
Разобрался
есть
Provider=Microsoft.Access.OLEDB.10.0
а есть
Data Provider=SQLOLEDB.1
вот и все.........
Спасибо всем.......счас прикручу..........
С ув. к участникам форума, Руслан.
...
Рейтинг: 0 / 0
28.12.2004, 19:10:59
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / !!!RecordCount : <Operation is not allowed when the object is closed.> :
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1502&tid=1669496]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 72ms
get tp. blocked users:
 1ms
others: 226ms
total:  386ms
созд. / загр.: 386ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]