🚀 go-pugleaf

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ADOConnection1->ConnectionString =
WideString("Provider=Microsoft.Jet.OLEDB.4.0;"
  "Data Source=c:\\temp\\test.mdb");
 ADOConnection1->Connected = true;

 OleVariant EmptyParam;
 EmptyParam.VType  = VT_ERROR;
 EmptyParam.VError = DISP_E_PARAMNOTFOUND;

 SAFEARRAY FAR* psa = NULL;
 SAFEARRAYBOUND rgsabound;
 OleVariant var;
 OleVariant Array;
 rgsabound.lLbound = 0;
 rgsabound.cElements = 4;

 psa = SafeArrayCreate(VT_VARIANT, 1, &rgsabound);
 var.VType = VT_EMPTY;

 long ix;
 ix = 0;
 SafeArrayPutElement(psa, &ix, &var);

 ix = 1;
 SafeArrayPutElement(psa, &ix, &var);

 ix = 2;
 SafeArrayPutElement(psa, &ix, &var);

 var.VType = VT_BSTR;
 var.VOleStr = WideString("TABLE");  //Look possible values in TABLE_TYPE
column
                                     //when there is no restrictions
 ix = 3;
 SafeArrayPutElement(psa, &ix, &var);

 Array.VType  = VT_ARRAY | VT_VARIANT;
 Array.VArray = (TVarArray*)psa;

 ADOConnection1->OpenSchema(siTables, Array, EmptyParam, ADODataSet1);
}

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)


"Leen Keus" <lj.keus@tiscali.nl> �������/�������� � �������� ���������:
news:41eedac8@newsgroups.borland.com...
> Hi,
>
> does anybody has an example on how to use TADOConnection->OpenSchema(const
> TSchemaInfo, const OleVariant, const OleVariant, TADODataSet *).
>
> I must get table information (field names, types, etc) from an MSAccess
> database.
>
> Thanks so far,
> Leen Keus
>
> -- 
> :wq!
>
>