Добавление записей

@Freshrecords · Регистрация: 08.04.2013

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

Ребят выручайте срочно. Нужно добавлять записи в табличку DBGrid.
Саму табличку я создал и заполнил через Denver (localhost) и открыл в Дельфине через компоненты MyDAC.
Вот смотрите на скриншот. Есть 5 столбцов.
FIO, data_rogdenie,group...
Так вот,
Мне нужно добавлять в эти столбцы записи.
К примеру:
Button и Edit. Вводим в Edit Ivashenko нажимаем на button -запись в FIO добавлена.
И так далее.
Как мне такой алгоритм реализовать?
Я уже весь интернет перерыл.

@Алекcей · 13.03.2015, 12:22

может это поможет?

Delphi
1
2
3
4
5
 with MyTable do begin
  Append;
  FieldByName['FIO'].asString:=Edit1.Text;
  Post;
 end;

это если данные для DBGrid берутся из MyTable.

@Freshrecords · 13.03.2015, 12:27 **[ТС]**

Алекcей,
Нет, данные, которые находятся в DBGrid берутся из MySQL на локальном сервере.
Вот в чем и вся загвоздка..

@Алекcей · 13.03.2015, 12:32

MySQL - сервер баз данных, а в Grid'e отображается содержимое из таблицы базы данных. а с помощью какого компонента не видя кода сказать не могу, поэтому предположил что данные извлекаются с помощью компонента TMyTable.

@Freshrecords · 13.03.2015, 12:41 **[ТС]**

Алекcей,
Да кода собственно то и нет. У меня установлены компоненты MyDac. Ну то что я использую для подключения таблички.
Это:
1. MyConnection- В ней я выбирал саму базу, пользователя, пароль и порт для получения доступа к базе.
2. My Table -В ней отражаются записи с таблицы, которая в MySQL. Но как отображаются, не прямым текстом как в DBGrid, ну то есть на ЯВУ, а только через Data Editor если заходить.
3. MyDataSource- Видит табличку MyTable.
Короче хз)) как.

@Алекcей · 13.03.2015, 12:44

добавьте на форму TEdit и пробуйте, как я писал в первом своем посте.

@Freshrecords · 13.03.2015, 12:50 **[ТС]**

Мозги впаривать и себе и людям.
Буду целую строку вставлять через НАВИГАТОР)
Спасибо за совет.

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

Сообщение от Алекcей

добавьте на форму TEdit и пробуйте,

Не получается. Ошибка
[dcc32 Error] Unit2.pas(59): E2035 Not enough actual parameters

Кстати пробовал вот так, но это целая строчка вставляется:

Delphi
1
DbGrid1.DataSource.DataSet.Insert;

@krapotkin · 13.03.2015, 14:30

и опять все в кучу кони, люди
таблица состоит из записей
записи из полей
вставить можно только всю запись целиком
командами Insert или Append
если на форме DBNavigator, то он это делает точно так же
после добавления нужно заполнить поля
MyTable.FieldByname('FIO').asString := Edit1.text
или
MyTable.FieldByname('FIO').asString := 'asdfakjsdfhlkajsdf';
Или еще как-нибудь
потом надо сделать подтверждение изменений записи
MyTable.Post;
галочка в навигаторе делает то же самое
не знаю, как у вас транзакции настроены, но после закрытия транзакции (Commit)
запись станет видна и в MyAdmin

надо хоть минимально прочитать тему перед началом работы или взять готовый пример, чтобы что-то делать
пересказывать статью учебника в паре постов, это как-то слабое удовольствие

@SveN_152v · 18.03.2015, 17:17

Посоветовал бы ещё пошаманить с DBEdit, который ты связываешь с DataSource и строками таблицы DataField, там сможешь реализовать добавление строки

@Staziah2 · 19.03.2015, 01:31

Сама в такой ситуации была,но только компонент не Table,а Адоквери.Но все равно суть таже.

