MyTetra Share
Делитесь знаниями!
Массив из таблицы
Время создания: 16.03.2019 23:43
Текстовые метки: VBA_Access, Recordset
Раздел: !Закладки - VBA - Access
Запись: xintrea/mytetra_db_adgaver_new/master/base/1524914003mmh08vua7v/text.html на raw.githubusercontent.com

'=============================================================================================

' ##### Массив из рекордсета

'http://www.sql.ru/forum/788340/access-vba-massiv

Function FnArInRecordset2(ByVal strSQL As String) As Variant

Dim rst As Recordset

    Set rst = CurrentDb.OpenRecordset(strSQL)

    FnArInRecordset2 = rst.GetRows()

End Function

'---------------------------------------------------------------------------------------------

'SELECT SystemConf_Rafal.* FROM SystemConf_Rafal;

Function FnArInRecordset(ByVal strSQL As String) As Variant

 

'strSQL = "SELECT SystemConf_Rafal.* FROM SystemConf_Rafal;"

'Const strSQL = "SELECT IdRec, Name, DateR, Familie, " _

       + "Childer, Dolgnost, Zarplata FROM tblSotrudniki"

Dim oCon As ADODB.Connection

    Set oCon = CurrentProject.Connection

    If oCon.Execute(strSQL).EOF Then

        MsgBox "Таблица пустая!", 64, "Содержимое таблицы"

        FnArInRecordset = ""

    Else

        FnArInRecordset = oCon.Execute(strSQL).GetRows

    End If

Set oCon = Nothing

 

'atemp = FnArInRecordset()

End Function

'=============================================================================================

 

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