[BlacKCheT]

В очередной раз ищу помощи в создании такого запроса.. Вообщем хочу сделать регистрацию, с добавлением напрямую в бд Acess(таблицку users).Да поможет мне Аллах.

Сам микро проект прилагается. Пароль от базы внутри. Если хотите пощупать базу, то изменяем формат с database на mbd.

P.S избранному поставлю свечку в церкви

[BlacKCheT]

Как дышится?

[lmikle]

Попробуй так:

Код:

DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('INSERT INTO users (login,password) values ('''+Edit1.text+''','''+Edit2.Text+''')');
DataModule2.ADOQuery1.ExecSQL;

[BlacKCheT]

Суда бы песню: "Вот такие дела.."

[lmikle]

попробуй вот так:

Код:

DataModule2.ADOQuery1.SQL.Add('INSERT INTO "users" (login,password) values ('''+Edit1.text+''','''+Edit2.Text+''')');

или так:

Код:

DataModule2.ADOQuery1.SQL.Add('INSERT INTO [users] (login,password) values ('''+Edit1.text+''','''+Edit2.Text+''')');

[BlacKCheT]

Первый вариант не работает, а во втором невозможно найти файл(мою бд).

[BlacKCheT]

Я там скинул исходники, там проект. Сейчас пробую, ничего не происходит.. Просто кнопка отрабатывает и все. Открываю базу а там ничего.

[lmikle]

Т.е. не "сыпется".
Уже хорошо.
А что бы увидеть изменения в БД еще надо "закоммитить" транзакцию.

[Alegun]

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

Я там скинул исходники, там проект...

Наконец руки дошли посмотреть его - поля находятся, но при добавлении нового юзверя посредством SQL выскакивает ошибке, что датасетка не в режиме редактирования или вставки, может это с ключевым полем связано, не знаю, сделал "обычными" средствами адозапроски

Код:

procedure TForm4.Button1Click(Sender: TObject); //??????? ?????? ? ???????
begin
 try
  if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then showmessage('Заполните поля!');
  with DataModule2.ADOQuery1 do
   begin
    Insert;
    FieldByName('login').Value:= Edit1.Text;
    FieldByName('password').Value:= Edit2.Text;
    Post; {UpdateBath}
   end;
  Edit1.Clear;
  Edit2.Clear;
 except
  on e:Exception do
 end;
end;

вроде работает

[BlacKCheT]

Что я вам должен?

[Alegun]

Кстати, если выкинуть из таблицы ключевое поле, то тогда вот такой запрос записи в неё всёж добавляет

Код:

...
 DataModule2.ADOQuery1.SQL.Add('INSERT INTO users VALUES ("' + Edit1.Text + '","' + Edit2.Text + '")');
...

не знаю с чем связано, но без перечисления полей insert здесь работает

[lmikle]

Тогда скорее всего дело связанно с тем, что ключевое поле обязательно для заполнения, вот и дает такой сбой.

[Alegun]

Ага, я тоже так думаю, перепробовал все виды кавычек: одинарные..двойные, и всёравно, ошибку синтаксиса выдовало, просто для юмора, убрал поля по-незнанке и ключевое поле, - и о, чудо - SQL добавляет запись!, не знаю причину, обычно в других базах перечисление полей таблицы работает, а здесь - только с бубном, первый раз такое вижу, может это акцесс мудрствует, правда, не знаю!

[lmikle]

Скорее просто не та ошибка наружу вылазит, т.е. где-то внутри идет нарушение констрейта, а наружу вылазит ошибка синтаксиса.