powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кавычки!!! Urdent! HELP!
5 сообщений из 5, страница 1 из 1
Кавычки!!! Urdent! HELP!
    #32365324
MadCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Заранее приношу извинения за идиотский наверное вопрос. Но с SQL в Delphi имею дело сравнительно недавно. Посему заранее простите чайника;)

Нужно завтра сдать курсовик, но из-за этих кавычек работа не может сдвинуться с места. Что я только не делала!
Но ближе к делу:
Требуется написать запрос типа:
select <поле1>, <поле2> from <таблица> where Upper(поле1) LIKE 'А%' order by <поле1>
все бы ничего, но значение символа с которым сравнивают ('A%') динамически меняется в процессе работы - в зависимости от TabIndex (что-то типа записной книжки - с алфавитом)
поэтому приходится заменять его переменной (ind_r:string) и писать нечто вроде:

procedure TForm1.TabControlChange(Sender: TObject);
begin
case TabControl.TabIndex of
0: ind_r:='А%';
1: ind_r:='Б%';
2: ind_r:='В%';
3: ind_r:='Г%';
...
end;
datamodul.Query.Close;
datamodul.Query.Sql.Clear;
datamodul.Query.SQL.text:='select <поле1>, <поле2> from <таблица> where Upper(<поле1>) LIKE '+'''+ind_r+'''+' order by Name';
datamodul.Query.Open;
end;
end;

Все перепробованные вариации с кавычками в запросе не привожу)
ничего не получается!
Может, я просто туплю и дело вовсе не в кавычках?

Помогите, пожалуйста, направьте на путь истинный!
Помощь нужна срочно!!!
...
Рейтинг: 0 / 0
Кавычки!!! Urdent! HELP!
    #32365326
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TForm1.TabControlChange(Sender: TObject);
begin
ind_r:=chr(ord('A')+TabControl.TabIndex)+'%';
datamodul.Query.Close;
datamodul.Query.Sql.Clear;
datamodul.Query.SQL.text:='select <поле1>, <поле2> from <таблица> where Upper(<поле1>) LIKE '+''''+ind_r+''''+' order by Name';
datamodul.Query.Open;
end;
end;
...
Рейтинг: 0 / 0
Кавычки!!! Urdent! HELP!
    #32365331
MadCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо:) но
Не помогает...
Опять это: "...CommandText doesn't return a result set"!
...
Рейтинг: 0 / 0
Кавычки!!! Urdent! HELP!
    #32365333
MadCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за отклик!;)

Я все разрешила сама!)))
Ввела переменную g:char
g:=chr(39);

Теперь все работает!
...
Рейтинг: 0 / 0
Кавычки!!! Urdent! HELP!
    #32365476
nomorenames
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для обрамления кавычками строковых переменных в генерируемых запросах, лучше всего использовать
Код: plaintext
1.
2.
3.
uses
SysUtils;
/////////////////
function QuotedStr(const S: string): string;
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кавычки!!! Urdent! HELP!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]