VPF::Возникла ошибка с запросами помогите!

aleksandrfnsv1

Дата 30.11.2008, 16:37 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

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

помогите понять ошибку в делфе с запросами
вот код
при запуске проги введите пароль club/

Присоединённый файл ( Кол-во скачиваний: 3 )

__.rar 332,70 Kb

Akella

Дата 30.11.2008, 17:53 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

щас так и кинулись smile

давай выкладывай запросы, част кода, где и какая ошибка, чувак, так как ты - никто не делает, не прилично это smile

aleksandrfnsv1

Дата 30.11.2008, 18:09 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

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

запрос на поиск по полю название клуба, которое введено в едит1

Код



ibquery1.Close;
if edit1.Text<>'' then
begin
ibquery1.SQL.Text:='select (nameclub, city, stadion, money, chemp) from club where nameclub=('+#39+Edit1.Text+#39+')';
ibquery1.Open;
end
else
MessageDlg('Введите название клуба',mtWarning,[mbOk],0);

запрос на удаление правильный, но не могу понять как сделать удаление по конкретному значению введенному в едит, а не полное удаление значений таблицы

Код


ibtransaction1.Commit;
ibtransaction1.StartTransaction;
Ibquery1.SQL.Text:='delete from club';
ibquery1.Open;
ibtransaction1.Commit;
ibquery1.Close;

заранее спасибо за помощь!

Akella

Дата 30.11.2008, 18:24 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(aleksandrfnsv1 @ 30.11.2008, 18:09

)

nameclub=('+#39+Edit1.Text+#39+')';

измени на

Код


nameclub = '+QuotedStr(Edit1.Text)+')';

для большей читабельности кода

Добавлено через 4 минуты и 18 секунд

Код


  Ibquery1.SQL.Text:='delete from club where nameclub = ' + QutedStr(Edit1.text);

и так правильнее

Код


ibquery1.SQL.Text:='select nameclub, city, stadion, money, chemp from club where nameclub = '+ QutedStr(Edit1.text);

Добавлено через 6 минут и 50 секунд
и вообще, отладь запросы для начала в IBExpert`e, поизучай SQL

Цитата(aleksandrfnsv1 @ 30.11.2008, 18:09

)

сделать удаление по конкретному значению

Код


delete from table1 whehe id = 1

Это сообщение отредактировал(а) Akella - 30.11.2008, 18:26

aleksandrfnsv1

Дата 30.11.2008, 19:40 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

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

Фенкс за те запросики. Все сработало, теперь толко не пашет запрос на update подскажите плиз как исправить

Код


ibquery1.Close;
if edit1.Text<>'' then
begin
ibquery1.SQL.Text:='update club set (nameclub, city, stadion, money, chemp)= ('+QuotedStr(Edit6.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(Edit3.Text)+','+QuotedStr(Edit4.Text)+','+QuotedStr(Edit5.Text)+')' where (nameclub='+QuotedStr(Edit1.Text)+')';
ibquery1.Open;
end
else
MessageDlg('Ââåäèòå íàçâàíèå êëóáà',mtWarning,[mbOk],0);

Akella

Дата 30.11.2008, 19:47 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

aleksandrfnsv1, ты хоть чуть-чуть SQL изучи

Добавлено через 1 минуту и 34 секунды
http://www.w3schools.com/Sql/sql_update.asp

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