?? ansitobstr.cpp
字號:
#import <msado15.dll> rename("EOF", "adoEOF")
struct InitOle {
InitOle() { ::CoInitialize(NULL); }
~InitOle() { ::CoUninitialize(); }
} _init_InitOle_;
BSTR AnsiToBSTR( LPTSTR m_pchData )
{
// Helper function derived from source of CString::AllocSysString()
BSTR bstr = NULL;
#if defined(_UNICODE) || defined(OLE2ANSI)
bstr = ::SysAllocStringLen(m_pchData, wcslen( m_pchData ) );
#else
int nLen = MultiByteToWideChar(CP_ACP, 0, m_pchData,
strlen( m_pchData ), NULL, NULL);
bstr = ::SysAllocStringLen(NULL, nLen);
if (bstr == NULL)
return NULL;
MultiByteToWideChar(CP_ACP, 0, m_pchData,
strlen( m_pchData ), bstr, nLen);
#endif
return bstr;
}
void main( void )
{
HRESULT hr = S_OK;
ADODB::_RecordsetPtr Rs1 = NULL;
VARIANT Source;
VARIANT Connect;
VariantInit( &Source );
VariantInit( &Connect );
// Note this demonstrates the code listing both for AnsiToBstr()
// as well as ways to create a BSTR
Source.vt = VT_BSTR;
Source.bstrVal = AnsiToBSTR( "SELECT * FROM Authors");
Connect.vt = VT_BSTR;
Connect.bstrVal = ::SysAllocString( L"DSN=AdoDemo;UID=admin;PWD=;" );
hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) );
Rs1->Open( Source, Connect,
ADODB::adOpenForwardOnly,
ADODB::adLockReadOnly, -1 );
Rs1->Close();
Rs1 = NULL;
::MessageBox( NULL, "Success!", "", MB_OK );
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -