Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: A2007 Кодировка
 
 автор: Cerber   (08.12.2011 в 10:12)   личное сообщение
11 Кб.
 
 

Помогите, пожалуйста!
имеется таблица *.dbf (предположительно FoxPro)
при вставке таблицы в среду Access 2007 русские буквы меняются на символы.
Копирование и вставка в программный код этих символов преобразует последние в другую кодировку.
Необходимо перекодировать всю таблицу (15 столбцов, 58000 записей)
Таблица обновляется раз в три месяца.
Благодарю всех.

  Ответить  
 
 автор: kot_k_k   (08.12.2011 в 10:26)   личное сообщение
 
 

http://hiprog.com/forum/read.php?id_forum=1&id_theme=9858&page=1

вот прочти там я файл выкладывал про изменение реестра и как подключать
твоя табла спокойно прилинковалась у меня и нормально отобразилась

  Ответить  
 
 автор: snipe   (08.12.2011 в 11:31)   личное сообщение
 
 

это смотря где
ddi тоже долго извращался пока нашел выход

  Ответить  
 
 автор: ddi   (08.12.2011 в 15:27)   личное сообщение
12 Кб.
 
 

  Ответить  
 
 автор: ddi   (08.12.2011 в 15:28)   личное сообщение
 
 

http://hiprog.com/forum/read.php?id_forum=1&id_theme=9858&page=1

вот прочти там я файл выкладывал про изменение реестра и как подключать
твоя табла спокойно прилинковалась у меня и нормально отобразилась

А зачем так жестоко?

  Ответить  
 
 автор: ddi   (08.12.2011 в 16:21)   личное сообщение
 
 


Public Function gb()
Dim dbf As FoxApplication
DoCmd.RunSQL "DELETE g.* FROM g;"
Dim r, l As String
Dim i As Long
For i = 1 To 6
Set dbf = New FoxApplication
   With Application.FileDialog(1)
    .Title = "Ïîèñê Ôàéëà"
    .ButtonName = "Äîáàâèòü"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "*.dbf", "*.dbf", 1
    r = .Show
    l = Trim(.SelectedItems.Item(1))
dbf.DoCmd ("USE " & l)
dbf.DoCmd ("COPY TO d:\1.xls TYPE XL5")
DoCmd.TransferSpreadsheet acImport, , i, "d:\1.xls", 1
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO g SELECT " & i & ".*FROM " & i & ";"
DoCmd.SetWarnings True
DoCmd.DeleteObject acTable, i
Kill ("d:\1.xls")
Set dbf = Nothing
End With
Next i
End Function

измени для себя

  Ответить  
 
 автор: Анатолий (Киев)   (09.12.2011 в 11:28)   личное сообщение
 
 

Файл, похоже, от 1С.
Такой лучше импортировать с помощью ODBC VFP драйвера. Кодировка будет правильная.

  Ответить  
 
 автор: Cerber   (10.12.2011 в 09:05)   личное сообщение
 
 

Всем спасибо за помощь.
Совсем постарел, дальше некуда, как говорится, а наш вагончик покатился под уклончик.
Перепробовал менять кодовую станицу в реестре, перепрограммировать из одной кодовой страницы
в другую, - без результата (то иероглифы, то ноль эмоций, то корявый русский с иероглифами вместо
пробелов).
Решил проблему в "лоб" - установил FoxPro, экспортировал документ в кодировке 866 (если не ошибаюсь). Усё, при экспорте данных в таблицу Access нормальный русский текст.
Конечно, этот способ не решает проблему универсально, хотелось бы решить ее программным
способом.
Может есть у знатоков еще решения?
Еще раз благодарю всех за оказанную помощь.

  Ответить  
 
 автор: ddi   (10.12.2011 в 12:02)   личное сообщение
 
 

2 Cerber
а я что не код написал ?

  Ответить  
 
 автор: ddi   (10.12.2011 в 12:03)   личное сообщение
 
 

Проблема с кодирофкой решаю следушим способом
1 открываю дбф
2 експорт в екзел
3 импорт в аксс
всё это зделано програмно

  Ответить  
 
 автор: Cerber   (10.12.2011 в 12:34)   личное сообщение
 
 

ddi
спасибо за помощь, но при экспорте в Excel все равно русских букв не видно
У меня компьютер старенький, пережил несколько клинических смертей, видимо что-то в системе.

  Ответить  
 
 автор: ddi   (10.12.2011 в 12:38)   личное сообщение
 
 

аа) а вот у меня всё видно (твой дбф)

  Ответить  
 
 автор: Cerber   (11.12.2011 в 09:40)   личное сообщение
 
 

ddi
Еще раз благодарю!!!
Отшаманил систему, немного изменил код, все пошло.
Одно не ясно, у меня установлен FoxPro, а как быть с другими компьютерами,
требуется библиотека Visual Fox Pro Type library.
Установить FoxPro на всех компьютерах нереально, что делать, подскажите.

  Ответить  
 
 автор: snipe   (11.12.2011 в 10:16)   личное сообщение
 
 

библиотека нужна на одном компе - на том на котором происходит импорт
вся проблемма в том что у ddi кодировка с применением национального языка (армянского)
на который общеприменительные схемы не очень действуют
возможно что для решения вашей проблемы есть другие решения
не зацикливайтесь

  Ответить  
 
 автор: ddi   (11.12.2011 в 14:12)   личное сообщение
 
 

2 Cerber


требуется библиотека Visual Fox Pro Type library.
Установить FoxPro на всех компьютерах нереально, что делать, подскажите.


Не вашол в суть дело ...
если ту же базу ты должен для всех конвертирвать не луче SQL сервер поставить ?
Если сеть не локалная то VPN + SQL

  Ответить  
 
 автор: ddi   (11.12.2011 в 14:13)   личное сообщение
 
 

вобшето Visual Fox Pro Type library это один файл ... foxpro.exe

  Ответить  
 
 автор: ddi   (11.12.2011 в 14:14)   личное сообщение
20 Кб.
 
 

надо его в длл-ку кновертировать и всё
Interop.VisualFoxpro.dll (9.0)

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList