Ошибка при открытии файла dbf

   andiko

25.12.06 — 17:38

   ТелепатБот

1 — 25.12.06 — 17:38

   andiko

2 — 25.12.06 — 17:39

(1) типа умный…

   MAG

3 — 25.12.06 — 17:40

Путь = «D:1СBasesNOM.dbf»;
   Если ФС.СуществуетФайл(Путь) = 0 Тогда
       Сообщить(«Файл базы не найден!»,»!»);
       Возврат;
   КонецЕсли;    
   БД = СоздатьОбъект(«XBase»);
   Попытка
       БД.ОткрытьФайл(Путь);
   Исключение              
       БД.ЗакрытьФайл();
       БД.ОткрытьФайл(Путь);
   КонецПопытки;
   Если БД.Открыта() = 0 Тогда
       Сообщить(«Ошибка открытия базы !»,»!»);
       Возврат;
   КонецЕсли;

   andiko

4 — 25.12.06 — 17:43

(3) прикольно…
а из-за чего ругаться может?

   andiko

5 — 25.12.06 — 17:54

   Каанкереде

6 — 25.12.06 — 17:55

(4) ты этот D:1СBasesNOM.dbf случаем никаким dbfViewer’ ом не открыл параллельно?

   andiko

7 — 25.12.06 — 17:58

(6) так в том-то и дело: перезагружался, удалял — ничего не помогает 🙁

   Каанкереде

8 — 25.12.06 — 18:03

(7) а пробовал этот файл еще чем нибудь открыть? тем же dbfViewer или dbfNavigator

   andiko

9 — 25.12.06 — 18:04

(8) нормально открывается

   Прохожий

10 — 25.12.06 — 18:13

(9) Есть программа, unlocker, вроде…

   andiko

11 — 25.12.06 — 18:14

(10) файл ничем/никем не заблокирован: нормально удаляется

   Прохожий

12 — 25.12.06 — 18:14

А зачем ты его удаляешь? Не удаляй…

   Прохожий

13 — 25.12.06 — 18:15

У тебя именно этот файл не открывается или вообще ни один?

   andiko

14 — 25.12.06 — 18:20

(13) у меня их в папке два, не один не открывается. перезагружался — не помогло. из внешней обработки, такой же в ноль код работает, из глобальника — нет

   Tymoha

15 — 25.12.06 — 18:25

(14)атрибуты файла проверь

   andiko

16 — 25.12.06 — 18:52

(15) пучком все с атрибутами…

   andiko

17 — 25.12.06 — 19:24

неужели ни у кого такого небыло ?

   DrShad

18 — 25.12.06 — 19:28

имена файлов давай?

   andiko

19 — 25.12.06 — 19:32

(18) не понял?

   DrShad

20 — 25.12.06 — 19:35

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

   andiko

21 — 25.12.06 — 19:36

(20) у меня файлы называются 1.dbf, 2.dbf, 3.dbf и т.д.
причем обработкой открываются, а из глобальника нет

   DrShad

22 — 25.12.06 — 19:38

какой обработкой?

   andiko

23 — 25.12.06 — 19:39

(22)точной копией процедуры из глобальника. написал чтобы удобнее было отладить

   DrShad

24 — 25.12.06 — 19:42

та что в (0)

   DrShad

25 — 25.12.06 — 19:42

а ты ее из глобальника убрал?

   DrShad

26 — 25.12.06 — 19:44

+(25) т.е. они у тебя не пытаются дважды открыться? ты их после пользования закрываешь?

   andiko

27 — 25.12.06 — 19:46

(26) написал во внешней обработке, отладил. все гуд
впихнул в глобальник — выдает ошибку. удалил файлы — пофиг. перегрузился — пофиг, атрибуты файлов — гуд

   DrShad

28 — 25.12.06 — 19:48

а отладчиком что показывает?

   andiko

29 — 25.12.06 — 19:50

(28) а отладчик куда пихать?

   mun2

30 — 25.12.06 — 19:50

У тебя переменные в глобальнике не пересекаются?

   DrShad

31 — 25.12.06 — 19:55

а что ты вообще в них пишешь?

   andiko

32 — 26.12.06 — 10:37

(30) переменные не пересекаются
(31) в файле содержится структура справочника другой базы

   A_M-ko

33 — 26.12.06 — 11:37

Был у меня такой прикол. Для открытия файла запустил цикл, так вот файл открылся с четвертой попытки. Платформа 1С рулит.

   andiko

34 — 26.12.06 — 11:40

(33) а лечить как?

   A_M-ko

35 — 26.12.06 — 11:42

Платформу лечить нужно. Не ожидает она момента открытия, спешит куда-то.

   andiko

36 — 26.12.06 — 11:43

(35) а конкретные предложения? ведь из внешней обработки все работает

   A_M-ko

37 — 26.12.06 — 11:43

Ха. А уменя как раз во внешней обработке не работало.

   andiko

38 — 26.12.06 — 11:44

(37) а в глобальном все пучком?

   A_M-ko

39 — 26.12.06 — 11:45

