powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / По кодировке Dos>>Win
13 сообщений из 38, страница 2 из 2
По кодировке Dos>>Win
    #33456698
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нет
но не стоит перекодировать через API
не помогает
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33456713
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
очень жаль :(
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33456739
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TIKO, а какая строка подключения?
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33456903
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DSN файл

[ODBC]
DRIVER=Microsoft dBase Driver (*.dbf)
UID = admin
UserCommitSync = Yes
Threads = 3
Statistics = 0
SafeTransactions = 0
PageTimeout = 600
MaxScanRows = 8
MaxBufferSize = 2048
FIL=dBase 5.0
DriverId = 533
Deleted = 1
DefaultDir=c:\
DBQ=c:\
CollatingSequence = ASCII
менял (CollatingSequence ) не помогло
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33459951
AndreyF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TIKOменял (CollatingSequence ) не помогло

DBF-ку бы приложил - можно было бы посмотреть, а так...
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33460013
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreyF TIKOменял (CollatingSequence ) не помогло

DBF-ку бы приложил - можно было бы посмотреть, а так...
Ради бога
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33460041
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин, а архивировать никто не учил что ли!!! Нельзя же так трафик жрать!!!
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33460074
AndreyF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TIKO AndreyF TIKOменял (CollatingSequence ) не помогло

DBF-ку бы приложил - можно было бы посмотреть, а так...
Ради бога

Найди отличие в приложенном файле
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33460132
AndreyF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TIKO AndreyF TIKOменял (CollatingSequence ) не помогло

DBF-ку бы приложил - можно было бы посмотреть, а так...
Ради бога

Ну и так нормально работает (в изначальном файле можно ничего не менять):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
    Dim cn As New ADOdb.Connection
    Dim r As New ADOdb.Recordset, pp As ADOdb.Property
    
    cn.CursorLocation = adUseClient
    cn.Provider = "MSDASQL.1"
    cn.Open "DRIVER={Microsoft FoxPro VFP Driver (*.dbf)};SourceDB=C:\Temp;SourceType=DBF;deleted=no"
    r.Open "SELECT * FROM SC11017", cn, adOpenStatic, adLockReadOnly
    
    Do Until r.EOF
        Debug.Print r!CODE
        r.MoveNext
    Loop
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33460830
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я кажется понял в чем проблема
у меня на компе всегда вылетает FoxPro (DSN) соединение и по этому
я не пробовал соединится через FoxPro, и думал что база dBase-овская, при соединеии с ней через dBase, выводит не правильно строковые значения,
сейчас связал с DAO и коннект FoxPro, все выходит правильно
значит ли это что коннект dBase не нужен вообще, если уж .dbf коннектятся и с Fox.. и с dBase, то можно ли счетать универсальным для .dbf и правильным является коннект FoxPro
и в чем разница если оба типа баз с расширением .dbf ?

Спасибо большое всем !!!
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #33460839
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Долго не заглядывал в этот топик - думал что речь идет о файлах Txt :)
Если используете драйвер Visual Fox Pro, проверьте чтобы версия была от 2003 года.
Если используете машину Jet, скачайте обновление Jet
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
По кодировке Dos>>Win
    #34365475
mhs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у меня получился такой момент - нет возможности из приложения делать вызов сторонних библиотек, поэтому пришлось на коленке соорудить вот такую конструкцию:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
'----DOS2WIN ------
...
for j= 1  to len(fio)
     fiowin = mid(fio,j, 1 )
	DatOEM = "ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—˜™љ›њќћџ "
	DatWin = "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ "

    for k= 1  to len(DatOEM)
	if fiowin = mid(DatOEM,k, 1 ) then
	fio_win = mid(DatWin,k, 1 )	
	end if
    next
fio_win2 = fio_win2&fio_win
next
...
fio_win2 = ""  
вдруг кому понадобится если сильно припрет..
...
Рейтинг: 0 / 0
По кодировке Dos>>Win
    #34365502
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mhsвдруг кому понадобится если сильно припрет..

Кстати, если кому понадобится просто посмотреть OEM-текст без всяких преобразований - то для контрола, в котором идет просмотр, можно просто установить CharSet = 255...
...
Рейтинг: 0 / 0
13 сообщений из 38, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / По кодировке Dos>>Win
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]