rs.close проблема

[lord0n]

как узнать закрыт рекордсет или нет?
мне приходит на ум только ловить ошибку

[SSecurity]

Код: Выделить всё

If RS.State = 1 Then RS.Close 'Закрываем если открыт


[lord0n]

смотрел в отладчике он у меня всегда = 0
я сам к нему хотел привязаться

[SSecurity]

Еще можно убивать рекордсет:)
Set RS = Nothing

тока потом надо заново все создать ...
ещё можешь проверять
If Not Rs Is Nothing Then ... ' проверка на существование

[SSecurity]

У тебя RS локализован для процы возможно:)

Подробнее о ошибке что пишет?

[lord0n]

ща проверю

[lord0n]

операция не допускается если обьект закрыт

[SSecurity]

Так у тебя он уже закрыт ... RS.State = 0
А еесли открыт RS.State = 1

[lord0n]

If Not Rs Is Nothing Then

а случайно не знаеш как сделать чтоб не "если рс закры то", а наоборот

просто весь день програмил - уже туплю

[lord0n]

Так у тебя он уже закрыт ... RS.State = 0
А еесли открыт RS.State = 1

в том то и трабла что хоть он закрыт, хоть откры - стайт всегда 0
сам не пойму в чем дело

[SSecurity]

так ... а ты можешь дать кусок кода ...
Просто уже интересно:)

[lord0n]

Код: Выделить всё


Private Sub Form_Initialize()

Set RS = New ADODB.Recordset
RS.Open "select * from Art Order by Артикул", db, adOpenDynamic, adLockOptimistic

Set grd.DataSource = RS

RS.Close
db.Close

End Sub

Private Sub Form_Unload(Cancel As Integer)
RS.Close
db.Close
End Sub


[SSecurity]

Так .... поставь после строки
Set grd.DataSource = RS

отладчик на строке
RS.Close

и в Имедиат виндовсе напиши
? RS.State

[SSecurity]

После коннекта ты все закрываешь у тебья итак все при инициализации закрыто ...

Если уберешь

Код: Выделить всё

RS.Close
db.Close


из Form_Initialize() все будет работать:)

[lord0n]

согласен так получается 1
но как только он входит в анлоад он становится в любом случае 0
мож вставить закрытие куданить в другое место типа терминейт или vb при входе в анлоад сам закрывает рекордсет?

[lord0n]

После коннекта ты все закрываешь у тебья итак все при инициализации закрыто ...

Если уберешь

Код: Выделить всё

RS.Close
db.Close


из Form_Initialize() все будет работать:)

так у меня на кнопках в форме висит открытый рс и закрыть я его не могу

[SSecurity]

смотри выше:)))) ...
убери лишнее закрытие:)
или убери их из унлоада ююю они итак закрыты:)

[lord0n]

все разобрался - при входе в анлоад он сам закрывается
третий раз огромное спасибо

[SSecurity]

согласен так получается 1
но как только он входит в анлоад он становится в любом случае 0
мож вставить закрытие куданить в другое место типа терминейт или vb при входе в анлоад сам закрывает рекордсет?

Потому как в этой и следующей строке ты закрываешь и Рекордсет и Соединение:)

[lord0n]

согласен так получается 1
но как только он входит в анлоад он становится в любом случае 0
мож вставить закрытие куданить в другое место типа терминейт или vb при входе в анлоад сам закрывает рекордсет?

Потому как в этой и следующей строке ты закрываешь и Рекордсет и Соединение:)

даже если ебрать ету строку то всеравно
я же говорю что туплю, прошу прощения
разобрался

[SSecurity]

сделай так...
ТОКА объявление Dim RS as New recordset должен быть на уровне формы

Код: Выделить всё

Private Sub Form_Initialize()

Set RS = New ADODB.Recordset
RS.Open "select * from Art Order by Артикул", db, adOpenDynamic, adLockOptimistic

Set grd.DataSource = RS

End Sub

Private Sub Form_Unload(Cancel As Integer)
  msgbox RS.State
End Sub


то получишь RS.State = 1, потому что ты его не закрывал и сам он не закрывается:)
а вообще если сделать в Form_Unload

Код: Выделить всё

  Set RS = Nothing
  Set db = Nothing


то, не ошибешься

[lord0n]

елки моталки надо не рс проверять а саму базу
ну я и тупой

[lord0n]

все бли спать пора а незя

[SSecurity]

Молодец, нашел ошибку - исправь:)

[lord0n]

я перед тобой должник стока времени на меня угрохал

[SSecurity]

Да ладно тебе, мне не сложно, будут вопросы - задавай.
Успехов, как спать решишь - приятных сновидений.

[lord0n]

еще раз огромное спасибо