BorlandTalk.com

Angel · Guest

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.

Angel · Guest

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:

Viatcheslav V. Vassiliev · Guest

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 (AT) example (DOT) net> ???????/???????? ? ???????? ?????????:
news:42c91c7d$1 (AT) newsgroups (DOT) borland.com...

Angel · Guest

It works!!! Why??? I don't understand. I did try casting CmdStr to BSTR
and it didn't work.

Anyway, thank you very much.

Viatcheslav V. Vassiliev wrote:

Viatcheslav V. Vassiliev · Guest

C++ Builder has some problems with assigning WideString properties, mostly
C++ Builder 5 or previous, in C++ Builder 6 it is solved, but anyway it is
safer to assign exactly WideString to property with type WideString. As I
understand, sometimes C++ Builder uses incorrect constructor for WideString
(or BSTR), for example, with char* (not wchar_t*) as parameter, but here I
may be wrong.

//------------------------------------------
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 (AT) example (DOT) net> ???????/???????? ? ???????? ?????????:
news:42ca92bc$1 (AT) newsgroups (DOT) borland.com...