|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.02.2009, 03:37 | #21 |
Форумчанин
Регистрация: 28.03.2008
Сообщений: 672
|
у меня схожий вопрос...
сам запрос работает нормально...но при работе в дельфи возникает следующая ошибка: ..... ...... Cannot transliterate character between character sets'. ..... как говорит мой переводчик это опять что то с кодировками... а что именно? использую Interbase... там Character set = win1251... |
11.02.2009, 15:00 | #22 | |
Форумчанин
Регистрация: 05.02.2009
Сообщений: 324
|
Цитата:
Тяжело быть бестолковым.....
|
|
11.02.2009, 15:37 | #23 |
Форумчанин
Регистрация: 28.03.2008
Сообщений: 672
|
Собственно говоря запрос тут не при чем... тут что с моими рукам(....
короче вот запрос: Код:
|
11.02.2009, 16:18 | #24 |
только учусь!
Форумчанин
Регистрация: 08.02.2009
Сообщений: 124
|
Убери кавычки из названия таблицы user.
«Я знаю, что ничего не знаю, но многие не знают и этого».
|
11.02.2009, 16:19 | #25 |
Форумчанин
Регистрация: 05.02.2009
Сообщений: 324
|
вот когда-то нашёл в такие функции:
function tform1.ConvertOemToAnsi(const S: string): string; { ConvertOemToAnsi translates a string from the OEM-defined character set into either an ANSI or a wide-character string } {$IFNDEF WIN32} var Source, Dest : array[0..255] of Char; {$ENDIF} begin {$IFDEF WIN32} SetLength(Result, Length(S)); if Length(Result) > 0 then OemToAnsi(PChar(S), PChar(Result)); {$ELSE} if Length(Result) > 0 then begin OemToAnsi(StrPCopy(Source, S), Dest); Result := StrPas(Dest); end; {$ENDIF} end; { ConvertOemToAnsi } function tform1.ConvertAnsiToOem(const S: string): string; { ConvertAnsiToOem translates a string into the OEM-defined character set } {$IFNDEF WIN32} var Source, Dest : array[0..255] of Char; {$ENDIF} begin {$IFDEF WIN32} SetLength(Result, Length(S)); if Length(Result) > 0 then AnsiToOem(PChar(S), PChar(Result)); {$ELSE} if Length(Result) > 0 then begin AnsiToOem(StrPCopy(Source, S), Dest); Result := StrPas(Dest); end; {$ENDIF} end; { ConvertAnsiToOem } попробуйте использовать одну из них, должно подойти
Тяжело быть бестолковым.....
|
11.02.2009, 17:12 | #26 |
Форумчанин
Регистрация: 28.03.2008
Сообщений: 672
|
кавычки в названии таблицы user нужны... так как user, как я понял зарезервированное слово.... вот так вот...
2 Dark_Spirit: а можно как нибудь на примере? а то действительно, как у Вас написано: "Тяжело быть бестолковым..... " |
11.02.2009, 18:21 | #27 | |
Форумчанин
Регистрация: 05.02.2009
Сообщений: 324
|
Цитата:
Add('OTDELI.ID_OTDELA ='+chr(39)+ConvertOemToAnsi(Edit1.T ext)+chr(39));
Тяжело быть бестолковым.....
|
|
11.02.2009, 18:54 | #29 |
Форумчанин
Регистрация: 05.02.2009
Сообщений: 324
|
смотри я тебе в #25 кину две функции, подключи их в спой проект, млин ну как просто новую процедуру дописываешь
Тяжело быть бестолковым.....
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с кодировкой... | SynonymMixer | Общие вопросы Delphi | 6 | 28.01.2009 15:40 |
Проблема с кодировкой | feniks65 | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 06.01.2009 11:00 |
Проблемы с кодировкой | Levchik | HTML и CSS | 2 | 16.12.2008 16:12 |
Проблемы с кодировкой писем | Черничный | Win Api | 7 | 16.06.2008 12:19 |
Дельфи 8. Проблема с кодировкой. | Venor | Общие вопросы Delphi | 1 | 10.06.2008 20:44 |