Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись DBase в DOS кодировке [D7, dBase, FoxPro]


Гаврила ©   (2004-02-19 16:02:00) 

Добрый день, уважаемые
Все было нормально до сегодняшнего дня
проверялось наличие файла DBase на диске, если его нет - записывалась пустая таблица из ресурса программы,
открывалась с помощью TAdoConnection + TAdoTable и производилась запись.
Строка подключения :
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Extended Properties="DSN=Файлы dBASE;DBQ=X:\;DefaultDir=X:\;DriverId=277;FIL=dBase IV;MaxBufferSize=2048;PageTimeout=5;";Initial Catalog=X:\'

Сегодня были установлены StarTeam и MSSQL Server, причем первый ругался на "устаревшую версию драйверов ODBC" при установке, тем не менее к работе приступил

В результате имеем символ $3F вместо любой русской буквы после записи данных.
Как лечить ?


Гаврила   (2004-02-19 18:13:00) [1]

И тем не менее строка
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\;Extended Properties=dBase IV;Persist Security Info=False

привела к желаемому результату
Что я могу сказать:
Во-первых, sniknik - большое спасибо
Во-вторых, я нифига не понимаю :-(((


Гаврила   (2004-02-19 18:01:00) [2]

>>sniknik ©   (19.02.04 17:46) [5]
Или я не знаю каких-то азов, или...
Я всегда был уверен, что провайдер "Microsoft.Jet.OLEDB.4.0" предназначен для работы с базами MS Access ???


sniknik   (2004-02-19 17:46:00) [3]

ну раз есть уверенность что это на записи, обнови драйвер, MDAC и Jet раз уж с dbf работаеш.
кстати Excel через jet пишет.
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\;Extended Properties=dBase IV;Persist Security Info=False


Гаврила   (2004-02-19 17:29:00) [4]

Не поленился, проверил :-)
нормально только подстрока "string" записалась :-)
AnyField - да, это опечатка, имеется в виду поле типа TStringField (набивал прямо здесь).

В общем, ситуация пока тупиковая
толи через Excel делать (он нормально прописывает), толи прямо в файл по формату, без всяких драйверов

Самое смешное то, что у Юзера работает, а у меня нет (обычно все наоборот)


sniknik   (2004-02-19 17:20:00) [5]

> Записывается

т.е. именно так?

Table.Insert;
Table.AnyField.AsString:= 'Нормальное строковое значение, (переменная типа string)';
Table.Post;

как здесь константу? а мне кажется запишется нормально, если скомпилится конечно, "AnyField" такого метода/свойства/.. у Table нет. или уже есть?


Гаврила   (2004-02-19 16:39:00) [6]

Записывается
Table.Insert;
Table.AnyField.AsString:=<Нормальное строковое значение,(переменная типа string), проверенное отладчиком>
Table.Post

Почитал соседние ветки ,провел манипуляции с
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase
а также с использованием драйвера FoхPro - не помогло


sniknik   (2004-02-19 16:15:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо