Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Коннект и получение записей из DBF 
V
    Опции темы
nik0p0l
Дата 21.3.2007, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
не могу сообразить как выбирать данные из dbf файла. с данными из аксеса вот например так:
Код
Set oRS = CreateObject("ADODB.RecordSet")
oRS.ActiveConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\db1.mdb"
oRS.Open "select * from zzz"
Do While Not oRS.EOF
 MSGBOX oRs.Fields(1) & " " & oRs.Fields(2)
oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing


а как обратиться к dbf? не могу сообразить что писать в запросе SQL какое там имя таблицы указывать? имя файла 0001, не подходит ....
Код

Set oRS = CreateObject("ADODB.RecordSet")
oRS.ActiveConnection ="Driver={Microsoft dBase Driver (*.dbf)};Database=C:\0001.dbf"
oRS.Open "select * from <что здесь должно быть?>"
Do While Not oRS.EOF
 MSGBOX oRs.Fields(1) & " " & oRs.Fields(2)
oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing

осложняеться все тем что это пишеться как внутрений блок кода в некой програме которая интерпритирует код написанный на VBS.
з.ы. весь форум перерыл... что только не попробовал...

Это сообщение отредактировал(а) nik0p0l - 21.3.2007, 15:09
PM MAIL   Вверх
Naghual
Дата 21.3.2007, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
0001


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
nik0p0l
Дата 21.3.2007, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
Цитата(Naghual @  21.3.2007,  18:36 Найти цитируемый пост)
0001

пробовал, ошибку выдает.... драйве ядро МС Джет не может найти обьект...
PM MAIL   Вверх
Akina
Дата 21.3.2007, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Охота тебе с этим барахлом возиться? создай для этой таблицы файловый DSN - а дальше система сама разберется 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
nik0p0l
Дата 21.3.2007, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
Цитата(Akina @ 21.3.2007,  20:43)
Охота тебе с этим барахлом возиться? создай для этой таблицы файловый DSN - а дальше система сама разберется

а по подробней можно?smile
PM MAIL   Вверх
Дмит
Дата 21.3.2007, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
Пример из умной книжки:

dim cn as ADODB.Connection
dim adoRS as ADODB.Recordset

pathDBF="C:\dbf\"
strSQL = "SELECT * FROM T2.dbf"

Sey cn= New ADODB.Connection
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase III"
cn.Open
Set adoRS = New ADODB.Recordset
adoRS.CursorType=adOpenKeyset
adoRS.LockType=adLockOptimistic
adoRS.Open strSQL, cn

Если формат dBase 4 и 5, то Extended Properties смотри в ветке реестра - 
HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\ISAM Formats
PM MAIL WWW   Вверх
nik0p0l
Дата 22.3.2007, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
Цитата(Дмит @ 21.3.2007,  22:18)
Пример из умной книжки:

dim cn as ADODB.Connection
dim adoRS as ADODB.Recordset

pathDBF="C:\dbf\"
strSQL = "SELECT * FROM T2.dbf"

Sey cn= New ADODB.Connection
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase III"
cn.Open
Set adoRS = New ADODB.Recordset
adoRS.CursorType=adOpenKeyset
adoRS.LockType=adLockOptimistic
adoRS.Open strSQL, cn

Если формат dBase 4 и 5, то Extended Properties смотри в ветке реестра - 
HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\ISAM Formats

Спасибо огромное! Все работает! Можно ссылку на источник информации ака умную книшку? smile)

з.ы. хотел дать репутацию, но нехватает постов :(

Это сообщение отредактировал(а) nik0p0l - 22.3.2007, 08:15
PM MAIL   Вверх
Дмит
Дата 22.3.2007, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
Книжка:
В.Г. Кузьменко "Базы данных в Visual Basic и VBA"
у меня к сожалению бумажный вариант.
PM MAIL WWW   Вверх
nik0p0l
Дата 23.3.2007, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
Цитата(Дмит @ 22.3.2007,  19:35)
Книжка:
В.Г. Кузьменко "Базы данных в Visual Basic и VBA"
у меня к сожалению бумажный вариант.

Спасибо.
Теперь проблема с кодировкой возникла smile 
Выводит вместо русских букв кракозябры. OemToChar, не помогает.
добавил в строку подключения 
Код

Locale Identifier = 1049

тоже не помогло.
в ключе HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase\DataCodePage  стоит ОЕМ.
при этом когда просматриваю дбф'ник листером в тотал командере он русские нормально отображает, но когда в свойствах смотрю кодировку, показывает что with out codepage. делаю подбор кодировки в листере определяет ДОС 866, сохраняю файл, и теперь скрипт нормально русские выводит...
PM MAIL   Вверх
Akina
Дата 23.3.2007, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Все правильно. При отсутствии байта идентификации кодировки такие проблемы бывают... 

Цитата(nik0p0l @  23.3.2007,  10:50 Найти цитируемый пост)
OemToChar, не помогает

а не chartooem? я их вечно путаю, но что-то кажется мне...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
nik0p0l
Дата 23.3.2007, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
Цитата(Akina @ 23.3.2007,  09:56)
Все правильно. При отсутствии байта идентификации кодировки такие проблемы бывают... 

Цитата(nik0p0l @  23.3.2007,  10:50 Найти цитируемый пост)
OemToChar, не помогает

а не chartooem? я их вечно путаю, но что-то кажется мне...

вот блин :(( мне теперь самому этот байт прописывать? :(( ужосс.... посмотрел спецификацию дбф.. кошмар какойто... заголовок бинарный, информация в текстовом виде...
OemToChar - из  дос в вин
сhartooem - из вин в дос
(вернее оем то анси и наоборот)

Это сообщение отредактировал(а) nik0p0l - 23.3.2007, 10:41
PM MAIL   Вверх
nik0p0l
Дата 23.3.2007, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
я правильно понимаю что через ВБс на уровне байтов файл не поправить?... в FSO вроде бы нет такой возможности.. только текст стримы..

Это сообщение отредактировал(а) nik0p0l - 23.3.2007, 13:47
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0785 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.