🚀 go-pugleaf

Views schema is not supported by MS SQL Server. You should use tables schema
with restrictions:

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");    //May be "SYSTEM VIEW"

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

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

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

"Paulo S�rgio Tesche" <ptesche@via-rs.net> ???????/???????? ? ????????
?????????: news:3F427E87.8050309@via-rs.net...
> Hi,
>
> Has anynone a code sample in C++ Builder to retrieve the list of views
> of an SQL Server using TADOConnection and OpenSchema?
> I�m stucked with the Variant types. How to create them, how to pass them
> as parametes to OpenSchema?
>
> Any help greatle appreciated.
>
> Paulo Tesche
>