🚀 go-pugleaf

Thanks,

For other interest people. To get only informatie of one table, change the
SafeArray:

var.VType = VT_EMPTY;
long ix;
ix = 0;
SafeArrayPutElement(psa, &ix, &var);
ix = 1;
SafeArrayPutElement(psa, &ix, &var);
var.VType = VT_BSTR;
var.VOleStr = WideString(TableName); // Enter an AnsiString TableName
ix = 2;
SafeArrayPutElement(psa, &ix, &var);
var.VType = VT_EMPTY;
ix = 3;
SafeArrayPutElement(psa, &ix, &var);


The OpenSchema statement must be:
ADOConnection1->OpenSchema(siColumns, Array, EmptyParam, ADODataSet1);


I am now trying to found out how to get Stored Procedure information. Can
one help?


"Viatcheslav V. Vassiliev" <support@oledbdirect.com> schreef in bericht 
news:41ef8bb7$1@newsgroups.borland.com...
> 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)
>
>
> "Leen Keus" <lj.keus@tiscali.nl> �������/�������� � �������� ���������:
> news:41eedac8@newsgroups.borland.com...
>> Hi,
>>
>> does anybody has an example on how to use 
>> TADOConnection->OpenSchema(const
>> TSchemaInfo, const OleVariant, const OleVariant, TADODataSet *).
>>
>> I must get table information (field names, types, etc) from an MSAccess
>> database.
>>
>> Thanks so far,
>> Leen Keus
>>
>> -- 
>> :wq!
>>
>>
>
>