🚀 go-pugleaf

Here is the code to enumerate views in MS SQL Server but it shows what you
need.

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("VIEW");
 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 + ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Daniel Stevenson" <d.stevenson@ocreage.com.au> �������/�������� � ��������
���������: news:3fd808b7$1@newsgroups.borland.com...
> I'm trying to return some information using the openschema as seen below
>
>
>     Variant tvars[3] = { Unassigned(), Unassigned(), "tablename" };
>
>     TADODataSet*  dataSet = new TADODataSet(NULL);
>     std::auto_ptr<TADODataSet> auto_dataSet(dataSet);
>
>     ADOConnection->OpenSchema(siPrimaryKeys , VarArrayOf(tvars, 2), NULL,
> dataSet);
>
>     //where tablename is the name of one of the tables within my database
>
>
> This seems to compile ok but when it is executed it returns the following
> error
>
>     "Arguments are of the wrong type, are out of acceptable range, or are
in
> conflict with one another."
>
> I unfortunately don't know a lot about OpenSchema and was using someone
> else's code they posted earlier.
>
> Any Help as to where I am going wrong would be greatly appreciated.
>
>