Ввод даных в базу

@vladenio · Регистрация: 16.03.2013

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

Хочу сделать чтобы добавление в базу Access было через отедльное поле и 1 кнопкой, а не целой панелью. Нашел как один человек делал то же саме тут с сиквел базой(если я правильно понял). И сделал аналогичный код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DBGrid1->MS Access Database->Add("INSERT INTO vips (Íèê, Óñëóãà, Ñåðâåð, Äàòà íà÷àëà, Äàòà êîíöà, Ïðèìå÷àíèå)");
   DBGrid1->MS Access Database->Add("VALUES (:Param1, :Param2, :Param3, :Param4, :Param5, :Param6)");
   DBGrid1>Parameters->ParamByName("Param1")->Value = Form1->Edit1->Text;
   DBGrid1>Parameters->ParamByName("Param2")->Value = Form1->Edit2->Text;
   DBGrid1>Parameters->ParamByName("Param3")->Value = Form1->Edit3->Text;
   DBGrid1>Parameters->ParamByName("Param4")->Value = Form1->Edit4->Date;
   DBGrid1>Parameters->ParamByName("Param5")->Value = Form1->Edit5->Date;
   DBGrid1>Parameters->ParamByName("Param6")->Value = Form1->Edit6->Text;
   DBGrid1->ExecMS Access Database();
}
//---------------------------------------------------------------------------

и как вы думаете где выбило? конечно же на MS Access Database. Как его заменить и что еще подправить?
P.S Таблица бд на 7 полей:
1 счетчик-ключ(в програму его не добавлял)
2 текст
3 текст
4 текст(хочу сделать чтобы было типа выпадное меню, но еще не знаю как)
5 дата
6 дата
7 текст
2 вида эдитов, так как не знаю какой нужен

@vladenio · 13.06.2014, 17:59 **[ТС]**

Sasha, а как? так?

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Form1->ADOQuery2->CommandText = "Select * from  Planers";
 Form1->ADOQuery2->Open();
 Form1->ADOQuery2->Sort = "[Äàòà êîíöà]  DESC";
 Form1->DataSource3->DataSet = Form1->ADOQuery2;
}

@Sasha · 13.06.2014, 20:11

C++
1
2
3
4
5
 Form1->ADOQuery2->Close();
 Form1->ADOQuery2->SQL->Clear();
 Form1->ADOQuery2->SQL->Text = "Select * from  Planers order by [Дата конца]  DESC";
 Form1->ADOQuery2->Open();
 Form1->DataSource3->DataSet = Form1->ADOQuery2;

@vladenio · 13.06.2014, 22:45 **[ТС]**

Sasha, не хочет работать

Компилируется но при нажатии не выполняет никакого действия.

@Sasha · 13.06.2014, 22:56

А ты DBGrid к какому DataSource подключил?

@vladenio · 13.06.2014, 23:49 **[ТС]**

Sasha, Хочу еще спросить, а как сделать так чтобы при запуске програмы таблица была сразу отсортирована? И время в таблицу не добавлялось(краткий формат даты)?

@Sasha · 14.06.2014, 00:14

Сообщение от vladenio

Sasha, Хочу еще спросить, а как сделать так чтобы при запуске програмы таблица была сразу отсортирована?

Поставь запрос(тот который выше я тебе писал) на сортировку первым при запуске программы и будет тебе счастье

Добавлено через 15 минут

Сообщение от vladenio

И время в таблицу не добавлялось(краткий формат даты)?

Этот вопрос я не совсем понял

@vladenio · 14.06.2014, 00:20 **[ТС]**

Sasha, В таблицу в колонки дата конца и начала добавляется дата. но еще добавляется и время. Как сделать чтобы время не добавлялось?(в аксесе в настройках есть параметр формат даты-> краткий формат, а тут как?)

@Sasha · 14.06.2014, 01:23

Access, формат даты

@vladenio · 14.06.2014, 16:35 **[ТС]**

Sasha, я очень извиняюсь но у меня еще один вопросик. Вот в этой книге я нашел элемент TBachMove который дает возможность копировать бд. Но он копирует все полностью. Как его настроить так чтобы копировал только то что просрочилось по dате конца:
(Последующий код это то как я себе это представляю)

C++
1
2
3
4
5
6
7
8
9
10
while(([Дата конца] id=1)<today)//id=1 это типо первая строка
if(([Дата конца] id=1)<today)
INSERT INTO planer_arhiv;
FROM by order Planers
TBachMove->Text[Ник]->Text[Ник]
TBachMove->Text[Услуга]->Text[Услуга]
TBachMove->Text[Сервер]->Text[Сервер]
TBachMove->Text[Дата начала]->Date[Дата начала]
TBachMove->Text[Дата конца]->Date[Дата конца]
TBachMove->Text[Примечание]->Text[Примечание]

@Sasha · 14.06.2014, 16:43

Сообщение от vladenio

Вот в этой книге я нашел элемент TBachMove который дает возможность копировать бд.

К сожалению с этим комопонентом не работал поэтому сказать ничего не могу

@vladenio · 14.06.2014, 17:23 **[ТС]**

Sasha, а как еще можно реализовать копирование?

@Sasha · 14.06.2014, 17:26

Сообщение от vladenio

Sasha, а как еще можно реализовать копирование?

Запросом

@D1973 · 15.06.2014, 13:34

Сообщение от vladenio

элемент TBachMove который дает возможность копировать бд

Насколько я помню, BatchMove работает с BDE, а с компонентами TADOTable, TADOQuery он не работает.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@vladenio 0 / 0 / 1 Регистрация: 16.03.2013 Сообщений: 52
	13.06.2014, 22:45 [ТС]
	Sasha, не хочет работать Компилируется но при нажатии не выполняет никакого действия. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	13.06.2014, 22:56
	А ты DBGrid к какому DataSource подключил? 1

@vladenio 0 / 0 / 1 Регистрация: 16.03.2013 Сообщений: 52
	13.06.2014, 23:49 [ТС]
	Sasha, Хочу еще спросить, а как сделать так чтобы при запуске програмы таблица была сразу отсортирована? И время в таблицу не добавлялось(краткий формат даты)? 0

@vladenio 0 / 0 / 1 Регистрация: 16.03.2013 Сообщений: 52
	14.06.2014, 00:20 [ТС]
	Sasha, В таблицу в колонки дата конца и начала добавляется дата. но еще добавляется и время. Как сделать чтобы время не добавлялось?(в аксесе в настройках есть параметр формат даты-> краткий формат, а тут как?) 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	14.06.2014, 01:23
	Access, формат даты 1

@vladenio 0 / 0 / 1 Регистрация: 16.03.2013 Сообщений: 52
	14.06.2014, 17:23 [ТС]
	Sasha, а как еще можно реализовать копирование? 0