Связь таблиц.

@MAXIM_SERGEEVICH · Регистрация: 04.12.2008

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

Доброго времени суток!!! вообщем проблема такая, есть база данных в Access, Мне нужно чтоб с формы в edit'ы заносились данные, во время ввода эти данные нужно проверять на существование(они находятся в разных) таблицах. Буду примного благодарен если скините самый простой пример как связать хотя бы 2 таблицы в Delphi. Я так понимаю нужно использовать хранимые процедуры, а я понятия не имею как они работают. И еще вопрос - можно ли как нибудь используя Query проверить существование данных в таблице?

@Lord_Voodoo · 17.04.2009, 12:08

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

@MAXIM_SERGEEVICH · 17.04.2009, 12:54 **[ТС]**

в базе то таблицы связаны. Дело в том что у меня есть форма на ней есть edit'ы. Эта форма-формирут акт. Т.е существует в базе таблица Актов. Я заполняю все в форме и делаю кнопочку "сформировать акт". В баззе данных в таблице Актов должна появиться новая запись. Но дело в чем! мне нужно чтоб внесенные мной записи, так же появились в связных таблицах с таблицей Актов.

И еще такая проблема почему то не компилируется вот это

Query1.SQL.Add('INSERT INTO Месторождения(Месторождение) VALUES ('+Edit1.Text+')');
Пишет типо не правильный синтаксис.

@MAcK · 17.04.2009, 12:58

Delphi
1
Query1.SQL.Add('INSERT INTO Месторождения(Месторождение) VALUES ("'+Edit1.Text+'")');

@MAXIM_SERGEEVICH · 19.04.2009, 08:35 **[ТС]**

Ок!! спасибо!!! ща попробую!!!

Добавлено через 11 часов 46 минут 40 секунд
Попробывал выдало ошибку:

EDBEengine Error with message 'General SQL error.[Microsoft][Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1.'

И в чем у меня косяк???

Добавлено через 23 часа 50 минут 21 секунду
Неужели на этом добрые люди закончились???

@Lord_Voodoo · 19.04.2009, 09:42

MAXIM_SERGEEVICH, вообще текстовые данные в запросе обрамляются одинарной кавычкой

SQL
1
INSERT INTO Месторождения(Месторождение) VALUES ('уголь')

@MAXIM_SERGEEVICH · 19.04.2009, 10:52 **[ТС]**

WooDooMan, синтаксис, то верный! я пробывал и одинарные и двойные кавычки. Одна и таже ошибка:

EDBEengine Error with message 'General SQL error.[Microsoft][Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1.'

ODBC настроил верно! на уровне СУБД, т.е через SQL Explorer Deplhi запрос выполняется. А в самой Delphi почему то ошибка....Что делать???

@MAcK · 19.04.2009, 19:02

В данных едита есть запятая?

@MAXIM_SERGEEVICH · 19.04.2009, 21:05 **[ТС]**

IT-Skyline, Неа, нету...там простой текст типа "Ачимовское" или "Узумское" и т.д

@MAcK · 20.04.2009, 10:48

А это таблица имеет внешний ключ???

@MAXIM_SERGEEVICH · 21.04.2009, 08:17 **[ТС]**

IT-Skyline, неа нету.....Эта таблица, это что то вроде правочника с одной колонкой. с одним первичным ключом.Я пробывал такой запрос и с другими таблицами, вообщем таже фигня...Может у меня в настройке ODBC ошибка??? хотя я там только базу указал и все.

@MAcK · 21.04.2009, 10:45

У меня заработало когда написал так:

Delphi
1
2
  ADOQuery1.SQL.Text := 'Insert into [table1] ([names]) values (' + #39 + Edit1.Text + #39 + ')';
  ADOQuery1.ExecSQL;

@MAXIM_SERGEEVICH · 21.04.2009, 11:22 **[ТС]**

а что значит #39??? и велика разница если я BDE использую???

@MAcK · 21.04.2009, 11:25

#39 = '
и не важно что ты используешь

@MAXIM_SERGEEVICH · 22.04.2009, 10:40 **[ТС]**

IT-Skyline, Спасибо огромное!!!! ЗАРАБОТАЛО!!!! Знал бы где ты живешь магарыч бы принес!!!! ты мне жизнь спас!!! спасибо!!!!

Добавлено через 23 часа 9 минут 9 секунд
Вот еще такой вопрос,

