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

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

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@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