🚀 go-pugleaf

I forgot to say that the connection is opened correctly (forgot to put 
the line in the sample code that I posted), and that I have trouble only 
with the Command object. The Recordset object has worked fine for me in 
other functions.

When I execute the command, after I have modified the CommandText 
property, it is always empty (the commandtext property) and I get an 
error (0x80040E0C-Empty commandtext) when I execute the command .

Thanks again.



Angel wrote:

> Hello to all.
> 
> (BCB6 Enterprise)
> 
> I have imported the Microsoft ActiveX Data Objects 2.8 Library, because 
> i have to make an application that doesn't use ADOExpress.
> 
> I use the imported objects in this function:
> 
> HRESULT __fastcall ADODatabase::ExecuteCmd(wchar_t* CmdStr,VARIANT* 
> pParams)
> {
>   HRESULT hr = -1;
>   ConnectionPtr DBConn;
>   CommandPtr DBCommand;
>   RecordsetPtr RecTemp;
> 
>   try
>   {
>     hr=DBConn.CreateInstance(CLSID_Connection);
>     if(SUCCEEDED(hr))
>     {
>       RecTemp.CreateInstance(CLSID_Recordset);
>       hr = pDBCommand.CreateInstance(CLSID_Command);
>       if(SUCCEEDED(hr))
>       {
>         DBCommand->CommandText = CmdStr;
>         DBCommand->ActiveConnection = DBConn;
>         RecTemp = DBCommand->Execute( TVariantInParam(1),
>                              Params,
>                              adCmdText);
>       }
> 
>     }
>   }
> 
>   catch(...)
>   {
>     hr = -1;
>   }
>   return hr;
> }
> 
> but I always get a compiling error ('CommandText is not accessible').
> 
> I have edited the ADODB_TLB.h file, changing the lines where the 
> property CommandText is defined to define the write part of the property 
> in this way:
> 
>   __property   BSTR            CommandText = {read = get_CommandText}; 
> //original line
>   __property   BSTR            CommandText = {read = get_CommandText 
> write = put_CommandText}; //Line modified by me
> 
> but I cannot get the command to work
> 
> I think that Tlibimp is buggy, and also is the Import type library 
> option of the menu.
> 
> Any suggestion? I repeat that i cannot use ADOExpress.
> 
> Thanks in advance.