MyTetra Share
Делитесь знаниями!
функция,котороая возвращает RECORDSET
Время создания: 31.05.2020 20:45
Текстовые метки: VBA_Access, Recordset
Раздел: !Закладки - VBA - Access - ADO

Function rs(sql As String) As ADODB.Recordset

Set rs = New ADODB.Recordset

Set rs.ActiveConnection = CurrentProject.Connection

rs.Open sql

End Function


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

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования