ADODB Command

@fantaz1 · Регистрация: 08.11.2008

Студворк — интернет-сервис помощи студентам

Подскажите, как правильно использовать класс для работы с SQL запросами _CommandPtr ??
Пробую использовать его вот так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void CMyDatabase::OpenRecordsetSQL(CString strSQL)
{
    try
    {
        rset->Close();
    }
    catch(...)
    {
    }
 
    com->ActiveConnection = con;
    com->CommandText = strSQL.GetBuffer(0);
    
    rset->Open((IDispatch*)com,(IDispatch*)con,adOpenDynamic,adLockOptimistic,adCmdTable);
}

но к сожалению не чего не получается выдается ошибка..(
rset это _RecordsetPtr

если открываю вот таким способом то работает все нормально

C++
1
2
3
4
5
6
7
8
9
10
11
12
void CMyDatabase::OpenRecordset(CString table, CString filter)
{
    try
    {
        rset->Close();
    }
    catch(...)
    {
    }
    rset->Filter = filter.GetBuffer(0);
    rset->Open(table.GetBuffer(0),(IDispatch*)con,adOpenDynamic,adLockOptimistic,adCmdTable);
}

Подскажите пожалуйста как правильно использовать SQL запросы в ADODB???

@Том Ардер · 12.07.2010, 18:06

Работает:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
    _CommandPtr         pCmd = NULL;
    _RecordsetPtr       pRs = NULL;
 
    TESTHR(pCmd.CreateInstance(__uuidof(Command)));
 
    pCmd->ActiveConnection = m_pConnection;
    pCmd->ActiveConnection->CursorLocation = adUseClient;
    pCmd->CommandText = _bstr_t((LPCSTR)strSQL);
    pCmd->CommandType = adCmdTable;
 
    TESTHR(pRs.CreateInstance(__uuidof(Recordset)));
 
    try
    {
//      pRs = pCmd->Execute( NULL, NULL, adCmdTable );
        pRs->Open((IDispatch *)pCmd, 
            vtMissing,
            adOpenKeyset,
            adLockOptimistic,
            adCmdTable );
    }
    catch(_com_error &e)
    {
        PrintComError(e);
    }
 
void PrintComError(_com_error &e)
{
    _bstr_t bstrSource(e.Source());
    _bstr_t bstrDescription(e.Description());
    
    // Print Com errors.  
    TRACE( "\nError\n" );
    TRACE("\tCode = %08lx\n", e.Error());
    TRACE("\tCode meaning = %s\n", e.ErrorMessage());
    TRACE("\tSource = %s\n", (LPCSTR) bstrSource);
    TRACE("\tDescription = %s\n", (LPCSTR) bstrDescription);
}
 
inline void TESTHR(HRESULT x) {if FAILED(x) _com_issue_error(x);};

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

Опции темы