Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
anuchin
0 / 0 / 0
Регистрация: 25.05.2015
1

Работа с CheckBox и базой данных Access

07.05.2011, 21:35. Просмотров 1649. Ответов 1
Метки нет (Все метки)

Помогите доработать код!!! у меня на форме 3 CheckBox-а принажатии на CheckBox1 в базу данных MSAccess в столбец Экзамены добавляется число 1, при нажатии на CheckBox2 добавляется число 2, ну и при нажатии на CheckBox3 добовляется 3, так вот как сделать чтобы при нажатии 2-х или всех 3-х CheckBoх-ов в базу в одну ячейку добавлялась запись (1,2,3) или (1,2) или (1,3)??? Как добавить по одной цифре я разобрался, а что бы несколько не могу понять, подскажите что нибудь. вот код :
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.sButton10Click(Sender: TObject);
var
 fields, values : string;
 begin
 fields := 'Предмет, Всего, Теоретические занятия, Лабораторные, Курсовые';
 values := QuotedStr(sEdit3.Text) +','+ QuotedStr(sEdit4.Text) + ', '+ QuotedStr(sEdit5.Text) + ', '+QuotedStr(sEdit6.Text) + ', '+ QuotedStr(sEdit7.Text);
 if sCheckBox1.Checked then
 begin
 fields := fields + ', Экзамены';
 values := values + ', 1';
 if sCheckBox2.Checked then
 begin
 fields := fields + ', Экзамены';
 values := values + ', 2';
 if sCheckBox3.Checked then
 begin
 fields := fields + ', Экзамены';
 values := values + ', 3';
 ADOCommand1.CommandText:= 'insert into ' + sEdit1.text + ' (' + fields + ')' + 'values (' + values + ')';
 ADOCommand1.Execute;
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2011, 21:35
Ответы с готовыми решениями:

Работа с базой данных access
Доброго времени суток. Я пишу диплом и тут я в тупике снова. Кто знает подскажите вот в чем ...

Работа с базой данных Access в Delphi 7
Всем привет! Нужно связать базу данных Access с Deplhi 7. Как связать одну таблицу с Delphi я...

Работа в delphi с базой данных access
Здравствуйте. Работаю в Delphi 10.2 с базой данных access. Возникла проблема. В делфи не корректно...

Работа в Delphi 7 с базой данных из Access (.mdb)
Подскажите как выполнить задание, пишу курсовую работу, заданием было спроектировать ис оптового...

Работа с базой Access
Здравствуйте нужна ваша помощь. Есть проблема при добавлении записи, пишет "Невозможно добавление...

1
Snake22
29.05.2011, 18:04 2
а зачем бегины? и без ендов?может енд добавить забыли?
извиняюсь если не то советую)
if sCheckBox1.Checked then
begin
fields := fields + ', Экзамены';
values := values + ', 1';
end;
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2011, 18:04

Приложение Delphi с базой данных Access
Вопрос следующий. Есть две таблицы: Предмет и преподаватель (таблицы связаны между собой полем "код...

Модуль взаимодействия с базой данных Access
В дипломе «Проект автоматизированной линии взвешивания и складирования растительного масла на...

Inno setup и приложения с базой данных Access
Есть прога с базой данных Access. Кладу в установщик файлы из папки релиз. После установки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru