Compartir a través de


Capítulo 3: Examen de datos

Se aplica a: Access 2013, Office 2013

El Capítulo 2 explicaba cómo se recuperan datos de un origen de datos en forma de objeto Recordset. En este capítulo se analizará con más detalle el objeto Recordset, incluyendo la forma de navegar a través de Recordset y ver sus datos.

Los objetos Recordset tienen métodos y propiedades que se diseñaron para facilitar el desplazamiento por ellos y examinar su contenido. En función de la funcionalidad admitida por el proveedor, algunas propiedades o métodos de Recordset pueden no estar disponibles. Para continuar explorando el objeto Recordset, considere un objeto Recordset que sería devuelto por la base de datos de ejemplo Neptuno en Microsoft SQL Server 2000, usando el código siguiente:

 
'BeginRsTour 
Public Sub RecordsetTour() 
 On Error GoTo ErrHandler: 
 
 Dim objRs As New ADODB.Recordset 
 Dim strSQL As String 
 
 strSQL = "SELECT ProductID, ProductName, UnitPrice FROM Products " & _ 
 "WHERE CategoryID = 7" '7 = Produce 
 
 objRs.Open strSQL, strConnStr, adOpenForwardOnly, _ 
 adLockReadOnly, adCmdText 
 
 'Clean up 
 objRs.Close 
 Set objRs = Nothing 
 Exit Sub 
 
ErrHandler: 
 If Not objRs Is Nothing Then 
 If objRs.State = adStateOpen Then objRs.Close 
 Set objRs = Nothing 
 End If 
 
 If Err <> 0 Then 
 MsgBox Err.Source & "-->" & Err.Description, , "Error" 
 End If 
End Sub 
'EndRsTour 

Esta consulta SQL devuelve un objeto Recordset con cinco filas (registros) y tres columnas (campos). En la tabla siguiente se muestran los valores correspondientes a cada fila.

CAMPO 0
Name = ProductID

CAMPO 1
Name = ProductName

CAMPO 2
Name = UnitPrice

7

Uncle Bob's Organic Dried Pears

30.0000

14

Tofu

23.2500

28

Rssle Sauerkraut

45.6000

51

Manjimup Dried Apples

53.0000

74

Longlife Tofu

10.0000

En la sección siguiente se explica cómo buscar la posición actual del cursor en este conjunto de registros de ejemplo.

En este capítulo, se tratan los temas siguientes: