Блокировка dbf

@lurii · Регистрация: 01.07.2010

Студворк — интернет-сервис помощи студентам

Имеем:
1) Древняя прога (писана еще под DOS) на dbf(dBaseIV)
2) На ней работают 6 человек (компов) по сети, я работаю на сервере
3) Я пытаюсь из Excel-а подключиться к БД(набор файлов-таблиц .dbf) через ADO (ODBC) и сделать небольшую выборку
4) Выборка из одной из таблиц проходит на ура, из остальных же вылазит ошибка - какой-то сбой (видимо блокировка).

5) При копировании бд домой (на другой комп) - все работает.

6) Как все-таки подключиться к этим таблицам? Как снять с них блокировку?
Какой командой? Возможно ли это?

7) Чел-автор этой проги при мне из FoxPro хитрыми манипуляциями ее снимал - и получал доступ к БД на выборку, но мне нужно их Excel-а автоматом генерить запрос к dbf-у ...

8) При копировании этих файлов в другую папку на этом же компе-сервере проблему не сняло - опять сбой (мистика?) ...

9) Писать что-либо на FoxPro не поможет - потому как не силен в этой БД - решение нужно найти на стороне Excell-а или какой или еще совет ...

@lurii · 29.05.2012, 03:26 **[ТС]**

Итак, полный текст ошибки при обращении к одной из таблиц:
Run-time error '-2147467259 (80004005)'
[Microsoft][Драйвер ODBC dBase]
Непредвиденная ошибка базы данных (10028)

Ошибка вылезает при обращении только к одной из 3-х таблиц, к остальным нормально. Только выборка.

При попытке импорта на лист Excel этой таблицы вручную через "Данные"-"Импорт внешних данных"-"Импортировать данные" возникает ошибка:
Блокировка таблицы 'tbl' невозможна; она используется пользователем '(нет данных)' на машине '(нет данных)'.

Как снять данную блокировку c dbf файла?

@Sasha_K · 29.05.2012, 14:23

пРИВЕТ.
пОСКОЛЬКУ ПРОГА СЕТЕВАЯ, И С НЕЙ ПО СЕТИ работают несколько человек, то сомневаться в квалификации програмера не приходится и переделывать повидимому ничего не нужно.
Открывают они данные share.
Теперь по твоему поводу.
Каким образом ты конектишься к таблицам?
плиз, строки в студию
Александр

@lurii · 29.05.2012, 15:33 **[ТС]**

Переделывать прогу я не хочу и не могу - на основе БД этой проги я пишу свою.
Мне просто нужно выдрать данные из таблиц.
Подключение через ADO в Excel:

Dim cn As New ADODB.Connection
cn.ConnectionString="Driver={Microsoft dBASE Driver (*.dbf)}

riverID=277

bq=c:db;"
cn.Open
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "select * from tbl.dbf"
Set rs = cmd.Execute

Все стандартно, хотя, можно рекордсет и без Command создавать через
Set rs = cn.Execute("select * from tbl.dbf")
Dbq=c:db; - путь к папке где базы лежат (dbf+cdx)

@Sasha_K · 29.05.2012, 17:23

Так и я о том-же, переделывать не нужно.
Там скорее всего всё корректно.
А вот ты не корректно подключаешься к таблицам.
Что-то я не вижу, где ты указываешь, с каким доступом ты открываешь таблицы.
Попробуй: Mode=Share Deny Read
Александр

@lurii · 29.05.2012, 17:31 **[ТС]**

Спасибо, поэкспериментирую!
А не подскажешь, Александр, как трактуются данные параметры доступа:
Read, ReadWrite, Share Deny None, Share Deny Read, Share Deny Write, Share Exclusive, Write ?

Excel вообще генерит строку: Provider=Microsoft.Jet.OLEDB.4.0;Passwor d="";User ID=Admin

ata Source=C: empexport
ew_db;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB

atabase Password="";Jet OLEDB:Engine Type=18;Jet OLEDB

atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB

on't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

@Sasha_K · 29.05.2012, 19:18

Ну так там же ясно, по английски, написано, для общий для чтения, для записи, для чтения и записи, монопольно для записи.
Александр

Новые блоги и статьи Все статьи Все блоги /
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .

@lurii 1 / 1 / 0 Регистрация: 01.07.2010 Сообщений: 84

	Блокировка dbf 13.03.2012, 23:57. Показов 6994. Ответов 6 Метки нет (Все метки) Имеем: 1) Древняя прога (писана еще под DOS) на dbf(dBaseIV) 2) На ней работают 6 человек (компов) по сети, я работаю на сервере 3) Я пытаюсь из Excel-а подключиться к БД(набор файлов-таблиц .dbf) через ADO (ODBC) и сделать небольшую выборку 4) Выборка из одной из таблиц проходит на ура, из остальных же вылазит ошибка - какой-то сбой (видимо блокировка). 5) При копировании бд домой (на другой комп) - все работает. 6) Как все-таки подключиться к этим таблицам? Как снять с них блокировку? Какой командой? Возможно ли это? 7) Чел-автор этой проги при мне из FoxPro хитрыми манипуляциями ее снимал - и получал доступ к БД на выборку, но мне нужно их Excel-а автоматом генерить запрос к dbf-у ... 8) При копировании этих файлов в другую папку на этом же компе-сервере проблему не сняло - опять сбой (мистика?) ... 9) Писать что-либо на FoxPro не поможет - потому как не силен в этой БД - решение нужно найти на стороне Excell-а или какой или еще совет ... 0

@lurii 1 / 1 / 0 Регистрация: 01.07.2010 Сообщений: 84
	29.05.2012, 03:26 [ТС]
	Итак, полный текст ошибки при обращении к одной из таблиц: Run-time error '-2147467259 (80004005)' [Microsoft][Драйвер ODBC dBase] Непредвиденная ошибка базы данных (10028) Ошибка вылезает при обращении только к одной из 3-х таблиц, к остальным нормально. Только выборка. При попытке импорта на лист Excel этой таблицы вручную через "Данные"-"Импорт внешних данных"-"Импортировать данные" возникает ошибка: Блокировка таблицы 'tbl' невозможна; она используется пользователем '(нет данных)' на машине '(нет данных)'. Как снять данную блокировку c dbf файла? 0

@Sasha_K 1 / 1 / 0 Регистрация: 27.10.2011 Сообщений: 107
	29.05.2012, 14:23
	пРИВЕТ. пОСКОЛЬКУ ПРОГА СЕТЕВАЯ, И С НЕЙ ПО СЕТИ работают несколько человек, то сомневаться в квалификации програмера не приходится и переделывать повидимому ничего не нужно. Открывают они данные share. Теперь по твоему поводу. Каким образом ты конектишься к таблицам? плиз, строки в студию Александр 0

@lurii 1 / 1 / 0 Регистрация: 01.07.2010 Сообщений: 84
	29.05.2012, 15:33 [ТС]
	Переделывать прогу я не хочу и не могу - на основе БД этой проги я пишу свою. Мне просто нужно выдрать данные из таблиц. Подключение через ADO в Excel: Dim cn As New ADODB.Connection cn.ConnectionString="Driver={Microsoft dBASE Driver (.dbf)}riverID=277bq=c:db;" cn.Open Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command cmd.ActiveConnection = cn cmd.CommandText = "select from tbl.dbf" Set rs = cmd.Execute Все стандартно, хотя, можно рекордсет и без Command создавать через Set rs = cn.Execute("select * from tbl.dbf") Dbq=c:db; - путь к папке где базы лежат (dbf+cdx) 0

@Sasha_K 1 / 1 / 0 Регистрация: 27.10.2011 Сообщений: 107
	29.05.2012, 17:23
	Так и я о том-же, переделывать не нужно. Там скорее всего всё корректно. А вот ты не корректно подключаешься к таблицам. Что-то я не вижу, где ты указываешь, с каким доступом ты открываешь таблицы. Попробуй: Mode=Share Deny Read Александр 0

@lurii 1 / 1 / 0 Регистрация: 01.07.2010 Сообщений: 84
	29.05.2012, 17:31 [ТС]
	Спасибо, поэкспериментирую! А не подскажешь, Александр, как трактуются данные параметры доступа: Read, ReadWrite, Share Deny None, Share Deny Read, Share Deny Write, Share Exclusive, Write ? Excel вообще генерит строку: Provider=Microsoft.Jet.OLEDB.4.0;Passwor d="";User ID=Adminata Source=C: empexport ew_db;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=18;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False 0

@Sasha_K 1 / 1 / 0 Регистрация: 27.10.2011 Сообщений: 107
	29.05.2012, 19:18
	Ну так там же ясно, по английски, написано, для общий для чтения, для записи, для чтения и записи, монопольно для записи. Александр 0