причуды запроса sql

[ТипичныйСтудент]

Я понимаю, что вопрос самый тупой и, что стыдно такое спрашивать, но уж реально едет крыша.

почему это работает

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
ADODataSet1.Close;
ADODataSet1.CommandText := 'select * from napravlenie where stat = ''k'' ';
ADODataSet1.Open;
end;

а вот это нет

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
ADODataSet1.Close;
ADODataSet1.CommandText := 'select * from napravlenie where stat <> ''k'' ';
ADODataSet1.Open;
end;

выводит пустую таблицу, не одной строчки, хотя в базе записи есть и в отладчике видно, что он заходит внутрь и присваивает этот запрос.
что это может быть вообще?
бд ms access

[GreenWizard]

http://stackoverflow.com/questions/1...does-not-equal

ADODataSet1.CommandText := 'select * from napravlenie where NOT (stat = ''k'') ';

нету слова "назад", есть только "развернуться и вперёд, вперёд, вперёд!" :-)

[Stilet]

Может лучше так:

ADODataSet1.CommandText := 'select * from napravlenie where stat <> '+QuotedStr('k');

?

[Аватар]

Там NULL скорее всего, вот и не показывает. Так как GreenWizard подсказывает будет норм. Или IsNull использовать (или аналог)

[ТипичныйСтудент]

спасибо! помогли! извратилась вот так:

procedure TForm7.FormCreate(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandText := 'select * from Napravlenie';
  ADODataSet1.Open;

  begin
    if not ADODataSet1.IsEmpty then   //если не пустой
      begin
        ADODataSet1.First;          //ставим на первую
        while not ADODataSet1.Eof do  //до конца
         begin
           if ADODataSet1.FieldByName('stat').IsNull then
           begin
             ADODataSet1.Edit;
             ADODataSet1.FieldByName('stat').Value := '';
             ADODataSet1.Post;
           end;
           ADODataSet1.Next;
         end;
      end;
  end;


  ADODataSet1.Close;
  ADODataSet1.CommandText := 'select * from Napravlenie';
  ADODataSet1.Open;

  ADODataSet2.Active := True;
  ADODataSet3.Active := True;
end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
  ADODataSet1.Close;
  ADODataSet1.CommandText := 'select * from napravlenie where NOT (stat = ''k'') ';
  ADODataSet1.Open;
end;

[Аватар]

Если в stat NULL, то stat = 'k' будет False и NOT (stat = 'k') прокатит. Так что нет ни какой необходимости NULL забивать на ''

[GreenWizard]

  ADODataSet1.Close;
  ADODataSet1.CommandText := 'select * from Napravlenie';
  ADODataSet1.Open;

  begin
    if not ADODataSet1.IsEmpty then   //если не пустой
      begin
        ADODataSet1.First;          //ставим на первую
        while not ADODataSet1.Eof do  //до конца
         begin
           if ADODataSet1.FieldByName('stat').IsNull then
           begin
             ADODataSet1.Edit;
             ADODataSet1.FieldByName('stat').Value := '';
             ADODataSet1.Post;
           end;
           ADODataSet1.Next;
         end;
      end;
  end;

мне страшно))
как минимум, можно заменить на запрос:

UPDATE Napravlenie SET stat = '' WHERE stat IS NULL

а вообще, выше написал же как сделать запрос без этих костылей

[ТипичныйСтудент]

Сообщение от Аватар

Если в stat NULL, то stat = 'k' будет False и NOT (stat = 'k') прокатит. Так что нет ни какой необходимости NULL забивать на ''

неа, не прокатывает, попробовала - не сработало, поэтому и нагородила вышенаписанное. Может это какие-то заморочки именно акцесса?

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

  ADODataSet1.Close;
  ADODataSet1.CommandText := 'select * from Napravlenie';
  ADODataSet1.Open;

  begin
    if not ADODataSet1.IsEmpty then   //если не пустой
      begin
        ADODataSet1.First;          //ставим на первую
        while not ADODataSet1.Eof do  //до конца
         begin
           if ADODataSet1.FieldByName('stat').IsNull then
           begin
             ADODataSet1.Edit;
             ADODataSet1.FieldByName('stat').Value := '';
             ADODataSet1.Post;
           end;
           ADODataSet1.Next;
         end;
      end;
  end;

мне страшно))
как минимум, можно заменить на запрос:

UPDATE Napravlenie SET stat = '' WHERE stat IS NULL

а вообще, выше написал же как сделать запрос без этих костылей

а вот это вот мне нравится) спасибо!