VC ADO 数据库操作 SQL语句执行

_ConnectionPtr ptrConnection = NULL;

HRESULT hr = ptrConnection.CreateInstance("ADODB.Connection");

if (FAILED(hr))

{

if (!FAILED(::CoInitialize(NULL)))

{

OutputDebugString(_T("m_ptrConnection.CreateInstance again"));

ptrConnection.CreateInstance("ADODB.Connection");

}

}

ptrConnection->put_ConnectionTimeout(30L);

hr = ptrConnection->Open(_bstr_t(m_strConnect), "", "", 0);

if (FAILED(hr))

{

OutputDebugString(_T("数据库连接失败"));

return FALSE;

}

cstring strSQl=_T（“”）;

//查询密级信息

szSql=L"SELECT Col_ID ,Col_SupplierName FROM T3_Supplier";

_RecordsetPtr ptrRecord;

hr = ptrRecord.CreateInstance("ADODB.Recordset");

ptrRecord->CursorLocation = ADODB::adUseClient;

hr = ptrRecord->Open(_variant_t(strSql),_variant_t((IDispatch *)ptrConnection, TRUE),

ADODB::adOpenStatic,ADODB::adLockOptimistic, ADODB::adCmdText);