[Sk@zk@]

Привет программистам
Такой вопрос. Я в своей программе хочу сделать поиск. На форме есть таблица (подключена к бд в Access с помощью ADO), она нормально отображает записи. Внизу располагаю TEdit и кнопку. По задумке - при вводе в поле кода (такое поле в таблице есть) и нажатии на кнопку в таблице должна оставаться только одна строчка (у которой код соответствует запросу). Поставила ADOQuery и связала с AdoConnection, в SQL написан такой код:

Код:

1 2	Select * From [Таблица заказов]

Код для кнопки такой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); var str:string; begin ADOQuery1.SQL.Clear;   str:='Select * from [Таблица заказов] Where Код='''+Edit3.Text+'''';   ADOQuery1.SQL.Add(str);     ADOQuery1.close;   ADOQuery1.open;   end;

При нажатии на кнопку ничего не происходит... вообще
Собственно вопрос - что делаю не правильно?

[NIch]

Код:

1 2 3 4 5 6 7 8

with Query do begin  Close;  SQL.Clear;  SQL.Add('SELECT *');  SQL.Add('FROM 'Таблица заказов'');  SQL.Add('WHERE 'Код'='+Edit3.Text);  Open; end;

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

[Sk@zk@]

Что-то не получается... если правильно поняла, то код для кнопки должен выглядеть так:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); with ADOQuery1 do begin    ADOQuery1.Close;    SQL.Clear;    ADO.Query1SQL.Add('SELECT *');    ADO.Query1SQL.Add('FROM 'Таблица заказов'');    ADO.Query1SQL.Add('WHERE 'Код'='+Edit3.Text);    ADOQuery1.Open;   end;

Ругается на первую строчку, пишет "Declaration expected but 'with' found"... ну и дальше тоже ошибки выкидывает...

[Asinkrit]

Учи синтаксис..)

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); begin   with ADOQuery1 do     begin     ADOQuery1.Close;     SQL.Clear;     ADO.Query1SQL.Add('SELECT *');     ADO.Query1SQL.Add('FROM 'Таблица заказов'');     ADO.Query1SQL.Add('WHERE 'Код'='+Edit3.Text);     ADOQuery1.Open;     end; end;

[Sk@zk@]

Спасибо Одной ошибкой стало меньше
Теперь ругается на другое:
Illegal character in input file 'T'($D2)
Illegal character in input file 'a'($E0)
Illegal character in input file 'K'($CA)
На сколько я понимаю там как-то в скобках надо по другому название таблицы и столбца выделить... только как?

[Страдалецъ]

Так попробуйте:

Код:

1 2 3

ADO.Query1SQL.Add('SELECT *');   ADO.Query1SQL.Add('FROM [Таблица заказов]');   ADO.Query1SQL.Add('WHERE [Код]='+Edit3.Text);

[Sk@zk@]

Так программа запускается) но при нажатии на кнопку выкидывает ошибку: "Несоответствие типов данных в выражении условия отбора". В базе данных у поля стоит тип - текстовое. Если поменять на числовое, то ошибку не выкидывает, но снова ничего не происходит(и не ищет и ошибки не выкидывает). Но с числовым у меня не работает другая кнопка на удаление(а если стоит текстовое - работает).

[Babuca]

тема похожая, задам вопроса тут
как мне по числовому полю выбрать записи к примеру начинающие на 4.
если поле текстовое то тогда понятно делаю

Код:

1

Like '4%'

[TOJluK]

Код:

1 2	WHERE CAST (ИМЯ_ПОЛЯ AS CHAR) like '4%'

не проверял, но вроде так.

[Babuca]

да именно так Спосибо.