[Hastle31]

Доброго времени суток. прошу о помощи:
собственно есть delphi и БД access, работаю с ADOQUERY.

вот сам запрос:
form1.ADOQuery1.SQL.text:='SELECT имя, фамилия, телефон, [Тип адреса], adress FROM Люди, Точка, точка_люди
WHERE Люди.id=точка_люди.id_чел AND Точка.id=точка_люди.id_точки AND точка_люди.id_точки=''' +(form2.DBComboBox2.Text)+'''' ;

проблема в последней части запроса: дело в том, что id_точки - числовой тип, а combobox строка. Как мне сделать чтобы комбобокс в запросе воспринимался как число? если просто написать strtoint то будет выдаваться ошибка - в sql запросе должна быть строка а не integer. help

[Assistant]

Код:

form1.ADOQuery1.SQL.text:='SELECT имя, фамилия, телефон, [Тип адреса], adress FROM Люди, Точка, точка_люди
WHERE Люди.id=точка_люди.id_чел AND Точка.id=точка_люди.id_точки AND точка_люди.id_точки=' + (form2.DBComboBox2.Text);

P.S.: просто нужно убрать ковычки, ковычки нужны для текстовых полей, для числовых - не нужны.

[Hastle31]

Увы, так вылетает "ошибка синтаксиса (пропущен оператор)...."
изначально было просто "несоответствие типов" =(

[Assistant]

покажите Ваш запрос, шото мне подсказывает, шо вы там чота не то написали.

[Hastle31]

Код:

  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.active:=false;
  form1.ADOQuery1.SQL.text:='SELECT имя, фамилия, телефон, [Тип адреса], adress FROM Люди, Точка, точка_люди   WHERE Люди.id=точка_люди.id_чел AND Точка.id=точка_люди.id_точки AND точка_люди.id_точки=' + (form2.DBComboBox2.Text);
  form1.ADOQuery1.ExecSQL();
  form1.ADOQuery1.active:=true;

[Assistant]

ExecSQL не надо, он нужен для INSERT, UPDATE, DELETE запросов, нужно так:

Код:

form1.ADOQuery1.SQL.text := 'SELECT имя, фамилия, телефон, [Тип адреса], adress FROM Люди, Точка, точка_люди WHERE Люди.id = точка_люди.id_чел AND Точка.id = точка_люди.id_точки AND точка_люди.id_точки = ' + form2.DBComboBox2.Text;
form1.ADOQuery1.Open;

P.S.: и вообще лучше бы использовать JOIN для соединения таблиц.

[Hastle31]

проблема не исчезла(( выдает ту же ошибку.. все же ему не нравится условие в запросе.. может все таки проблема с ковычками=(

[Assistant]

а так работает?

Код:

form1.ADOQuery1.SQL.text := 'SELECT имя, фамилия, телефон, [Тип адреса], adress FROM Люди, Точка, точка_люди WHERE Люди.id = точка_люди.id_чел AND Точка.id = точка_люди.id_точки';
form1.ADOQuery1.Open;

[Hastle31]

Да так работает.. но мне надо чтоб выводились данные по условию совпадения с combobox..

[Assistant]

используйте тот запрос, который с ошибкой и перед form1.ADOQuery1.Open; вставьте:

Код:

form1.ADOQuery1.SQL.SaveToFile('123.txt');

и посмотрите что в файл записалось и покажите

[Hastle31]

Код:

SELECT имя, фамилия, телефон, [Тип адреса], adress, точка_люди.id_точки FROM Люди, Точка, точка_люди WHERE Люди.id = точка_люди.id_чел AND Точка.id = точка_люди.id_точки AND точка_люди.id_точки = 

вот, недоконца записывается запрос

[Assistant]

потому что у вас в form2.DBComboBox2.Text - пусто!

[Hastle31]

Да, спасибо, Вы правы. все дело в том что когда выполняется запрос, очищаются все edit, combobox, и тд..

[Assistant]

сделайте отдельный ADOQuery для запроса и его используйте для отображения данных.

[Hastle31]

Спасибо Вам большое за помощь!, сей час как раз этим и занимаюсь