Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите открыть файл DBF / 13 сообщений из 13, страница 1 из 1
05.07.2006, 22:15
    #33834175
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Есть файл DOC.DBF, Необходимо из него взять данные.
открываю так в модуле:
Код: plaintext
1.
2.
3.
4.
Public Sub КоннектDBF(strSur As String)
Set DBFConn = New ADODB.Connection
 DBFConn.Open "Provider=MSDASQL.1;Persist Security Info=False;mode=19;Data Source=Файлы dBASE;Initial Catalog=" + strSur
  End Sub

из формы

Код: plaintext
1.
2.
3.
КоннектDBF rsIni("Path")
Set rsDoc = New ADODB.Recordset
rsDoc.Open "SELECT FIRM FROM DOC.DBF", DBFConn



Код: plaintext
rsDoc.Open ("DOC.DBF"), DBFConn

так же не проходит

ошибка:Run-Time [Microsoft][Driver ODBC dbase] Непредвиденная ошибка драйвера внешней базы данных (8961)
Файл во вложении.

Пожалуйста помогите, работа стоит.
Другие МОИ DBF, открываются без проблем.

В чем дело во мне, или файл защищен?

Пробовал ADO 2.8 и 2.5 результат тот жэ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2006, 22:31
    #33834187
Alexey-M
Alexey-M
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Для начала, я бы попробовал
Код: plaintext
Provider=VFPOLEDB. 1 ;Data Source=D:\DBF;Password="";Collating Sequence=MACHINE
Вместо:
Код: plaintext
Provider=MSDASQL. 1 ;Persist Security Info=False;mode= 19 ;Data Source=Файлы dBASE;Initial Catalog=...
Ясное дело D:\DBF - у меня. У тебя каталог с таблицами может быть другим.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2006, 22:31
    #33834188
Goldminer
Goldminer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
В файле присутствует memo поле -- нужен doc.dbt (fpt)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2006, 09:43
    #33834617
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Alexey-MДля начала, я бы попробовал
Код: plaintext
Provider=VFPOLEDB. 1 ;Data Source=D:\DBF;Password="";Collating Sequence=MACHINE

И заглянул бы сюда.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2006, 11:50
    #33835113
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Спасибо, попробую все как только появится время.
Результат напишу.

В файле присутствует memo поле -- нужен doc.dbt (fpt)

FPT есть, но если можно подробнее как открывать DBF файламs с мемо полями.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2006, 12:39
    #33835299
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Melkiades Alexey-MДля начала, я бы попробовал
Код: plaintext
Provider=VFPOLEDB. 1 ;Data Source=D:\DBF;Password="";Collating Sequence=MACHINE

И заглянул бы сюда.

Эта строка выдает ошибку :
Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом

Перестали открываться остальные DBF, которые раньше вопросов не вызывали.

Примеры по ссылке то жэ не проходят.

VFPOLEDB.1 надо чтото установить дополнительно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2006, 19:53
    #33836843
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Подскажите пожалуйстаааа

Ни одна из приведенных строк не работает

выдает непредвиденную ошибку на строке
Код: plaintext
rsDoc.Open

Код: plaintext
Provider=VFPOLEDB. 1 ;Data Source=D:\DBF;Password="";Collating Sequence=MACHINE

ошибка Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Form_Load()
Dim DBFConn As ADODB.Connection
Dim rsDoc  As ADODB.Recordset

Set DBFConn = New ADODB.Connection
DBFConn.Open "Provider=MSDASQL.1;Persist Security Info=False;mode=19;Data Source=Файлы dBASE;Initial Catalog=C:\1;"
'DBFConn.Open "Provider=VFPOLEDB.1;Data Source=C:\1;Password="";Collating Sequence=MACHINE"
'DBFConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1;Extended Properties=dBASE IV;User ID=Admin;Password="
'DBFConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=C:\1;"
Set rsDoc = New ADODB.Recordset
rsDoc.Open "SELECT FSUM FROM DOC", DBFConn
rsDoc.Close
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2006, 23:26
    #33837026
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Dim oConn As Object
Dim oRS As Object
Dim cConnStrng As String
Set oConn = CreateObject("adodb.connection")
Set oRS = CreateObject("adodb.recordset")
cConnStrng = "Provider=VFPOLEDB.1;Data Source=D:\dbf\doc.dbc;Password='';Collating Sequence=MACHINE"
oConn.Open (cConnStrng)
oRS.Open "SELECT * FROM doc", oConn
Print oRS.Fields("fcomplex").Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.07.2006, 15:39
    #33838768
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
почему doc.dbc, и зачем
Код: plaintext
CreateObject
?

Не работает. Не понимает метод
Код: plaintext
oRS.Open
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.07.2006, 19:34
    #33839591
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
1. почему dbc, можно прочитать здесь
http://]msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_foxhelp/html/fotskaccessingvisualfoxprodatainvisualstudionet.asp

2. Ну у меня открывается, но ...
а) я создал с помощью Visual FoxPro базу данных (файл doc.dbc)
б) дело в том, что это doc.dbf и doc.fpt файлы Visual FoxPro в там есть ссылка на индексный файл doc.cdx который отсутствует. Опять таки с помощью Visual FoxPro я эту ссылку удалил.

Вот все и работает.

Т.е. у вас рабочий код.

ЗЫ Только надо сказать, что у Вас в doc.fpt кодировка 866
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2006, 18:23
    #33840307
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Выходит без манипуляций с FoxPro, из VB файл открыть невозможно? Т.е. не имея файла dbc.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2006, 19:03
    #33840327
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
Ну остается возможность объявить ODBC. И использовать вариант открытия через ODBC. В этом случае нужно описать каталог для таблиц FoxPro. Но нужно взять с сайта микрософт последний, а то тот который в поставке с ОС - глючный. Да и у этого есть глюки.
На мой взгляд нужно использовать для экспорта импорта dBase III.

Там тоже есть особенности. :((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2006, 19:26
    #33840335
Andrey13
Andrey13
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите открыть файл DBF
ВСЕ!!
Тема закрыта. Потеряна неделя, а ошибка была следующей:
в строке

Код: plaintext
DBFConn.Open "Provider=VFPOLEDB.1;Data Source=C:\1;Password="";Collating Sequence=MACHINE"

Password='' - Естественно одинарные кавычки.

Спасибо всем за внимание и проявленную заботу.

Вышел из положения так:

Создал DataEnvironment1, подсоеденился!

потом попробовал
Код: plaintext
DBFConn.Open DataEnvironment1.Connection1.ConnectionString

Работает!.. ??

Начал копать строку, и нашел ошибку.
Короче, сам дурак, и другим покоя недавал.

Еще раз спасибо всем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите открыть файл DBF / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 495ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165610]:
 0ms
get settings:
 5ms
get forum list:
 7ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 237ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 204ms
total:  495ms
x
x
Закрыть


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