dPgSz = rs->PageSize;



      rs->PutPageSize(newPgSz);

   // -or-

      rs->PageSize = newPgSz;



// Note 2

      rs->PutRefActiveConnection( cn );

      rs->Open("authors", vtMissing, adOpenStatic, adLockReadOnly,

               adCmdTable);

      printf("Original pagesize = %d, new pagesize = %d\n", oldPgSz,

               rs->GetPageSize());

      rs->Close();

      cn->Close();

   }

   catch (_com_error &e)

   {

      printf("Description = %s\n", (char*) e.Description());

   }

   ::CoUninitialize();

}



使用GetItem(x)和Item[x]

下面是VB中关于Item()的标准与交互语法的演示。

Public Sub GetItemItem

Dim rs As New ADODB.Recordset

Dim name as String

rs = rs.Open "authors", "DSN=pubs;", adOpenDynamic, _

         adLockBatchOptimistic, adTable

name = rs(0)

'' -or-

name = rs.Fields.Item(0)

rs(0) = "Test"

rs.UpdateBatch

'' Restore name

rs(0) = name

rs.UpdateBatch

rs.Close

End Sub



以下则是VC++关于Item的演示

当访问collection中的Item时，索引值2必须被转换为long类型以确保正确的构造函数被调用。

#import "c:\Program Files\Common Files\System\ADO\msado15.dll" \

   no_namespace rename("EOF", "EndOfFile")

#include <stdio.h>



void main(void)

{

   CoInitialize(NULL);

   try {

      _RecordsetPtr   rs("ADODB.Recordset");

      _variant_t      vtFirstName;



      rs->Open("authors",

               "Provider=sqloledb;Data Source=a-tima10;"

               "Initial Catalog=pubs;User Id=sa;Password=;",

               adOpenStatic, adLockOptimistic, adCmdTable);

      rs->MoveFirst();



// Note 1.取得一个字段的名称

      vtFirstName = rs->Fields->GetItem((long)2)->GetValue();

   // -or-

      vtFirstName = rs->Fields->Item[(long)2]->Value;



      printf( "First name = ''%s''\n", (char*) ((_bstr_t) vtFirstName));



      rs->Fields->GetItem((long)2)->Value