Добавление записи в таблицу

The_Immortal · Регистрация: 04.04.2009

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

ВСем привет!
Ребят, помогите плиз. Я уже не знаю как быть. Пытаюсь создать на кнопочку обычное добавление записи в таблицу, но нифига не выходит.

C++
1
2
3
4
5
6
7
8
void __fastcall TForm2::Button6Click(TObject *Sender){
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("INSERT INTO Клиент (ИдентификаторКлиента, ФИО, СписокКассет, ДатаВыдачиКассеты)");
   ADOQuery1->SQL->Add("VALUES (Form2->DBEdit2->Text, DBEdit1->Text, DBEdit3->Text, DBEdit4->Text)");
   ADOQuery1->Open();
   DBGrid1->DataSource=DataSource2;
}

На это выскакивает ерор:

@_Cat · 29.09.2010, 19:08

The_Immortal, по моим наблюдением ширина столбца зависит от размера поля, который выделили когда создавали поле в аксессе)))

с ув. твоя однокурсница

У меня примерно та же проблема с удалением, и никакие Form1->ADOQuery1->FieldByName("id"), не подойдут(((
Скажите пожалуйста как определить номер выделенной строки (в одном из столбцов, которой курсор установлен)в сетке или в таблице, чтобы потом добраться до 1го столбца, этой строки, т е до id и потом уже удалить эту строку.

The_Immortal · 29.09.2010, 19:27 **[ТС]**

_Cat, От полей в аксесе, к сожалению это никак не зависит =( Напрасно вы так о Form1->ADOQuery1->FieldByName("id") - все работает. Только вот поле это (id) приходится везде ныкать, где оно не нужно, т.е. после каждой процедуры (выборки, удаления и т.д.)

@_Cat · 29.09.2010, 19:54

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

Form1->ADOQuery1->FieldByName("id") - все работает.

Работает, но мне надо чтобы иначе работало(((( Мне нужно чтобы можно было удалить строку, независимо в какую ячейку этой строки установлен курсор.

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

_Cat, От полей в аксесе, к сожалению это никак не зависит =(

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

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

Только вот поле это (id) приходится везде ныкать, где оно не нужно, т.е. после каждой процедуры (выборки, удаления и т.д.)

А я id не скрывала, т к бредово это! у нас же не клиентское приложение, где нужно лишнее скрыть.. да и в моем случае затрудняется добавление записей в БД, если id скрыть(( т к в поле одной из таблиц номера строк другой перечислены, а как их перечислять, если они скрыты 0_о

@Lord_Voodoo · 30.09.2010, 09:28

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

C++
1
2
AnsiString del=Form1->ADOQuery1->FieldByName("id")->AsString,
              sql="DELETE from BD WHERE [id]="+del+"";

будет отлично работать...

@Taras-veter · 29.05.2015, 00:33

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
AnsiString SQLQuery, SQLSelect;
SQLSelect="select * from Specialization where ID_specialization=";
SQLSelect+=Edit1->Text.Trim();
DataModule3->ADOQuery2->Active=false;
DataModule3->ADOQuery2->SQL->Clear();
DataModule3->ADOQuery2->SQL->Add(SQLSelect);
DataModule3->ADOQuery2->Active=true;
if (DataModule3->ADOQuery2->RecordCount>0) {
 Application->MessageBox("Код існує!", "Помилка", MB_OK);
 Edit1->Text="";
 Edit1->SetFocus();
 return;
 }
 
SQLQuery="insert into Specialization values ('";
SQLQuery+=Edit1->Text.Trim();
SQLQuery+="','";
SQLQuery+=Edit2->Text.Trim();
SQLQuery+="')";
DataModule3->ADOQuery2->Active=false;
DataModule3->ADOQuery2->SQL->Clear();
DataModule3->ADOQuery2->SQL->Add(SQLQuery);
try {
DataModule3->ADOQuery2->ExecSQL();
Application->MessageBox("Запис додано",  MB_OK);
}
catch(...) {
Application->MessageBox("?? ??????? ???????? ?????? ???????!", "???????", MB_OK);
}
DataModule3->ADOQuery2->Active=false;
DataModule3->ADOQuery2->SQL->Clear();
DataModule3->ADOQuery2->SQL->Add("Select * from Specialization");
DataModule3->ADOQuery2->Active=true;

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .

@_Cat 10 / 8 / 1 Регистрация: 21.09.2010 Сообщений: 35
	29.09.2010, 19:08
	The_Immortal, по моим наблюдением ширина столбца зависит от размера поля, который выделили когда создавали поле в аксессе))) с ув. твоя однокурсница У меня примерно та же проблема с удалением, и никакие Form1->ADOQuery1->FieldByName("id"), не подойдут((( Скажите пожалуйста как определить номер выделенной строки (в одном из столбцов, которой курсор установлен)в сетке или в таблице, чтобы потом добраться до 1го столбца, этой строки, т е до id и потом уже удалить эту строку. 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	29.09.2010, 19:27 [ТС]
	_Cat, От полей в аксесе, к сожалению это никак не зависит =( Напрасно вы так о Form1->ADOQuery1->FieldByName("id") - все работает. Только вот поле это (id) приходится везде ныкать, где оно не нужно, т.е. после каждой процедуры (выборки, удаления и т.д.) 0