🚀 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)


"Cabrera" <ivette.garrido@biesenbruc.de> �������/�������� � �������� 
���������: news:440c3272$1@newsgroups.borland.com...
>
> I want to read all tables names and I write
>     ....
>      int bounds[] = {0,3};
>       OleVariant A(bounds,1, varVariant);
>       A.PutElement(varEmpty,0);
>       A.PutElement(varEmpty,1);
>       A.PutElement(varEmpty ,2);
>       A.PutElement("TABLE",3);
>
>         m_cpConnection->OpenSchema(siTables,A,varEmpty,m_cpRecordset);
>
> m_cpConnection is derived from TAdoConnection and is activ
> m_cpRecordset is als TAdoDataset declared, i use CBuilder6
>
> By attempting to run this code I receive a Exception (the Parameters are 
> wrong .....
>
> How can I do???
> Thanks