Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с dbf файлом в VB 6.0 / 2 сообщений из 2, страница 1 из 1
01.06.2007, 23:20
    #34569528
sergey113
sergey113
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с dbf файлом в VB 6.0
Уважаемые спецы и не только :) Прошу Вашей помощи с импортом dbf файла в VB 6.0 для последующей с ней работы. Мне требуеться из этой таблицы в dbf формате потом делать запросы на выборку и тп. Но я не могу даже подключить ее при помощи vIsData. Какой вообще должна быть последовательность моих действий?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2007, 08:07
    #34569625
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с dbf файлом в VB 6.0
Для начала подключи к своему проекту например DAO 3.6.
Потом примерно такой код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim Cl_Base As Database
Dim rsClose As Recordset
  Set Cl_Base = DAO.OpenDatabase(MainPath, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
SQLExecString = "SELECT * FROM Table1" 
Set rsClose = Cl_Base.OpenRecordset(SQLExecString)
' Здесь располагаешь свой код 

' Этими строками ты закрываешь рекордсет и базу.  Если этого не сделать то может получиться облом с доступом к таблице из след. процедуры
rsClose.Close
Cl_Base.Close
Set rsClose = Nothing
Set Cl_Base = Nothing

MainPath - это полный путь к папке где лежат твои таблицы (Название одной из них например Table1.dbf)

Еще один немаловажный момент (кстати буду рад если кто надоумит) КОДИРОВКА ТАБЛИЦА ОБЯЗАТЕЛЬНО ДОЛЖНА БЫТЬ DOS. Сколько не искал я по этому поводу но при чтении из таблицы кодировка которой Win1251 у меня вылезали кракозябры вместо символов.
Если будут какие вопросы в процессе разработки пиши попробую помочь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с dbf файлом в VB 6.0 / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 351ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163914]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 218ms
total:  351ms
x
x
Закрыть


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