| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
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". Есть предложения как это организовать? Может кто подскажет как оптимизировать выше написанный код, если конечно это необходимо. |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
