🚀 go-pugleaf

Why v1(0) - it will be integer with value 0. You should pass empty parameter
(EmptyParam in Delphi).

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

 OpenSchema(siTables, EmptyParam, EmptyParam, ds);

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

"Arnie Mauer" <xxx@nowhere.net> �������/�������� � �������� ���������:
news:40a8f814$1@newsgroups.borland.com...
> Hi,
>
> I swear I had it working at one time but no longer have the code.  I just
> want to get a list of tables in the schema.
>
> Using:
>
>    db->Open();
>    TADODataSet * ds = new TADODataSet( db );
>    ds->Connection = db;
>    OleVariant v1(0), v2(0);
>    db->OpenSchema( siTables, v1, v2, ds );
>
> I get the "Arguments are of the wrong type, ..." error message on the
> OpenSchema call.  Any suggestions?
>
> Thanks,
> - Arnie
>
>
>