| |
ADO требует, чтобы Recordset был закрыт перед открытием. Эта процедура предназначена для открытия рекордсета. Если он открыт, то он закрывается, а если он содержит те же данные, которые Вы запрашиваете, то вызывается метод Requery для перезапроса данных.
Public Sub ADO_OpenRs(rs As Recordset, szSource As String, Optional bReadOnly = False)
If rs.State = adStateClosed Or rs.Source <> szSource Then
If rs.State <> adStateClosed Then rs.Close
rs.Open szSource, gCn, adOpenStatic, IIf(bReadOnly, adLockReadOnly, adLockOptimistic)
Else
rs.Requery
End If
End Sub
|
|