Архив форумов ЦИТФорума

[Илья]

Если я хочу в своей программе на VBA получить значение из ячейки таблицы, как это лучше сделать?

Речь идёт о VBA для Access

[Larson]

Не надо путать Access и Excel. Первое - это СУБД, в которой нет понятия ячейки, а есть понятия строки и столбцы. Я сейчас не помню синтаксис VBA, но там можно сделать селект из таблицы и результат поместить в рекордсет, а дальше работать с рекордсетом как с массивом.

[Борис]

а то вопрос твой сродни вопросу "какую кнопку нажать при сообщении Press any key to continue..."

[Илья]

Конечно же позор такие вопросы спрашивать, как мне спрашивать приходиться, но у меня в help'e нету даже про объекиы ADO ни слова, так что моим help'ом можно только ...
Если кто поможет - знаний подкинет, чтобы мне себя дураком прилюдно не выставлять, буду очень, очень, очень благодарен.

[Борис]

Recordset Object, Recordsets Collection Example

This example demonstrates Recordset objects and the Recordsets collection by opening four different types of Recordsets, enumerating the Recordsets collection of the current Database, and enumerating the Properties collection of each Recordset.

Sub RecordsetX()

 Dim dbsNorthwind As Database
 Dim rstTable As Recordset
 Dim rstDynaset As Recordset
 Dim rstSnapshot As Recordset
 Dim rstForwardOnly As Recordset
 Dim rstLoop As Recordset
 Dim prpLoop As Property

 Set dbsNorthwind = OpenDatabase("Northwind.mdb")

 With dbsNorthwind

  ' Open one of each type of Recordset object.
  Set rstTable = .OpenRecordset("Categories", _
   dbOpenTable)
  Set rstDynaset = .OpenRecordset("Employees", _
   dbOpenDynaset)
  Set rstSnapshot = .OpenRecordset("Shippers", _
   dbOpenSnapshot)
  Set rstForwardOnly = .OpenRecordset _
   ("Employees", dbOpenForwardOnly)

  Debug.Print "Recordsets in Recordsets " & _
   "collection of dbsNorthwind"

  ' Enumerate Recordsets collection.
  For Each rstLoop In .Recordsets

   With rstLoop
    Debug.Print " " & .Name

    ' Enumerate Properties collection of each
    ' Recordset object. Trap for any
    ' properties whose values are invalid in
    ' this context.
    For Each prpLoop In .Properties
     On Error Resume Next
     If prpLoop <> "" Then Debug.Print _
      " " & prpLoop.Name & _
      " = " & prpLoop
     On Error GoTo 0
    Next prpLoop

   End With

  Next rstLoop

  rstTable.Close
  rstDynase t.Close
  rstSnapshot.Close
  rstForwa rdOnly.Close

  .Close
 End With

End Sub

[Борис]

Move Method Example (MDB)

The following example uses the Move method to move forward two rows in a Recordset object:

Sub MoveForward()
 Dim dbs As Database, rst As Recordset
 Dim strCriteria As String

 ' Return reference to current database.
 Set dbs = CurrentDb
 ' Open dynaset-type Recordset object.
 Set rst = dbs.OpenRecordset("SELECT * FROM Orders " _
  & "ORDER BY ShipCountry;")
 rst.MoveLast
 rst.MoveFirst
&nb sp;' Check number of records in Recordset object.
 If rst.RecordCount > 2 Then
  ' Move forward two rows.
  rst.Move 2
  Debug.Print rst!ShipCountry
 End If
 rst.Close
 Set dbs = Nothing
End Sub

[Илья]