|
Вопрос # 5 001/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
База данных Paradox, делаю ввод на русском языке, а при новом открытии базы вместо русских букв - ироглифы...
Что это значит?
 |
Вопрос задал: Khabi (статус: Посетитель)
Вопрос отправлен: 6 февраля 2011, 16:29
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, Khabi!
Когда-то сам мучился такой проблемой. Ответ нашел в DelphiWorld. Мне помогло, попробуйте так, как указано в приложении
Приложение: Переключить в обычный режим-
- [Properties]
- SystemFont=Arial Cyr
-
-
-
-
-
- HKCU\Software\Borland\DBD\7.0\ Preferences\Properties\SystemFont="Arial Cyr"
-
-
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 6 февраля 2011, 19:18
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 19; последнее сообщение — 8 февраля 2011, 21:53; участников в обсуждении: 5.
|
|
Khabi (статус: Посетитель), 6 февраля 2011, 16:31 [#1]:
В BDE administrator paradox руссифицирован
|
|
bugmenot (статус: 3-ий класс), 6 февраля 2011, 16:37 [#2]:
иЕроглифы
LANGDRIVER должен быть выставлен Pdox ANSI Cyrillic
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Khabi (статус: Посетитель), 6 февраля 2011, 16:57 [#3]:
Выставил... не помагает
|
|
Ерёмин А.А. (статус: *Администратор), 6 февраля 2011, 17:44 [#4]:
При создании таблиц для текстовых полей по-моему надо кодировку указывать.
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 14:13 [#5]:
Для DBD 7.0 нужно испpавить pеестp - ключ:
HKCU\Software\Borland\DBD\7.0\ Preferences\Properties\SystemFont="Arial Cyr"
Выставил! ни каких изменений...?
При создании таблиц для текстовых полей по-моему надо кодировку указывать.
Как это сделать?
|
|
|
Мережников Андрей (статус: Абитуриент), 7 февраля 2011, 18:19 [#6]:
версия дельфи какая?
По поводу выставления кодовой страницы в DataBase DeskTop подсказать затруднительно - BDE - не пользуюсь уже давно
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 18:25 [#7]:
D7E
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 18:31 [#8]:
А нельзя через ADO,Query вот код, в ADOQUERY нет
ParamByName('ApptID').AsString := Appt.ID;
Что заменяет данное предложение...
(Прошу простить меня за назойливость, я только учусь..)
КОД:
procedure TPhotoOpMain.utfScheduleManager1PostAppt(Sender: TObject;
Appt: TJvTFAppt);
var
I : Integer;
begin
With GetApptQuery do
Begin
ParamByName('ApptID').AsString := Appt.ID;
Open;
If RecordCount > 0 Then // SQL RecordCount not reliable except on local tables
Edit
Else
Begin
Insert;
FieldByName('ApptID').AsString := Appt.ID;
End;
FieldByName('StartDate').AsDateTime := Appt.StartDate;
FieldByName('StartTime').AsDateTime := Appt.StartTime;
FieldByName('EndDate').AsDateTime := Appt.EndDate;
FieldByName('EndTime').AsDateTime := Appt.EndTime;
FieldByName('Description').AsString := Appt.Description;
FieldByName('AlarmEnabled').AsBoolean := Appt.AlarmEnabled;
FieldByName('AlarmAdvance').AsInteger := Appt.AlarmAdvance;
Post;
Close;
End;
// Now update the Appt --> Schedule relationship
// First delete all entries in the Link table
With DeleteApptLinkQuery do
Begin
ParamByName('ApptID').AsString := Appt.ID;
ExecSQL;
End;
// Now "refresh" the link table by adding a record for each of the names
// in Appt.Schedules. We will use the ApptSchedulesQuery to update the table.
With ApptSchedulesQuery do
Begin
ParamByName('ApptID').AsString := Appt.ID;
Open;
For I := 0 to Appt.ScheduleCount - 1 do
Begin
Insert;
FieldByName('ApptID').AsString := Appt.ID;
FieldByName('SchedName').AsString := Appt.Schedules[I];
Post;
End;
Close;
End;
end;
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 18:42 [#9]:
Что бы было понятнее - компонент JvTFDays (JVSL) есть примеры с bde,а сADO нет. Как соеденитьданный компонент с ACCESS?
Скинул бы и компонент и пример, но не знаю как скинуть...
|
|
|
Мережников Андрей (статус: Абитуриент), 7 февраля 2011, 18:44 [#10]:
К сожалению, не работал с компонентом JvTFDays, может быть проблема в нем? СТОП!!! Так база в Paradox или в Access???
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 18:53 [#11]:
База Paradox, но мне больше нравиться ACCESS через ADO, ADOQuery
Как произвести соединение?
|
|
|
Мережников Андрей (статус: Абитуриент), 7 февраля 2011, 19:08 [#12]:
какие компоненты используются для доступа? Те, что указаны выше? Тогда, к сожалению, помочь не могу.
Почему именно Paradox?
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 19:10 [#13]:
Это пример от разработчиков компонента
|
|
|
Khabi (статус: Посетитель), 7 февраля 2011, 19:11 [#14]:
А что ВЫ можете предложить?
|
|
|
Мережников Андрей (статус: Абитуриент), 7 февраля 2011, 19:37 [#16]:
Как можно что-то предложить, не зная задачи? Я, например, использую MS SQL или Firebird, в зависимости от задачи. Компоненты ADO, имеющиеся в стандартной конфигурации Delphi. Для соединения с БД Firebird дополнительно использую IBProvider_free
|
|
Андрей Анонимный (статус: Посетитель), 8 февраля 2011, 13:35 [#17]:
Если в BDE LANGDRIVER для Paradox уже выставлен Pdox ANSI Cyrillic, поменяй ущё в настройках dBase LANGDRIVER RUS cp866
|
|
|
Khabi (статус: Посетитель), 8 февраля 2011, 21:36 [#18]:
Андрей Анонимный: Если в BDE LANGDRIVER для Paradox уже выставлен Pdox ANSI Cyrillic, поменяй ущё в настройках dBase LANGDRIVER RUS cp866...
Выставил русские буквы показывает в таком виде:
################
|
|
|
Андрей Анонимный (статус: Посетитель), 8 февраля 2011, 21:53 [#19]:
Попробуй пропатчить реестр следующим образом:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase]
"DataCodePage"="ANSI"
"BDE"=dword:00000002 - если нет, то создать
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
