The code is not working. To execute SQL commands, use something like this:
ADODB::_ConnectionPtr pConn = NULL;
ADODB::_CommandPtr pCmd = NULL;
HRESULT hr = pConn.CreateInstance(__uuidof(ADODB::Connection));
hr = pConn->Open(bstrConnect, "admin", "", ADODB::adConnectUnspecified);
hr = pCmd.CreateInstance(__uuidof( ADODB::Command));
pCmd->ActiveConnection = pConn;
pCmd->CommandText = insert;
pCmd->Execute(NULL, NULL, ADODB::adCmdText);
pConn->Close();
To use recordsets:
ADODB::_RecordsetPtr pRS = NULL;
hr = pRS.CreateInstance(__uuidof(ADODB::Recordset));
pRS->Open(
_T("Users"), _variant_t((IDispatch *)pConn, true), ADODB::adOpenKeyset, ADODB::adLockOptimistic, ADODB::adCmdTable); pRS->AddNew();
pRS->Fields->GetItem(_variant_t(_T("UserName")))->Value = _variant_t(strName);
pRS->Fields->GetItem(_variant_t(_T("PhoneNumber")))->Value = _variant_t(strAge);
pRS->Update();
pRS->Close();