Delphi
1
2
3
4
5
6
7
8
9
10
dm.Query.SQL.Clear;
dm.Query.SQL.Text:= 'Insert into {таблица} (FIO,data_rogdenie,group  и т.д) Values ('''+{название эдита}.Text+''','''+{название}.Text+''','''+{название}.Text+''','''+{название}.Text+''')' ;
dm.Query.ExecSQL;
 
dm.Main.SQL.Clear;
dm.Main.SQL.Text:= 'select * from {таблица}';
dm.Main.Open;
 
dm.Main.Last; // указывает на текующую строку,т.е. добавил новую запись и и таблица не будет показывать первую строчку,а последнюю. Да и действительно лучше использовать wwDBGrid,классная штука
end;

вместо квери поставь тейбл.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Freshrecords 21 / 15 / 5 Регистрация: 08.04.2013 Сообщений: 423

	Другое Добавление записей 13.03.2015, 09:03. Показов 812. Ответов 9 Метки нет (Все метки) Ребят выручайте срочно. Нужно добавлять записи в табличку DBGrid. Саму табличку я создал и заполнил через Denver (localhost) и открыл в Дельфине через компоненты MyDAC. Вот смотрите на скриншот. Есть 5 столбцов. FIO, data_rogdenie,group... Так вот, Мне нужно добавлять в эти столбцы записи. К примеру: Button и Edit. Вводим в Edit Ivashenko нажимаем на button -запись в FIO добавлена. И так далее. Как мне такой алгоритм реализовать? Я уже весь интернет перерыл. Миниатюры 0

@Freshrecords 21 / 15 / 5 Регистрация: 08.04.2013 Сообщений: 423
	13.03.2015, 12:27 [ТС]
	Алекcей, Нет, данные, которые находятся в DBGrid берутся из MySQL на локальном сервере. Вот в чем и вся загвоздка.. Миниатюры 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	13.03.2015, 12:32
	MySQL - сервер баз данных, а в Grid'e отображается содержимое из таблицы базы данных. а с помощью какого компонента не видя кода сказать не могу, поэтому предположил что данные извлекаются с помощью компонента TMyTable. 0

@Freshrecords 21 / 15 / 5 Регистрация: 08.04.2013 Сообщений: 423
	13.03.2015, 12:41 [ТС]
	Алекcей, Да кода собственно то и нет. У меня установлены компоненты MyDac. Ну то что я использую для подключения таблички. Это: 1. MyConnection- В ней я выбирал саму базу, пользователя, пароль и порт для получения доступа к базе. 2. My Table -В ней отражаются записи с таблицы, которая в MySQL. Но как отображаются, не прямым текстом как в DBGrid, ну то есть на ЯВУ, а только через Data Editor если заходить. 3. MyDataSource- Видит табличку MyTable. Короче хз)) как. 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	13.03.2015, 12:44
	добавьте на форму TEdit и пробуйте, как я писал в первом своем посте. 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,672 Записей в блоге: 21
	13.03.2015, 14:30
	и опять все в кучу кони, люди таблица состоит из записей записи из полей вставить можно только всю запись целиком командами Insert или Append если на форме DBNavigator, то он это делает точно так же после добавления нужно заполнить поля MyTable.FieldByname('FIO').asString := Edit1.text или MyTable.FieldByname('FIO').asString := 'asdfakjsdfhlkajsdf'; Или еще как-нибудь потом надо сделать подтверждение изменений записи MyTable.Post; галочка в навигаторе делает то же самое не знаю, как у вас транзакции настроены, но после закрытия транзакции (Commit) запись станет видна и в MyAdmin надо хоть минимально прочитать тему перед началом работы или взять готовый пример, чтобы что-то делать пересказывать статью учебника в паре постов, это как-то слабое удовольствие 0

@SveN_152v 1 / 1 / 3 Регистрация: 18.11.2013 Сообщений: 95
	18.03.2015, 17:17
	Посоветовал бы ещё пошаманить с DBEdit, который ты связываешь с DataSource и строками таблицы DataField, там сможешь реализовать добавление строки 0