Не заморачивайся. Поставь цикл и все срастется. Секунда туда секунда сюда. Все остальное работает дольше.

   andiko

40 — 26.12.06 — 11:47

цикл с 1 по 100 000 хватит?

   A_M-ko

41 — 26.12.06 — 11:49

Да я же говорю с четвертой попытки. Цикл

ДБ.ОткрытьФайл(ИмяФайла);

Пока ДБ.Открыта()=0 Цикл

   ДБ.ОткрытьФайл(ИмяФайла);

КонецЦикла;

   andiko

42 — 26.12.06 — 11:51

(41) т.е. этот кусок в цикл на 4-5 раз?

   Один С

43 — 26.12.06 — 11:56

(40) Поставь перед словом «Попытка»  строчку Сообщить(Файл);

   A_M-ko

44 — 26.12.06 — 11:57

Да нет, это все. Просто я там счетчик при отладке вставлял и его потом смотрел при выходе из цикла.

   andiko

45 — 26.12.06 — 12:00

(43) поставил. сообщает имя файла который там есть
(44) понял, спасибо. буду пробывать (бредятина какая-то)

   andiko

46 — 26.12.06 — 12:15

прокрутилось чуть больше 10 раз, толку 0

   andiko

47 — 26.12.06 — 12:42

уже минут 40 крутится и не читает

   A_M-ko

48 — 26.12.06 — 12:44

Ну извини. Я описал как было у меня.

   A_M-ko

49 — 26.12.06 — 12:48

У меня правда проблема была в том, что файл создавался в обработке. Перед открытием стоял цикл задержки по условию наличия файла в каталоге. Так вот слету файл не открывался, а с четвертой попытки все получалось. Может у тебя он действительно чем-то он блокируется?

   andiko

50 — 26.12.06 — 12:49

(49)  я так понимаю, что если файл блокируется, то с ним ничего нельзя сделать: не удалить, не переместить, но! у меня и удаляется и перемещается

   A_M-ko

51 — 26.12.06 — 12:52

А нет ли ограничения на количество открытых файлов xBase? Я не знаю, просто предположение?

   andiko

52 — 26.12.06 — 12:58

(51) это как?

   A_M-ko

53 — 26.12.06 — 13:00

И еще. Когда я в глобальном модуле при начале работы запустил небольшую обработку справочника на 23000 элементов, то работа системы продолжилась, а справочник продолжал обрабатываться, и меню осталось недоступным. Как у тебя вызывается эта процедура?

   A_M-ko

54 — 26.12.06 — 13:03

(52) Сколько одновременно можно создать объектов xBase?

   andiko

55 — 26.12.06 — 13:12

(53) вызывается по таймеру
(54) как узнать?

   Один С

56 — 26.12.06 — 13:18

Че то я не понял. Зачем ты файлы открываешь, закрываешь?

А строчка «Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда»

вообще непонятно для чего.

   andiko

57 — 26.12.06 — 13:21

(56) цикл по файлам в каталоге

   Иде я

58 — 26.12.06 — 13:30

Нука отпость сюда путь к каталогу…
и код обработки

   andiko

59 — 26.12.06 — 13:33

   A_M-ko

60 — 26.12.06 — 13:34

Може все дело в вызове по таймеру? Может что-то с синхронизацией событий открытия-закрытия? Эх отладчик тупой.

   Иде я

61 — 26.12.06 — 13:35

«*.*» Че эт за лажа ?
Ты все подряд пытаешься открывать ? может отфильтруешь по «*.dbf» ?

   Иде я

62 — 26.12.06 — 13:37

И блин, нафига ты вначале пытаешься открыть файл, а потом только проверяешь существование его ?

   Иде я

63 — 26.12.06 — 13:37

Файл = ФС.НайтиСледующийФайл();
сообщить(Файл);
       ИмяФайла = ПутьФ+Файл;
Сообщить(ИмяФайла);

   andiko

64 — 26.12.06 — 14:10

(61) у меня там только дбф
(62) исправил — пофиг

   andiko

65 — 26.12.06 — 15:14

спецы иссякли…

   Один С

66 — 26.12.06 — 15:26

Выложи процедуру целиком.

   vpetrov

67 — 26.12.06 — 15:32

Возможно, что у тебя неправильно отрабатывает путь… Попробуй полностью прописать путь, с учетом сетевого адреса, либо попробуй перекинуть этот каталог на диск С, и соответственно в коде поменять путь с Д на С.

   andiko

68 — 26.12.06 — 15:33

   andiko

69 — 26.12.06 — 15:33

(67) с путем все ок

   Казанская Сирота

70 — 26.12.06 — 15:37

Попробуй из пути убрать Кириллицу. C:DBFfilesobmen

   Казанская Сирота

71 — 26.12.06 — 15:39

   Казанская Сирота

72 — 26.12.06 — 15:41

   Казанская Сирота

73 — 26.12.06 — 15:41

// гоп на третий 😉  не отсюда

   Shaman100M

74 — 26.12.06 — 15:42

(21) Не начинай файл с цифры. Сделай хотя бы F1.dbf F2.dbf …

   Shaman100M

75 — 26.12.06 — 15:47

В фоксе такие файлы не открываются

   Один С

76 — 26.12.06 — 16:20

ДБФ = СоздатьОбъект(«XBASE»);

   ПутьФ = «D:БазыРеализацииАвиапроobmen»;

   ФС.УстТекКаталог(ПутьФ);

   Файл = ФС.НайтиПервыйФайл(«*.dbf»);

   Пока ПустоеЗначение(Файл) = 0 Цикл

       ИмяФайла = ПутьФ+Файл;    

       ДБФ.ОткрытьФайл(ИмяФайла);    

       Состояние(«Загружаем данные…»);    

           тз = СоздатьОбъект(«ТаблицаЗначений»);

           тз1 = СоздатьОбъект(«ТаблицаЗначений»);

           ДБФ.Первая(); //позиционируемся на первой записи

           Пока ДБФ.ВКонце()=0 Цикл //пока не дошли до конца, крутим цикл

               тз.НоваяСтрока();

               тз1.НоваяСтрока();

               тз.NOMERDOC = ДБФ.NOMERDOC;   // номер документа

               тз.KOLVO    = ДБФ.KOLVO;       // количество

               ДБФ.Следующая();

           КонецЦикла;

           ДБФ.ЗакрытьФайл();

           ФС.УдалитьФайл(ИмяФайла);

           Файл = ФС.НайтиСледующийФайл();

   КонецЦикла;

   andiko

77 — 26.12.06 — 16:29

(76) в таком варианте работает, только загружает один файл, а остальные удаляет

   A_M-ko

78 — 26.12.06 — 16:33

А может dbf-файлы не одного типа (FoxPro, dBase), например файлы типа Fox2x открываются а выше версий нет.

   Shaman100M

79 — 26.12.06 — 16:34

   andiko

80 — 26.12.06 — 16:39

(78) файлы созданы в 1С
(79) а не черезчур запутанно и сложно?

   Один С

81 — 26.12.06 — 16:41

   andiko

82 — 26.12.06 — 16:59

(81) блин… не работает

   Один С

83 — 26.12.06 — 17:06

(82) Где не работает?

   Иде я

84 — 26.12.06 — 17:06

Первые два файла будут «.» и «..»

   andiko

85 — 26.12.06 — 17:08

(84) угу

   andiko

86 — 26.12.06 — 17:12

(83) загружает один из двух файлов и все

А может не удалять в цикле файлы, а удалить потом после загрузки?

I have a VB.NET application that will let me preview .DBF files that come in from some of our clients. The application then attempts to spit out a CSV from this file that we can then use in our various environments.
This application worked under Windows XP 32 bit. Our company recently upgraded most of us to Windows 7 x64 which has caused this application to fail. I verified that the target build for this application is x86 and not «any CPU» and rebuilt the app but same issues occur.

It originally used System.Data.Odbc and connection.ConnectionString = "Driver={Microsoft dBASE VFP Driver (*.dbf)};SourceType = DBF;SourceDB=" & dbfSourcePath & ";Exclusive=No; Collate=Machine;BACKGROUNDFETCH=NO;".
The location of the failure is at connection.Open(). The error given is: «ERROR [IM001] [Microsoft][ODBC Driver Manager] Driver does not support this function».

I noticed that the drivers for VFP were not installed and that the Access DBF drivers did not work similar to the post here. The fix listed there is to install VFPro SP2, however, we do not have any FoxPro installs to install a service pack on top of. I then tried to install the OLEDB driver for VFP 9.0 and am now using System.Data.OleDb and connection.ConnectionString = "Provider=VFPOLEDB.1;SourceDB=" & dbfSourcePath & ";" but it now tells me that the connection.Open() line has this error: «Feature is not available».

I am at a complete loss as to how to get this application to work under Windows 7 x64.
Below are the 2 variants of the code with the file open path removed for readability (I have verified the path and file exist):

ODBC version:

Imports System.Data.Odbc
Dim strSelect As String
strSelect = "SELECT * FROM " & dbfSourceName
Dim connection As New Odbc.OdbcConnection
Dim adp As New Data.Odbc.OdbcDataAdapter
connection.ConnectionString = "Driver={Microsoft dBASE VFP Driver (*.dbf)};SourceType = DBF;SourceDB=" & dbfSourcePath & ";Exclusive=No; Collate=Machine;BACKGROUNDFETCH=NO;"
Dim command As New OdbcCommand(strSelect, connection)
connection.Open()          ' Here is where it throws the error.

OLEDB version:

Imports System.Data.OleDb
Dim strSelect As String
strSelect = "SELECT * FROM " & dbfSourceName
Dim connection As OleDbConnection = New OleDbConnection()
Dim adp As New Data.OleDb.OleDbDataAdapter
connection.ConnectionString = "Provider=VFPOLEDB.1;SourceDB=" & dbfSourcePath & ";"
Dim Command As New OleDbCommand(strSelect, connection)
connection.Open()          'Error occurs here.

How can I use either an OLEDB or ODBC connection to open these .DBF files under Windows 7 x64?