MyTetra Share
Делитесь знаниями!
Рекордсет
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access

Function FnРекордсет(ByVal strTblName As String) As Boolean


Dim strSql As String

Dim rstData As DAO.Recordset

strSql = "select * from " & strTblName & ";"


' Dim rst As ADODB.Recordset

' Set rst = New ADODB.Recordset

' rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly



' открываем рекордсет

Set rstData = CurrentDb.OpenRecordset(strSql)

' ' проверяем наличие записей

If rstData.RecordCount = 0 Then

rstData.Close

MsgBox "Таблица " & NameTbl & " пустая!" _

, 64, "Содержимое таблицы"

' Exit Sub

Else

' число полей в запросе

''' intFields = 4

' определяем количество записей в рекордсете

rstData.MoveLast ' перемещение в конец рекордсета

rstData.MoveFirst ' перемещение в начало рекордсета

eData = rstData.RecordCount ' количество записей в рекордсете

intFields = rstData.Fields.Count ' количество столбцов

ReDim arrTemp(intFields, eData) ' устанавливаем размер динамического массива

' первый параметр - число столбцов в массиве (полей в запросе)

' второй параметр - число строк в массиве (число записей в запросе)

' сброс данных из рекордсета в массив

arrTemp = rstData.GetRows(eData)

' Set rstData = Nothing


' Erase arrTemp


End If

Set rst = Nothing

End Function

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