MyTetra Share
Делитесь знаниями!
функция, которая возвращает RECORDSET
Время создания: 31.05.2020 20:45
Текстовые метки: VBA_Access, Recordset
Раздел: !Закладки - VBA - Access - ADO
Запись: xintrea/mytetra_db_adgaver_new/master/base/1590947150d4pm0uq79r/text.html на raw.githubusercontent.com


Function fun_rsADO_Open(ByVal strSQL As String) As ADODB.Recordset

    Set fun_rsADO_Open = New ADODB.Recordset

    Set fun_rsADO_Open.ActiveConnection = CurrentProject.Connection

'    fun_rsADO_Open.Open strSQL

    fun_rsADO_Open.Open strSQL, CurrentProject.AccessConnection, , adLockPessimistic ' 3, 3,

End Function

 




Function rs(sql As String) As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = CurrentProject.Connection
    rs.Open sql
End Function
Так же в этом разделе:
 
MyTetra Share v.0.58
Яндекс индекс цитирования