Добавление данных в access.ошибка.

[Gsingle]

Здравствуйте всем кто читает форум, дает советы и так далее. как бы долго и принципиально не искал в общем то ответы на свои вопросы, я так и не нашел..Решил изложить в общем свою проблему сюда.
есть Таблица Patients со своими данными это Регистрационный номер, ФИО, Адрес, Дата рождение, Телефон. решил добавить через edit данные в таблицу.

procedure TForm1.Button3Click(Sender: TObject);
begin
with Form1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into [Patients]([Registr_nomer],[FIO],[Adress],[Date_of_birth],[Telefon])');
SQL.Add('Values (:Reg),(:FIO),(:Adres),(:Date_b),(:Tel)');
SQL.Add('SELECT [Patients.Registr_nomer],[Patients.FIO],[Patients.Adress],[Patients.Date_of_birth],[Patients.Telefon]');
Sql.Add('FROM [Patients]');
Parameters.ParamByName('Reg').Value := Edit1.Text;
Parameters.ParamByName('FIO').Value := Edit2.Text;
Parameters.ParamByName('Adres').Value := Edit3.Text;
Parameters.ParamByName('Date_b').Value := Edit4.Text;
Parameters.ParamByName('Tel').Value := Edit5.Text;
ExecSQL;
end;
end;

выдает ошибку..Не совпадает число значений запроса и число результирующих полей..в чем может быть проблема?

[Bit_Man]

Попробуй сначала вставить, а потом открыть. Типа так

with Form1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into [Patients]([Registr_nomer],[FIO],[Adress],[Date_of_birth],[Telefon])');
SQL.Add('Values (:Reg),(:FIO),(:Adres),(:Date_b),(:Tel)');
Parameters.ParamByName('Reg').Value := Edit1.Text;
Parameters.ParamByName('FIO').Value := Edit2.Text;
Parameters.ParamByName('Adres').Value := Edit3.Text;
Parameters.ParamByName('Date_b').Value := Edit4.Text;
Parameters.ParamByName('Tel').Value := Edit5.Text;
ExecSQL;
Close;
SQL.Clear;
SQL.Add('SELECT [Patients.Registr_nomer],[Patients.FIO],[Patients.Adress],[Patients.Date_of_birth],[Patients.Telefon]');
Sql.Add('FROM [Patients]');
Parameters.ParamByName('Reg').Value := Edit1.Text;
Parameters.ParamByName('FIO').Value := Edit2.Text;
Parameters.ParamByName('Adres').Value := Edit3.Text;
Parameters.ParamByName('Date_b').Value := Edit4.Text;
Parameters.ParamByName('Tel').Value := Edit5.Text;
Open;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

в принципе Bit_Man прав.
только для внесения данных и для получения выборки лучше использовать РАЗНЫЕ Query !

и ещё. зачем задавать параметры (я про выборку) если их нет в запросе.
Если не ошибаюсь - будет ошибка!

[Прик]

В тексте выражения:

SQL.Add('Values (:Reg),(:FIO),(:Adres),(:Date_b),(:Tel)');

синтаксическая ошибка (и не одна), на которую реагирует анализатор ("Не совпадает число ...").
Должно быть так:

SQL.Add('Values (:Reg,:FIO,:Adres,:Date_b,:Tel)');

[Gsingle]

Всем спасибо за ответы.Помогло. А как насчет обновления в DBGride после добавления записи?..после перезапуска программы добавленная запись появляется а до этого никак.. вот у мя есть кнопка Войти. После ее нажатия появляется форма 2 в котором и есть вся таблица.
после перелопачивания форумов и не нахождения точного ответа, решил сделать так...

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
with Form1.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT [Patients.Registr_nomer],[Patients.FIO],[Patients.Adress],[Patients.Date_of_birth],[Patients.Telefon] FROM [Patients]');
Open;
end;
end;

все равно не работает..пытался через

ADOQuery2.Active:= false;
ADOQuery2.Active:= true;

тоже никак. может кто подскажет а народ?..

[Gsingle]

P.s. народ сам нашел решение. думаю кому то может это помочь..
Только сразу объясняю ситуацию..Есть Форма 1 и Форма 2. В форме 2 соединение с Бд:ADODataset,ADOConnection,DataSou rce и DBgrid и DBNavigator.
Форма 1.Там есть Кнопка Добавить,Войти и Выход.
Прописав кнопку Добавить вот так:

procedure TForm1.Button3Click(Sender: TObject);
begin
with Form1.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into [Patients]([Registr_nomer],[FIO],[Adress],[Date_of_birth],[Telefon])');
SQL.Add('Values (:Reg,:FIO,:Adres,:Date_b,:Tel)');
Parameters.ParamByName('Reg').Value := Edit1.Text;
Parameters.ParamByName('FIO').Value := Edit2.Text;
Parameters.ParamByName('Adres').Value := Edit3.Text;
Parameters.ParamByName('Date_b').Value := Edit4.Text;
Parameters.ParamByName('Tel').Value := Edit5.Text;
ExecSQL;
SQL.Clear;
Form2.ADODataSet1.Active:=false;
SQL.Add('select [Patients.Registr_nomer],[Patients.FIO],[Patients.Adress],[Patients.Date_of_birth],[Patients.Telefon] FROM [Patients]');
Form2.ADODataSet1.Active:=true;
open;
end;
end;

мы захотим Войти в форму 2 где БД.
Прописываем кнопку Войти:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
with Form1.ADOQuery2 do
begin
close;
SQL.Clear;
Form2.ADODataSet1.Active:=false;
SQL.Add('select [Patients.Registr_nomer],[Patients.FIO],[Patients.Adress],[Patients.Date_of_birth],[Patients.Telefon] FROM [Patients]');
Form2.ADODataSet1.Active:=true;
open;
end;
end;

Буду рад если мой код хоть кому то поможет и Всем спасибо)...если что свои наблюдения буду сюда кидать.
P.s.s. Модератор можно ли кидать именно сюда свои наблюдения?..

[Serge_Bliznykov]

P.s.s. Модератор можно ли кидать именно сюда свои наблюдения?..

я бы даже сказал - "нужно".
Ведь темы с форума просто так не удаляются,
вполне ваш опыт и советы могут кому-то пригодится!

[Gsingle]

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

я бы даже сказал - "нужно".
Ведь темы с форума просто так не удаляются,
вполне ваш опыт и советы могут кому-то пригодится!

Спасибо за ответ и за отклик...)

[Gsingle]

Хм. у меня тут вопрос возник..короче Ключ и индекс Registr_nomer с таблицы Patient связан со связью один к одному с ключом и индексом Registr_nomer таблицы Med_card...Можно ли сделать так чтоб когда добавлялся регистрационный номер в Patients то этот же регистрационный номер добавлялся в Med_card? если нельзя то каким образом при добавление в Patients бд не ругалась и после проверки ввода второго такого же регистрационного номера добавлялось и туда и сюда?...в целом немножко запутанно но я пытался объяснить..ниже будет упрощенный вариант рассказа..
Patients.Registr_nomer(ключ и индекс) <-1-к-1-> Med_card.Registr_nomer(ключ и индекс)...

[Прик]

Если в access есть механизм триггеров, то можно. Если нет, то добавлять идентификатор с тем же значением (где бы его взять?) в другую таблицу надо ручками.
Но чтобы не было искусственно создаваемых проблем, таблицы нужно объединить.

При связи «один к одному» одной строке родительской таблицы может соответствовать не более одной строки дочерней таблицы (и наоборот). Такая связь создается, если оба связанных столбца являются первичными ключами, обеспечивающее их уникальность. Связи этого типа встречаются редко, поскольку связанную подобным образом информацию обычно удается поместить в одной таблице.

А.В. МАРКИН. ПОСТРОЕНИЕ ЗАПРОСОВ И ПРОГРАММИРОВАНИЕ НА SQL. 2008 год