Поместить значение поля таблицы ADO в диалог MessageBox

@sharuk_alexey · Регистрация: 25.09.2013

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

Есть база данных Access, мне необходимо удалить одно из значений одной таблицы нажав на кнопку, но перед удалением удостоверится что пользователь действительно хочет это сделать. И если это действительно так, удалить его.

Вот код:

C++
1
2
3
if (MessageBox(NULL, "Вы действительно хотите удалить " + Form1->ADOTPoint->FieldByName("Label_full")->AsString + "?", "Внимание!", MB_YESNO | MB_ICONWARNING) == IDYES) {
Form1->ADOTPoint->Delete();
}

Но, не работает. Подскажите новичку, что не так?

ADOTPoint - компонент TADOTable.

Ошибка [BCC32 Error] Sprav.cpp(81): E2342 Type mismatch in parameter 'lpText' (wanted 'const char *', got 'UnicodeString')
Full parser context
Sprav.cpp(80): parsing: void _fastcall TForm1::SpeedButton3Click(TObject *)

@volvo · 27.09.2013, 15:06

Собери то, что будет передаваться в качестве параметра lpText в одну строку. Я предпочитаю для этого использовать функцию Format, но можно и простым sprintf-ом...

C++
1
2
3
4
5
6
    if(MessageBox(NULL, Format("Вы действительно хотите удалить %s?",
                               ARRAYOFCONST((Form1->ADOTPoint->FieldByName("Label_full")->AsString))).c_str(),
                  "Внимание!", MB_YESNO | MB_ICONWARNING) == IDYES)
    {
        // делай что нужно
    }

@Tim979 · 27.09.2013, 16:47

еще вариант

C++
1
2
3
4
5
AnsiString msg = "Вы действительно хотите удалить " + Form1->ADOTPoint->FieldByName("Label_full")->AsString + "?";
    AnsiString cap = "Внимание!!!";
    int iR=MessageBox(Handle, msg.c_str(), cap.c_str(), MB_OKCANCEL);
    if (iR == IDOK)
    {Form1->ADOTPoint->Delete();}

@sharuk_alexey · 30.09.2013, 06:38 **[ТС]**

Спасибо за подсказку, сам нашел решение, пришлось мануал почитать, написал так:

C++
1
2
3
4
5
6
if(MessageBox(NULL, AnsiString("Вы действительно хотите удалить \n" +
    Form1->ADOTPoint->FieldByName("Label_full")->AsString + "?").c_str(), 
    "Внимане!", MB_YESNO | MB_ICONSTOP) == IDYES)
{
Form1->ADOTPoint->Delete();
}

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .