Странности TQuery

← →
konrads (2006-04-12 06:28) [0]

Выполняю контекстный поиск используя TQuery следующим образом:
Procedure TForm21.QFindByFio; begin QLS.Close; QLS.SQL.Clear; QLS.SQL.Append("SELECT FIO, Kod, Pasport"); QLS.SQL.Append("FROM "LS.DB" Ls"); QLS.SQL.Append("Where upper(FIO) like ""%" + AnsiUpperCase(Edit1.Text + "%""")); QLS.SQL.Append("ORDER BY FIO"); QLS.Open; end;

Всё работает, но как только введёш в Edit1 буковку "я" - не находит ни одной записи, хотя они там есть. В аналогичной программе с аналогичной таблицей всё работает. Проверил всё - никакой разницы ни в свойствах таблиц ни в коде программы. Да и кода тут - 7 строчек. Помогите кто может!

← →
Виталий Панасенко (2006-04-12 09:27) [1]

А Table LANGUAGE ?

← →
Anatoly Podgoretsky © (2006-04-12 09:43) [2]

Забудь, это не излечимо.

← →
konrads (2006-04-12 09:48) [3]

Дык а почему соседняя программа работает?

← →
konrads (2006-04-12 09:52) [4]

> Виталий Панасенко
Table LANGUAGE как использовать?

← →
Виталий Панасенко (2006-04-12 09:56) [5]

Установи нужный язык (Pdox ANSI Cyrillic) для таблицы

← →
Виталий Панасенко (2006-04-12 09:59) [6]

> konrads (12.04.06 09:52) [4]
> > Виталий Панасенко
> Table LANGUAGE как использовать?

Глянь в DBD, какой язык. И, если нужно, измени

← →
konrads (2006-04-12 10:04) [7]

имеется ввиду BDE Administrator у драйвера Paradox LangDriver ?
У меня там стоит "ascii" ANSI
Но ведь это для всех таблиц! У меня две программы, обе писал сам, та которая написана раньше на месяц работает с буквами "я", новая нет, хотя отличия в структуре таблиц минимальны а код потска один и тот-же. Открываю исходник первой, запускаю - работает. Открываю исходник второй, запускаю - не работает. Просто бред какой-то !!!

← →
konrads (2006-04-12 10:11) [8]

На всякий случай проверил, поставил "Paradox ascii" потом "Pdox ANSI Cyrillic", ситуёвина не поменялась :(
Вернул назад "ascii" ANSI

← →
konrads (2006-04-12 10:30) [9]

Сейчас убрал Upper и буквы "я" работают
QLS.SQL.Clear; QLS.SQL.Append("SELECT FIO, Kod, Pasport"); QLS.SQL.Append("FROM "LS.DB" Ls"); QLS.SQL.Append("Where FIO like ""%" + Edit1.Text + "%"""); QLS.SQL.Append("ORDER BY FIO"); QLS.Open;

Однако как тогда сделать регистронезависимый поиск ?
Блин а в другой работает.

← →
Виталий Панасенко (2006-04-12 11:05) [10]

бляха-муха, я сказал У ТАБЛИЦЫ!!!и DBD - DataBase Desktop. Открой с помомщью DBD нужную таблицу и глянь TABLE LANGUAGE. Поменяй на Pdox ANSI Cyrillic

← →
konrads (2006-04-13 14:27) [11]

Крыша благополочно вернулась на место, действительно сработало :)
А программно это сделать можно?

← →
konrads (2006-04-13 14:32) [12]

Большое спасибо !!! (забыл сразу сказать)
Ещё-бы подсказали как это проверить программно и если что изменить, тогда вообще было-бы замечательно!

Странности TQuery Найти похожие ветки