Добавление запись в таблицу

[dimka123]

Снимок1.GIFесть форма регистрации // имеются 2 табл Администраторов и пользователей . ключевое поле(IDAdmin или IDUser заполняется генераторм
на которой размещено
label ,EditName , EditPas , ComboBox.
AdoConnection , Adoquery1 (для админа) , ADoquery2 ( для пользователя)
комбобокс чисто для условия в какую табл записать

в ADOQuery1 SQL запрос -INSERT INTO AdminUser (IDAdmin, AdminName,AdminPas) VALUES (:Data1, :Data2);
B ADOQuery2 SQL zapros - INSERT INTO Users (UsernName,UserPas) VALUES (:Data1, :Data2);

сам код

procedure TForm4.Button1Click(Sender: TObject);
begin
   if ComboBox1.ItemIndex=0 then begin// если выбран админ  то используем Adoquery1 -для записи в табл админ .
      AdoQuery1.Close;
    AdoQuery1.Parameters.ParamByName('Data1').Value:=Edit1.Text;
    AdoQuery1.Parameters.ParamByName('Data2').Value:=edit2.Text;
    ADOQuery1.Close;
    AdoQuery1.ExecSQL;
    ADOQuery1.Open;

   end;//end combo

end; //end but

на самом MSSQL serverЕ таблица AdminUser состоит из трех полей
IDAdmin(ключ.генератор , begint) AdminName , AdminPas ( varchar)

ошибок много вылезало .и тип данных не верный и добавление не возможно.. уже запутался .подскажите как правильно добавить запись в таблицу

[dimka123]

Ошибка - недопустимое имя объекта AdminUser

[xxbesoxx]

Adoquery1 (для админа) , ADoquery2 ( для пользователя)

почему не одну ADoquery ?

в ADOQuery1 SQL запрос -INSERT INTO AdminUser (IDAdmin, AdminName,AdminPas) VALUES (:Data1, :Data2);
B ADOQuery2 SQL zapros - INSERT INTO Users (UsernName,UserPas) VALUES (:Data1, :Data2);

Если "Админ" и "Пользователь" будет на одну таблицу и отличить по "статусу" ???

procedure TForm4.Button1Click(Sender: TObject);
begin
   if ComboBox1.ItemIndex=0 then begin// если выбран админ  то используем Adoquery1 -для записи в табл админ .
      AdoQuery1.Close; // А почему закрывайте ? может не закрыть и просто очистить надо  AdoQuery1.Clear;
    AdoQuery1.Parameters.ParamByName('Data1').Value:=Edit1.Text; // А может здесь Trim(Edit1.Text;)  так лучше 
    AdoQuery1.Parameters.ParamByName('Data2').Value:=edit2.Text;
    ADOQuery1.Close; // после передача параметров через Edit значение почему закрывайте ?
    AdoQuery1.ExecSQL;
    ADOQuery1.Open; // Может ещё нужно запрос SELECT

   end;//end combo

end; //end bu

[dimka123]

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

почему не одну ADoquery ?

Если "Админ" и "Пользователь" будет на одну таблицу и отличить по "статусу" ???

может быть и лучше! но SQL c Delphi я изучаю не долго . так что пытаюсь сделать хотя бы так. но с запросом на добавление записи ошибка! и не пойму какая и куда лезть .
а если в одну таблицу все загнать то как сделать проверку нужного поля " статус" мне как б разделение полномочий необходимо

[dimka123]

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

может быть и лучше! но SQL c Delphi я изучаю не долго . так что пытаюсь сделать хотя бы так. но с запросом на добавление записи ошибка! и не пойму какая и куда лезть .
а если в одну таблицу все загнать то как сделать проверку нужного поля " статус" мне как б разделение полномочий необходимо

и у меня нету AdoQuery1.Clear; есть ADOQuery1.ClearFields; они чем то отличаются?

[xxbesoxx]

и у меня нету AdoQuery1.Clear; есть ADOQuery1.ClearFields; они чем то отличаются?

-- Да отличаются
-- Смотрите пример пожалуйста
1)

create database DB1;
--------------
use DB1;
--------------
create table Users(u_id int identity,
                   u_fio nvarchar(30),
                   u_satus nvarchar(30),
                   u_login nvarchar(30),
                   u_password nvarchar(30) 
                   )

2)

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('INSERT INTO Users(u_fio, u_satus, u_login, u_password) '+
            'VALUES (:pu_fio, :pu_satus, :pu_login, :pu_password)') ;
    Parameters.ParamByName('pu_fio').Value := Trim(Edit1.Text);
    Parameters.ParamByName('pu_satus').Value := Trim(Edit2.Text);
    Parameters.ParamByName('pu_login').Value := Trim(Edit3.Text);
    Parameters.ParamByName('pu_password').Value := Trim(Edit4.Text);
    ExecSQL;
  end;
end;

end.

[dimka123]

нашел ошибку Исправил! разобрался!