🚀 go-pugleaf

Import ADO type library (choose "Project\Import Type Library" in IDE menu -
choose "Microsoft ActiveX Data Objects 2.x Library"). Add button and memo on
your form

#include <ADODB_TLB.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ConnectionPtr conn;
 RecordsetPtr rs;

 conn = CoConnection::Create();

 conn->Open(WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\\Temp\\Test.mdb;"),
  WideString(""), WideString(""), 0);

 rs = CoRecordset::Create();
 rs->Open(WideString("Select * from [TableName]"), (IDispatch*)conn,
adOpenKeyset, adLockOptimistic, 0);

 rs->MoveFirst();
 while (!(bool)rs->EOF)
 {
  for (int i=0; i<rs->Fields->Count; i++)
  {
   AnsiString str;
   FieldPtr Field = rs->Fields->get_Item(i);
   str = WideString(Field->Name) + WideString(" = ");
   str += Field->get_Value();
   Memo1->Lines->Add(str);
  }
  rs->MoveNext();

  Memo1->Lines->Add("");
 }

 rs->Close();
 conn->Close();
}

For this sample all columns should be convertible to string. You can use
samples for VC or even for VB with some modifications.

----------------------------------------------------------------
Regards,
Viatcheslav V. Vassiliev
http://www.oledbdirect.com
The fastest way to access MS SQL Server, MS Jet (MS Access)
and Interbase (through OLEDB) databases.


"Ivo Karindi" <solk@ieslc.com> �������/�������� � �������� ���������:
news:3e969069$1@newsgroups.borland.com...
> Wondering if there are any ADO examples around on the 'net describing the
> use of ADO from C++B?  Something similar to what is available on
> http://msdn.microsoft.com I'm using BCB4 and thus don't have ADOExpress.
> And anyway I want to get my project done without having to use any visual
> components.
>
> Topics of interest are the following:
> 1. Connecting to a MS Access 2000 database
> 2. Retrieving records by running SQL
>
> Ivo Karindi
>
>