ник: час
думал тут собака
Public rsTree As DAO.Recordset
|
Public Function ПолучитьСтрану() As Variant
Dim strSQL As String
strSQL = "SELECT strana.id, strana.strana, strana.territories_nn FROM strana ORDER BY strana.id"
Set rsTree = CurrentDb.OpenRecordset("strana")
ПолучитьСтрану = rsTree.GetRows(rsTree.RecordCount)
MsgBox UBound(ПолучитьСтрану, 2)
ответ = 0
rsTree.Close
Set rsTree = Nothing
End Function
|
MsgBox rsTree.RecordCount ---------= 5
