VPF::Ошибка при запросе - Форум программистов

Rondo

Дата 13.5.2006, 00:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Делаю запрос чтобы найти запись. Использую таблицы Access и подключение через ADO

procedure TForm1.Button1Click(Sender: TObject);
begin
  case combobox1.ItemIndex of
    0: begin
         with ADOQuery1 do
         begin
           Active:= false;
           SQl.Clear;
           SQL.Add('SELECT * FROM tblPhoneBook');
           SQL.Add('WHERE name= :'+edit1.Text);
           Active:= true;
         end;
       end;
  end;

Выдает ошибку -> Отсутствует значение для одного или нескольких параметров   smile

Скажите где накосячил smile

Это сообщение отредактировал(а) Rondo - 13.5.2006, 01:15

--------------------

Начинающий кодер

Kesh

Дата 13.5.2006, 01:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 3
Всего: 54

Rondo, двоеточие не нужно...

--------------------

Rondo

Дата 13.5.2006, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

То же самое...

--------------------

Начинающий кодер

Vas

Дата 13.5.2006, 07:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  case combobox1.ItemIndex of
    0: begin
         with ADOQuery1 do
         begin
           Active:= false;
           SQl.Clear;
           SQL.Add('SELECT * FROM tblPhoneBook');
           SQL.Add('WHERE name='+QuotedStr(edit1.Text));
           Active:= true;
         end;
       end;
  end;

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

Savek

Дата 13.5.2006, 08:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

Или так

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  case combobox1.ItemIndex of
    0: begin
         with ADOQuery1 do
         begin
           Active:= false;
           SQl.Clear;
           SQL.Add('SELECT * FROM tblPhoneBook');
           SQL.Add('WHERE name= :Name';
           Parameters.ParamByName('Name').Value:=Edit1.Text;
           Active:= true;
         end;
       end;
  end;

Rondo

Дата 13.5.2006, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Спасибо, разобрался

--------------------

Начинающий кодер

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »