Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2012, 16:48   #11
Gsingle
Пользователь
 
Регистрация: 31.03.2010
Сообщений: 19
По умолчанию

Цитата:
Сообщение от Прик Посмотреть сообщение
Если в access есть механизм триггеров, то можно. Если нет, то добавлять идентификатор с тем же значением (где бы его взять?) в другую таблицу надо ручками.
Но чтобы не было искусственно создаваемых проблем, таблицы нужно объединить.
Не думал что сработает..ведь в самом access выскакивала ошибка что нельзя добавить..а тут при добавление в делфи все работает..Спасибо за отклик...)
P.s. а что насчет автоматического добавления?...когда уже добавленную в одну таблицу поле добавилась бы и в другой?...примерчика нету?...
P.s.s. если я понял общий принцип..То приведу пример...просто общий принцип не более..хочу узнать прав или нет...
Код:
SQL.Add('insert into [Med_card]([Registr_nomer],[Blood_group],[RH],[Insurance_company],[№_insurance]');(Добавляем через параметры)
Код:
SQL.Add('insert into [Reception]([Registr_nomer]) where Reception.Registr_nomer=Med_card.Registr_nomer');(А Эти два просто в придачу)
SQL.Add('insert into [Courses_of_treatment]([Registr_nomer]) where Courses_of_treatment.Registr_nomer=Med_card.Registr_nomer');

Последний раз редактировалось Gsingle; 21.03.2012 в 17:17.
Gsingle вне форума Ответить с цитированием
Старый 24.03.2012, 03:30   #12
Gsingle
Пользователь
 
Регистрация: 31.03.2010
Сообщений: 19
По умолчанию

хм народ..вопрос возник...добавление и обновление в той же форме как делается?...а то добавляет но нету обновления...после перезапуска лишь...код прилагаю...
Код:
procedure TForm2.Button2Click(Sender: TObject);
begin
with Form2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Text:= 'insert into [Doctor]([№_id_doctor],[FIO],[Specialization],[Telefon],[Mode],[Cabinet_nom]) Values (:id,:FIO,:Spec,:Tel,:Mode,:Cab)';
Parameters.ParamByName('id').Value := Edit1.Text;
Parameters.ParamByName('FIO').Value := Edit2.Text;
Parameters.ParamByName('Cab').Value := Edit3.Text;
Parameters.ParamByName('Spec').Value := Edit4.Text;
Parameters.ParamByName('Mode').Value := Edit5.Text;
Parameters.ParamByName('Tel').Value := Edit6.Text;
ExecSQL;
SQL.clear;
ADODataSet3.Active:=false;
SQL.Add('select [Doctor.№_id_doctor],[Doctor.FIO],[Doctor.Specialization],[Doctor.Telefon],[Doctor.Mode],[Doctor.Cabinet_nom] from [Doctor]');
ADODataSet3.Active:=true;
open;
with Form2.ADOQuery2 do
begin
close;
SQL.clear;
ADODataSet3.Active:=false;
SQL.Add('select [Doctor.№_id_doctor],[Doctor.FIO],[Doctor.Specialization],[Doctor.Telefon],[Doctor.Mode],[Doctor.Cabinet_nom] from [Doctor]');
ADODataSet3.Active:=true;
open;
end;
end;
end;
надеюсь на ответ...
P.s. у меня там ошибка была...так что думаю и та и эта запись правильные...только во втором уж и без Dataset можно было бы...
Код:
ADODataSet2.Active:=false;
SQL.Add('select [Doctor.№_id_doctor],[Doctor.FIO],[Doctor.Specialization],[Doctor.Telefon],[Doctor.Mode],[Doctor.Cabinet_nom] from [Doctor]');
ADODataSet2.Active:=true;

Последний раз редактировалось Gsingle; 24.03.2012 в 04:12.
Gsingle вне форума Ответить с цитированием
Старый 24.03.2012, 03:39   #13
Gsingle
Пользователь
 
Регистрация: 31.03.2010
Сообщений: 19
По умолчанию

хм...нашел ответ сам же...
Код:
procedure TForm2.Button2Click(Sender: TObject);
begin
with Form2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Text:= 'insert into [Doctor]([№_id_doctor],[FIO],[Specialization],[Telefon],[Mode],[Cabinet_nom]) Values (:id,:FIO,:Spec,:Tel,:Mode,:Cab)';
Parameters.ParamByName('id').Value := Edit1.Text;
Parameters.ParamByName('FIO').Value := Edit2.Text;
Parameters.ParamByName('Cab').Value := Edit3.Text;
Parameters.ParamByName('Spec').Value := Edit4.Text;
Parameters.ParamByName('Mode').Value := Edit5.Text;
Parameters.ParamByName('Tel').Value := Edit6.Text;
ExecSQL;
SQL.clear;
ADODataSet3.Active:=false;
SQL.Add('select [Doctor.№_id_doctor],[Doctor.FIO],[Doctor.Specialization],[Doctor.Telefon],[Doctor.Mode],[Doctor.Cabinet_nom] from [Doctor]');
ADODataSet3.Active:=true;
open;
with DBGrid2.DataSource.DataSet do
begin
close;
open;
end;
end;
end;
Gsingle вне форума Ответить с цитированием
Старый 24.03.2012, 12:41   #14
Gsingle
Пользователь
 
Регистрация: 31.03.2010
Сообщений: 19
По умолчанию

Народ у меня вопрос...как обновить таблицу которая объединена данными из двух таблиц...Те две таблицы обновляются после входа...а эта нет...
я даже прописал новую ADOQuery в кнопке войти...
Код:
with Form1.ADOQuery7 do
begin
close;
SQL.Clear;
Form2.ADODataSet4.Active:=false;
SQL.Add('SELECT [Patients.Registr_nomer], [Patients.FIO], [Patients.Adress], [Patients.Date_of_birth], [Patients.Telefon], [Med_card.Blood_group], [Med_card.RH], [Med_card.Insurance_company], [Med_card.¹_insurance]');
SQL.Add('From [Med_card] INNER JOIN [Patients] ON Med_card.Registr_nomer=Patients.Registr_nomer');
Form2.ADODataSet4.Active:=true;
open;
эта объединенная таблица находится в dataset4.
Gsingle вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при добавление данных в таблицу Access SQL le7o БД в Delphi 3 05.01.2012 12:16
Добавление данных dbf в таблицу Access s8259 Microsoft Office Access 3 08.09.2011 12:59
Добавление в ACCESS данных через SQL Rin БД в Delphi 2 17.05.2011 11:48
Что лучше организовать добавление данных? БД Access Choovak БД в Delphi 0 23.01.2011 19:39