Ошибка: "Ошибка синтаксиса"

[artemavd]

Добрый день! Воюю с ошибкой. Не могу ее победить. По нажатию клавиши Enter должен выполниться запрос:

procedure TForm1.JvDBSearchEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  Form1.ADOQuery1.Active:=False;
  Form1.ADOQuery1.SQL.Text:='select * from export where Number contract=' + Form1.JvDBSearchEdit1.Text;
  Form1.ADOQuery1.Active:=True;
  Form1.DataSource1.DataSet:=Form1.ADOQuery1;
 end;
end;

но выдается ошибка:

Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Number contract=2890982'

Прошу помочь разобраться.

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

[Stilet]

Number contract

Это имя поля? тогда ограниць его брекетами или ковычками

Form1.ADOQuery1.SQL.Text:='select * from export where [Number contract]=' + Form1.JvDBSearchEdit1.Text;

[artemavd]

Неа, не работает. Поставил эти брекеты так:

procedure TForm1.JvDBSearchEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  Form1.ADOQuery1.Active:=False;
  Form1.ADOQuery1.SQL.Text:='select * from export where [Number contract]=' + Form1.JvDBSearchEdit1.Text;
  Form1.ADOQuery1.Active:=True;
  Form1.DataSource1.DataSet:=Form1.ADOQuery1;
 end;
end;

а еще у меня не получается занести все значения из столбца БД в ComboBox. Из-за того, что в имени колонки есть пробел. С другими полями все заносится. Вот код:

procedure TForm1.BtnRefreshClick(Sender: TObject);
begin
 Form1.ADOQuery1.Close;
 Form1.ADOQuery1.SQL.Clear;
 Form1.ADOQuery1.SQL.Text:='select distinct [Number contract] from export';
 Form1.ADOQuery1.Open;
 Form1.ComboBox1.Clear;
 Form1.ADOQuery1.First;
 while not Form1.ADOQuery1.Eof do
 begin
  Form1.ComboBox1.Items.Add(Form1.ADOQuery1.FieldByName('[Number contract]').AsString);
  Form1.ADOQuery1.Next;
 end;
end;

[DIgorevich]

А пробелы в принципе не рекомендуется ставить.... переименуй на знак "_"

[artemavd]

Это не я делал такие поля. Этот файл БД получается после работы другой программы и создается автоматически. Что подскажете по сабжу в посте №3?

[DIgorevich]

Я сам когда-то с пробелами боролся, но так и не нашел решения, только убрал их из названий (таблиц и полей).

[soleil@mmc]

есть подозрение, что должен прокатить такой вариант

"Number contract"

или такой

["Number contract"]

[artemavd]

Неа, не работает. Код:

procedure TForm1.BtnRefreshClick(Sender: TObject);
begin
 Form1.ADOQuery1.Close;
 Form1.ADOQuery1.SQL.Clear;
 Form1.ADOQuery1.SQL.Text:='select distinct "Number contract" from export';
 Form1.ADOQuery1.Open;
 Form1.ComboBox1.Clear;
 Form1.ADOQuery1.First;
 while not Form1.ADOQuery1.Eof do
 begin
  Form1.ComboBox1.Items.Add(Form1.ADOQuery1.FieldByName('Number contract').AsString);
  Form1.ADOQuery1.Next;
 end;
end;

[Stilet]

А что за СУБД? Можешь показать структуру таблицы? Желательно скриптом, сгенерированным самой СУБД

[artemavd]

Неа, не работает. Код:

procedure TForm1.BtnRefreshClick(Sender: TObject);
begin
 Form1.ADOQuery1.Close;
 Form1.ADOQuery1.SQL.Clear;
 Form1.ADOQuery1.SQL.Text:='select distinct "Number contract" from export';
 Form1.ADOQuery1.Open;
 Form1.ComboBox1.Clear;
 Form1.ADOQuery1.First;
 while not Form1.ADOQuery1.Eof do
 begin
  Form1.ComboBox1.Items.Add(Form1.ADOQuery1.FieldByName('Number contract').AsString);
  Form1.ADOQuery1.Next;
 end;
end;

Может можно написать какую-нибудь процедурку, которая бы меняла в названии полей пробелы на "_"? Кто-нибудь знает такую процедуру?

Список полей во вложении...