Как добавить информацию из delphi в access?

@Ford-9 · Регистрация: 03.12.2010

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

Человек вводит в инвормацию(в поле edit) и по нажатии на кнопку(обычный button например) инвормация которую он внёс в edit записалась в access..
Буду оч благодарен в оказаной вами мне помоши.. =)

@SAMZ · 25.04.2011, 17:32

Сообщение от Ford-9

Буду оч благодарен в оказаной вами мне помоши

Информация обновляется (пишется) не в access, а в конкретную таблицу, под управлением СУБД access. Если ждете помощи, то сообщите, по крайней мере, в какой таблице проводятся изменения и в каком поле.

@Ford-9 · 26.04.2011, 15:08 **[ТС]**

Программа для писологического теста.сначала заполняеться анкета(ФИО, семейной положение и т.д.) далее идёт сам тест. Нужно Даные анкеты занести в access а после этого даные теста в следушие поля. И после для психолога будет выводиться эта таблица с возможностью печати. с выводом и печатью проблем нету а вот как добывить...

Перерыл половину гугла негде немогу нигде найти как добывить..

@SAMZ · 26.04.2011, 15:20

Сообщение от Ford-9

Перерыл половину гугла негде немогу нигде найти как добывить

Ну, это явное преувеличение.
Все (или почти все) операции манипуляции данными в основном реализуются весьма ограниченным количеством SQL операторов
1. INSERT - добавить запись
2. UPDATE - изменить запись
3. DELETE - удалить запись
Для этих SQL операторов есть процедуры аналоги, инкорпорированные в компоненты доступа к БД (TTable, TQuery ...)
Расписывать работу этих инструментов здесь не место. Берем книги, хелпы и читаем до полного просветления.

@Krit-Ydachnik · 26.04.2011, 21:46

Создайте кнопку и в ней напиши form1.ИМЯ БАЗЫ.Insert;

Добавлено через 7 минут
Либо если обязателньо через едит то на кнопку ОК напишите это.
П.с. это пример если у вас 4 столбца... если их кол-во меньше думаю сами разберётесь как сделать))
П.с.с. База это имя базы) Нажимаете на AdoTable и там написано Name. То имя и подставляете сюда)

form1.BAZA.Insert;
form1.BAZA.FieldByName('Имя первого столбца').AsString:=Edit1.Text ;
form1.BAZA.FieldByName('Имя второго столбца').AsFloat:=Edit2.Text ;
form1.BAZA.FieldByName('Имя третьего столбца').AsString:=Edit3.Text ;
form1.BAZA.FieldByName('Имя четвертого столбца').AsString:=Edit4.Text ;
form1.BAZA.Post;

@Ford-9 · 28.04.2011, 14:08 **[ТС]**

Огромное спасибо! Получилось. =)
И теперь я знаю что почитать чтобы углубить в этом свои знания. =))

@Lupus · 28.04.2011, 15:15

form1.BAZA.Insert;

А чем Insert отличается от Append`а?

@SAMZ · 28.04.2011, 15:21

Lupus,

А чем Insert отличается от Append`а?

Insert добавляет в текущую позицию курсора, а Append в конец списка. Попробуйте, по результату поймете.

@vs259 · 28.04.2011, 15:56

Сообщение от Ford-9

Программа для писологического теста

1. Расположите на форме проекта Delphi компонент TADOConnection
2. Подключите его к БД Access, используя Connectionstring - Build - Microsoft Jet ... Provider - Далее
3. Выберите БД, проверьте подключение
4. В свойствах компонента LoginPrompt = False
5. Поставьте свойство Connected = True
6. Расположите на форме TADOTable, укажите ему в качестве коннекции ADOCONNECTION1.

Дальше рассказывать?

@Ford-9 · 28.04.2011, 17:25 **[ТС]**

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

1. Расположите на форме проекта Delphi компонент TADOConnection
2. Подключите его к БД Access, используя Connectionstring - Build - Microsoft Jet ... Provider - Далее
...
...
Дальше рассказывать?

Неа, спасибо ненадо...Я подключался и выводил даные всё получалось,только не мог вставлять с delphi данные в access.Уже почти доделал проектик.)

@Airon · 25.04.2012, 18:59

Ford-9, привет! ты дописал свой проект?

@Ford-9 · 25.04.2012, 22:24 **[ТС]**

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

Ford-9, привет! ты дописал свой проект?

Да давно уже доделал.

@Airon · 27.04.2012, 13:09

Сообщение от Ford-9

Да давно уже доделал.

Не мог бы ты поделится исходником свой программки?

Дело в том, что я сейчас пишу диплом на тему "Автоматизированная система тестирования профессиональных способностей выпускников".. т.е. тот же психологический тест..

Хочу разработать по Методу Дж. Холланда.. требования в основном совпадают с твоим проектом (БД со списком опрошенных,регистрация, авторизация).

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

Буду очень признателен!

Новые блоги и статьи Все статьи Все блоги /
изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@Ford-9 1 / 1 / 1 Регистрация: 03.12.2010 Сообщений: 32

	Как добавить информацию из delphi в access? 25.04.2011, 16:56. Показов 6357. Ответов 12 Метки нет (Все метки) Человек вводит в инвормацию(в поле edit) и по нажатии на кнопку(обычный button например) инвормация которую он внёс в edit записалась в access.. Буду оч благодарен в оказаной вами мне помоши.. =) 0

@Ford-9 1 / 1 / 1 Регистрация: 03.12.2010 Сообщений: 32
	26.04.2011, 15:08 [ТС]
	Программа для писологического теста.сначала заполняеться анкета(ФИО, семейной положение и т.д.) далее идёт сам тест. Нужно Даные анкеты занести в access а после этого даные теста в следушие поля. И после для психолога будет выводиться эта таблица с возможностью печати. с выводом и печатью проблем нету а вот как добывить... Перерыл половину гугла негде немогу нигде найти как добывить.. 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	26.04.2011, 21:46
	Создайте кнопку и в ней напиши form1.ИМЯ БАЗЫ.Insert; Добавлено через 7 минут Либо если обязателньо через едит то на кнопку ОК напишите это. П.с. это пример если у вас 4 столбца... если их кол-во меньше думаю сами разберётесь как сделать)) П.с.с. База это имя базы) Нажимаете на AdoTable и там написано Name. То имя и подставляете сюда) form1.BAZA.Insert; form1.BAZA.FieldByName('Имя первого столбца').AsString:=Edit1.Text ; form1.BAZA.FieldByName('Имя второго столбца').AsFloat:=Edit2.Text ; form1.BAZA.FieldByName('Имя третьего столбца').AsString:=Edit3.Text ; form1.BAZA.FieldByName('Имя четвертого столбца').AsString:=Edit4.Text ; form1.BAZA.Post; 1

@Ford-9 1 / 1 / 1 Регистрация: 03.12.2010 Сообщений: 32
	28.04.2011, 14:08 [ТС]
	Огромное спасибо! Получилось. =) И теперь я знаю что почитать чтобы углубить в этом свои знания. =)) 0

@Airon 0 / 0 / 1 Регистрация: 25.04.2012 Сообщений: 5
	25.04.2012, 18:59
	Ford-9, привет! ты дописал свой проект? 0