Delphi
1
2
3
Query1.SQL.Add('Insert Into Блаблабла Values('+#39+Edit1.Text+#39+')');
Query1.SQL.Add('Insert Into Блаблабла Values('+#39+Edit2.Text+#39+')');
Query1.ExecSQL;

вообщем ругается что пропущен оператор

Delphi
1
( ; )

в SQL конструкции. В чем ошибка.

И еще проблема, когда ввожу данные в поле с датой (так же используя Insert) пишел что ключевое или индексное поле не может быть Null. Но дело в том что это поле не ключевое и не индексное. Я даже пробывал менять у него тип на строковый, все равно одна и та же ошибка.

@MAcK · 22.04.2009, 11:14

Query1.SQL.Add('Insert Into Блаблабла Values('+#39+Edit1.Text+#39+');');
Query1.SQL.Add('Insert Into Блаблабла Values('+#39+Edit2.Text+#39+')');

Насчёт ключевого поля, он ругается не на поле с датой, а на другое, к-рое является ключевым

@MAXIM_SERGEEVICH · 22.04.2009, 12:58 **[ТС]**

Я сделал так,

Delphi
1
2
3
4
Query1.SQL.Text:='Insert Into Блаблабла Values('+#39+Edit1.Text+#39+')';
Query1.ExecSQL;
Query1.SQL.Text:='Insert Into Блаблабла Values('+#39+Edit2.Text+#39+')';
Query1.ExecSQL;

через watch посмотрел, начинает ругаться на 2м запросе, типо ключевое поле не должно быть Null. Хотя первый запрос заполняет ключевое поле.

@Lord_Voodoo · 22.04.2009, 13:16

MAXIM_SERGEEVICH, вообще пишет вам все правильно, потому что вы в первый раз пишете ключевое поле, а потом новую строку, но без ключа... не понятно, зачем вам два запроса на добавление, если можно сделать в одном, но если вам так угодно, то второй запрос должен быть update по ключу

@MAXIM_SERGEEVICH · 22.04.2009, 13:50 **[ТС]**

2 запроса потому, что разные поля таблицы заполняются и перед этим еще проверяется если там данные, чтоб 2 раза одно и тоже не вводить...

update по ключу Это как??? примерчик не подкините???

@Lord_Voodoo · 22.04.2009, 14:38

MAXIM_SERGEEVICH, вы с sql знакомы издалека, как я вижу, Insert вам добавит добавит строчку, а не обновит поле...

SQL
1
2
UPDATE имя_таблицы  SET имя_поля1 = значение1, ... имя_поляN = значениеN WHERE условие
INSERT INTO имя_таблицы (имя_поля1, ... имя_поляN) VALUES(значение1, ... значениеN)

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49

	Связь таблиц. 17.04.2009, 11:55. Показов 5668. Ответов 28 Метки нет (Все метки) Доброго времени суток!!! вообщем проблема такая, есть база данных в Access, Мне нужно чтоб с формы в edit'ы заносились данные, во время ввода эти данные нужно проверять на существование(они находятся в разных) таблицах. Буду примного благодарен если скините самый простой пример как связать хотя бы 2 таблицы в Delphi. Я так понимаю нужно использовать хранимые процедуры, а я понятия не имею как они работают. И еще вопрос - можно ли как нибудь используя Query проверить существование данных в таблице? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.04.2009, 12:08
	а чем вам не угодно настроить связи в самой базе, чтобы проверить наличие данных хватит простого select-а, а если у вас данные берутся из других таблиц-справочников, если я правильно понял, тогда надо использовать не эдиты, а какие-нить компоненты, куда вы можете загрузить существующие значения из таблиц 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	17.04.2009, 12:54 [ТС]
	в базе то таблицы связаны. Дело в том что у меня есть форма на ней есть edit'ы. Эта форма-формирут акт. Т.е существует в базе таблица Актов. Я заполняю все в форме и делаю кнопочку "сформировать акт". В баззе данных в таблице Актов должна появиться новая запись. Но дело в чем! мне нужно чтоб внесенные мной записи, так же появились в связных таблицах с таблицей Актов. И еще такая проблема почему то не компилируется вот это Query1.SQL.Add('INSERT INTO Месторождения(Месторождение) VALUES ('+Edit1.Text+')'); Пишет типо не правильный синтаксис. 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	19.04.2009, 08:35 [ТС]
	Ок!! спасибо!!! ща попробую!!! Добавлено через 11 часов 46 минут 40 секунд Попробывал выдало ошибку: EDBEengine Error with message 'General SQL error.[Microsoft][Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1.' И в чем у меня косяк??? Добавлено через 23 часа 50 минут 21 секунду Неужели на этом добрые люди закончились??? 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	19.04.2009, 10:52 [ТС]
	WooDooMan, синтаксис, то верный! я пробывал и одинарные и двойные кавычки. Одна и таже ошибка: EDBEengine Error with message 'General SQL error.[Microsoft][Драйвер ODBC Microsoft Access] Слишком мало параметров. Требуется 1.' ODBC настроил верно! на уровне СУБД, т.е через SQL Explorer Deplhi запрос выполняется. А в самой Delphi почему то ошибка....Что делать??? 0

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	19.04.2009, 19:02
	В данных едита есть запятая? 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	19.04.2009, 21:05 [ТС]
	IT-Skyline, Неа, нету...там простой текст типа "Ачимовское" или "Узумское" и т.д 0

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	20.04.2009, 10:48
	А это таблица имеет внешний ключ??? 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	21.04.2009, 08:17 [ТС]
	IT-Skyline, неа нету.....Эта таблица, это что то вроде правочника с одной колонкой. с одним первичным ключом.Я пробывал такой запрос и с другими таблицами, вообщем таже фигня...Может у меня в настройке ODBC ошибка??? хотя я там только базу указал и все. 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	21.04.2009, 11:22 [ТС]
	а что значит #39??? и велика разница если я BDE использую??? 0

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	21.04.2009, 11:25
	#39 = ' и не важно что ты используешь 1

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	22.04.2009, 11:14
	Query1.SQL.Add('Insert Into Блаблабла Values('+#39+Edit1.Text+#39+');'); Query1.SQL.Add('Insert Into Блаблабла Values('+#39+Edit2.Text+#39+')'); Насчёт ключевого поля, он ругается не на поле с датой, а на другое, к-рое является ключевым 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	22.04.2009, 13:16
	MAXIM_SERGEEVICH, вообще пишет вам все правильно, потому что вы в первый раз пишете ключевое поле, а потом новую строку, но без ключа... не понятно, зачем вам два запроса на добавление, если можно сделать в одном, но если вам так угодно, то второй запрос должен быть update по ключу 0

@MAXIM_SERGEEVICH 0 / 0 / 1 Регистрация: 04.12.2008 Сообщений: 49
	22.04.2009, 13:50 [ТС]
	2 запроса потому, что разные поля таблицы заполняются и перед этим еще проверяется если там данные, чтоб 2 раза одно и тоже не вводить... update по ключу Это как??? примерчик не подкините??? 0