🚀 go-pugleaf

Thanks for your help.  However, the example is not quite working yet on my
machine...  When I run the code I get the following error message:

Project ADOTEST1.exe raised exception class EOleException with message
'(this->get_Item(Index, (Adodb_tlb::FieldPtr*)&ppvObject)) Error: 800A0CC1
(-2146825023) @ ....

When I comment out everything starting with the line where "get_Item" is, it
works without errors (doing nothing), but when I write
Memo1->Lines->Add(rs->Fields->Count);

it writes 0 there although there are 2 fields and 6 records in my database.

Ivo Karindi


"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:3e96b0b5$1@newsgroups.borland.com...
> 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
> >
> >
>
>