🚀 go-pugleaf

Try

DBCommand->CommandText = WideString(CmdStr);

break on next line and look what is in CommandText. Does it work for command 
without parameters?

//------------------------------------------
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)

"Angel" <user@example.net> ???????/???????? ? ???????? ?????????: 
news:42c91c7d$1@newsgroups.borland.com...
>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.