🚀 go-pugleaf

Thanks again Viatcheslav.  In addition to just getting the user tables now,
the duplicate table names in Oracle are gone.

- Arnie

"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:40aa44e8@newsgroups.borland.com...
> I now have no Oracle near so example is for MS SQL Server, but it should
> work for other DBMS. This sample shows only user tables.
>
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
>  ADOConnection1->ConnectionString = WideString("Provider=SQLOLEDB;"
>   "Integrated security=SSPI;Initial catalog=pubs");
>  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)
>
>
> "Arnie Mauer" <xxx@nowhere.net> �������/�������� � �������� ���������:
> news:40aa00ec@newsgroups.borland.com...
> > Thanks Vassiliev,
> >
> > That works - sort of.  Actually it works fine for DB2 and SQL Server.
> But,
> > with Oracle 9i, I seem to be getting some duplicate table names as well
as
> > system tables.  Any ideas on the dups or getting rid of the system
tables?
> >
> > Thanks,
> > - Arnie
> >