Проверить данные из EDIT

[serj-07]

Помогите с запросом:
Проверить данные из EDIT

 if   dm.ADOQuery1.SQL.Add('SELECT Naimen FROM postavshchiki')<>Edit1.Text then

или

if  not  dm.ADOQuery1.SQL.Add('SELECT Naimen FROM postavshchiki WHILE'"Edit1.Text%") then

Спасибо

[Dark_Spirit]

Код:

 if   dm.ADOQuery1.SQL.Add('SELECT Naimen FROM postavshchiki')<>Edit1.Text then

это бред какой-то.....

или
Код:

if  not  dm.ADOQuery1.SQL.Add('SELECT Naimen FROM postavshchiki WHILE'"Edit1.Text%") then

аналогично....
Я вот с трудом понимаю - зачем вы проверяете добавление текста запроса в компонент? быстрей всего вам нужно проверить результат выполнения этого запроса, это можно сделать когда запрос уже выполнился, ну или не выполнился в зависимости от текста....
во втором примере самого запроса после WHERE нужно указывать условие отбора, а не просто текст с EDIT-a

[Stilet]

 with dm.ADOQuery1 do begin
  SQL.Text:=SELECT count(*) FROM postavshchiki where Naimen='+QuotedStr(Edit1.Text));
  Open;
  if eof then ShowMessage('Не найдено');
  close;
 end;

Ясна идея?

[serj-07]

Stilet,Dark_Spirit Спасибо.

Решил для самопознания переделать на запросы свою программу, заодно научиться SQL, раньше запросами не пользовался.

Исходный листинг:

rocedure TForm3.Button4Click(Sender: TObject);
begin
  if   Edit1.Text<>'' then
    begin
      if not DM.postavTable.Locate('Naimen', Edit1.Text, [])then
        begin
          With DM.postavTable do
            begin
              Insert;
              FieldByName('Naimen').Value:=Edit1.Text;
              FieldByName('Adres').Value:=Edit2.Text;
              FieldByName('Telefon').Value:=Edit3.Text;
              Post;
            end;
       end
    else
      begin
        ShowMessage('Поставщик существует');
      end;
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    end
  else
    ShowMessage('Введите поставщика');
end;

Подскажите где неправильно, не сохраняет

procedure TForm3.Button25Click(Sender: TObject);
begin
  with dm.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT*FROM postavshchiki WHERE Naimen LIKE'+QuotedStr(edit1.Text)) ;
      Open;
      if eof then
        begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO postavshchiki (Naimen,Adres) VALUES ("'+edit1.Text+'","'+edit2.Text+'")');
          Open;
        end
      else
        ShowMessage('Поставщик  существует');
    end;
end;

спасибо

[Serge_Bliznykov]

SQL.Add('INSERT INTO postavshchiki (Naimen,Adres) VALUES ("'+edit1.Text+'","'+edit2.Text+'")');
          Open;

для операций изменения данных нужно вызывать метод ExecSQL (а не Open)

p.s. лучше использовать ОТДЕЛЬНЫЙ AdoQuery для манипуляции данными..

[eval]

с кавычками каша

[serj-07]

Ошибка

 begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO postavshchiki (Naimen) VALUES'+QuotedStr(edit1.Text));
          ExecSQL;
        end

[Stilet]

Ошибка

Синтаксическая )

[Serge_Bliznykov]

я бы добавил скобки для значения:

SQL.Add('INSERT INTO postavshchiki (Naimen) VALUES ('+QuotedStr(edit1.Text)+')');

а вообще, лучше использовать параметрический запрос. (это когда в тексте запроса вместо значения параметер).

p.s. если поле adres не допускает значение NULL, будет ошибка!