Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

вставка в связанные таблицы SQL

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Базы данных
Предыдущая тема :: Следующая тема  
Автор Сообщение
bv7



Зарегистрирован: 13.10.2008
Сообщения: 6

СообщениеДобавлено: Пт Авг 07 2009 20:46    Заголовок сообщения: вставка в связанные таблицы SQL Ответить с цитатой

Имеются 2 таблицы Org с полями id - autoincrement; Org - varchar и Ceh с полями id - autoincrement, id_org - int, ceh - varcar Таблицы связаны org.id и ceh.id_org. При попытке добавить запись в таблицу ceh в поле ceh ругается на то, что нет соответствующей записи в таблице org.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Alex_pm



Зарегистрирован: 26.08.2006
Сообщения: 55

СообщениеДобавлено: Вс Авг 09 2009 10:21    Заголовок сообщения: Ответить с цитатой

А в ОРГ есть нужная запись ? Проверь
_________________
Infoscop.net
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
bv7



Зарегистрирован: 13.10.2008
Сообщения: 6

СообщениеДобавлено: Вс Авг 09 2009 10:55    Заголовок сообщения: Ответить с цитатой

Alex_pm писал(а):
А в ОРГ есть нужная запись ? Проверь

да все есть, вопрос снят, проблему решил, возможно не совсем правильно, но работает
Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text := 'Insert Into ceh (ceh,id_org) Values (:ceh,:id)';
 ADOQuery1.Parameters.ParamByName('id').Value := Label1.Caption;
 ADOQuery1.Parameters.ParamByName('ceh').Value := Edit2.Text;
 ADOQuery1.ExecSQL;
end;

в Label1.Caption сохраняю занчение поля org.id
Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select id');
 ADOQuery1.SQL.Add('from org');
 ADOQuery1.SQL.Add('where org ='''+Edit1.Text+'''');
 ADOQuery1.Open;
 Label1.Caption := IntToStr(ADOQuery1.FieldValues['id']);
end;

Таким образом получился справочник подразделений в организации. Теперь думаю на д тем как изменить (переход одного подразделения в другую организацию), и удаление организации. Для последнего планирую переназначать все подразделения в заранее созданную организацию "none". Есть предложения как это организовать? Может кто подскажет как оптимизировать выше написанный код, если конечно это необходимо.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Базы данных Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...