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

@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 он не работает.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@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