Подскажите пожалуйста, никак не могу найти как должно происходить чтение файла "db" (не dbf). Интернет облазил, ничего не нашел, нашел только две строчки на форуме, но и они не работают.
Можете привести пример, как 1с читает db файл

Хм, для начала недурно бы понять что за файл. Paradox?

пробуй ЭКСЕЛЬ

это Paradox. Я не давно данные переносил из Инфо-бухгалтера, так экселем их открывал.

Если это Paradox DB, то можно попробовать связку ADO-провайдер ODBC-драйвер Paradox для ODBC

ну или вариант (3)

(3) по расширению не всегда можно ориентироваться. Мы не знаем точно, откуда переносится инфа, и под расширением DB вполне может оказаться что-то самопальное...

(6) согласен

в файле db хранится таблица. Excel, -думаю это не то

(8) почему? Если файл парадоксовский, то Excel может его открыть

(9) пробовал через Excel, вообще никакой реакции.
Мне нужно не открыть файл, а прочитать его, нужен образец кода

(10) сигнатуру файла можешь посмотреть? Какие байты вначале?

вот ссылка
http://dropmefiles.com/jDWeQ

По-моему, это парадоксовский файлик. Сейчас посмотрим...

у меня запрашивает пароль

нету никакого пароля, даже не знаю от куда он взялся.
Если это парадоксовский файл, то как его правильно прочитать?

хм... драйвер видит таблю User, но при попытке открытия непредвиденная ошибка базы данных 11010. Возможно, нет какого-нть индексного файла или чего-то наподобие

Вау!
http://www.sql.ru/forum/233678/invalid-enum-value-dostal?hl=paradox

MS VISUAL FOXPRO, только посмотреть

Попытался сформировать строку из (17), опять-таки - таблицу видит, но данные не извлекает. Чего-то не хватает, скорее всего индексов.

есть еще какие-то файлы User.* ?

(0) в (17) описано, как формировать Paradox- строку соединения для провайдера Jet. Если есть желание - пробуйте самостоятельно, у вас база целиком есть.

(20) файлов больше нету.
А если бы были? То мне придется их одновременно читать или как?

(20) вообще у парадокса обычно для одной таблицы есть файл данных и несколько вспомогательных с тем же именем но другими расширениями - PX, MB... Когда обращаешься к базе, как правило, нужно указывать папку со всеми этими файлами, после чего становится возможным обращаться к отдельным таблицам. Это я собираю в кучку все что я помню по вопросу. Последний раз с парадоксом воевал лет 12 назад.

когда я обратился через драйвер к папке, где лежит твой файл, мне удалось увидеть таблицу USER, но не удалось увидеть поля в ней, а при попытке исполнить SELECT * from USER я получил ошибку синтаксиса в предложении FROM. Это скорее всего может означать либо разрушенный/непарадоксовский файл, либо отсутствие требуемых дополнительных файлов (индексных и т.п.) в каталоге. Нужно понять в чем проблема.

Знакомый кодил на Btrieve обзывал расширением *.db
Я тоже :)
Файл слегка смахивает на Btrieve файл.
Запись на поля делит прикладная программа.

чем прочитать -ищи ddf btrieve editor belov

(27) утром проснулся вспомнил - как вариант это еще может быть файл клариона.
найди pervasive попробуй им открыть файл.

(27) pervasive - это программа для открытия таблиц?

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

(28) Pervasive.SQL купил Btrieve у новелла и на его основе сделал sql - там есть инструмент для просмотра файлов btrieve, файлы клариона это по сути тоже btrieve.

(29) + много :)))

получается там две таблицы
1.ID    Code    Name    Text    
2. ProfileID    Password    Card    Finger

мне все-таки кажется что парадоксовский файл. Обратите внимание на строку ancyrr в заголовке - таким образом у парадокса кодируется поддержка кириллицы (как вариант там может быть ascii и другое подобное). Вопрос только, почему его джет не кушает.

файл возможно не весь. последняя строчка не полная

Попытался открыть через BDE - получил более информативное сообщение: BLOB file not found or corrupt. Открыл в рид-онли.
Получил список полей. При попытке открыть таблицу BDE запросил файлики:
USER.PX
USER.MB
Так что мой первоначальный диагноз был верным.

Мы брали vfpoledb.dll
Потом через ADO читали, писали.

Вот куски кода:

Функция ПолучитьСтрокуПодключения(Путь,Тип,Provider="")
    
    Если Provider="" Тогда
        Provider="Microsoft.Jet.OLEDB.4.0";    
    КонецЕсли;
    
    Возврат "Provider = "+Provider+";
    |Data Source="+Путь+";
    |Extended Properties="+Тип+";
    |Mode=Read|Write|Share Deny None;
    |Persist Security Info=True";
    
КонецФункции

-----------------
...
    ИначеЕсли ВыборкаИзменений.ФорматТаблицы = "DB" Тогда
        ТипБазы = "Paradox 5.X";
    Иначе
        ТекстОшибки = ВывестиСообщениеОбОшибке(ЗаголовокСообщенияОбОшибке,"Неизвестный формат таблицы: "+ВыборкаИзменений.ФорматТаблицы,Ложь);
        Возврат Ложь;
    КонецЕсли;
    
    СтрокаПодключения = ПолучитьСтрокуПодключения(Путь,ТипБазы,Provider);
    
    Соединение     = Новый COMОбъект("ADODB.Connection");
    
    Catalog     = Новый COMОбъект("ADOX.Catalog");
    
    Попытка
        Catalog.ActiveConnection = СокрЛП(СтрокаПодключения);
        Соединение.Open(СокрЛП(СтрокаПодключения));  
    Исключение
        ТекстОшибки = ВывестиСообщениеОбОшибке(ЗаголовокСообщенияОбОшибке);
        Возврат Ложь;
    КонецПопытки;
    
    Command                     = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection     = Соединение;
...
---------------
...

    //SELECT
        Успешно = СформироватьЗапросSELECT(Command, ИмяТаблицы, СтруктураКлючей, СтруктураИзменений, ТекстОшибки);
        
        Если не Успешно Тогда
            Возврат Ложь;
        КонецЕсли;
        
            
            RecordSet = Новый COMОбъект("ADODB.RecordSet");
            RecordSet.LockType = 2;    //2
            RecordSet.CursorType = 1;  //1
            
            Попытка
                RecordSet.Open(Command);
            Исключение
                ТекстОшибки = ВывестиСообщениеОбОшибке(ЗаголовокСообщенияОбОшибке);
                Соединение.Close();
                Возврат Ложь;
            КонецПопытки;
            
            // Перебор данных
            Если не ВыборкаИзменений.НеУникальныеЗаписи Тогда
                
                Если не RecordSet.EOF() = 1 Тогда
                    ЕстьЗапись = Истина;
                Иначе
                    ЕстьЗапись = Ложь;
                КонецЕсли;
                
                Если ЕстьЗапись Тогда
...

если пробовать строчки:
ExcelПриложение = Новый COMОбъект("Excel.Application");
Книга = ExcelПриложение.WorkBooks.Open(Путь);

то сначала появится таблица, с запросом пароля, а потом будет ошибка

файл все-таки парадоксовский, вот список полей из билдера:

        TAutoIncField *Table1ID;
        TIntegerField *Table1Code;
        TStringField *Table1Name;
        TStringField *Table1Text;
        TIntegerField *Table1ProfileID;
        TStringField *Table1Password;
        TStringField *Table1Card;
        TBlobField *Table1Finger;

но чтобы зачитать данные, нужны все файлы. одного DB недостаточно

либо, если по какой-то причине этого нет - может быть, возможно восстановить индексы в Database Desktop. У меня он, к сожалению, не установлен потому что был не нужен. Если (0) актуально, то могу позаморачиваться

последнее поле - Finger - это блоб. Блобы у парадокса хранятся в отдельных (!) файлах

(39) finger -это поле не нужно.
(35) попробовал так:
RecordSet = Новый COMОбъект("ADODB.RecordSet");
    RecordSet.LockType = 2;    //2  
    RecordSet.CursorType = 1;  //1  
    попытка
        RecordSet.Open(Путь);
        Сообщить("да");
    Исключение
        ТекстОшибки = ИнформацияОбОшибке();
        Сообщить("нет");
    КонецПопытки;

Выводит "нет" информации об ошибке нет

Database Desktop открыл в read-only

(40) если других файлов действительно нет (в чем я не уверен), то вряд ли вы сможете открыть чем-либо кроме Database Desktop. Потому что база по сути повреждена - нет части данных.

(41) там нет функционала, который позволил бы восстановить индексы? Я уж и позабыл как с ним работать...

(42) скажи, я немного не понимаю. У меня база открывается через Database Tour Pro. Открывается таблица и могу посмотреть таблицу. А как в 1с открыть, при помощи Database Desktop?

(44) ты чего то не договариваешь? :)))

(44) Database Desktop - это не через 1С. Это просто самостоятельная программа. Дело в том что парадоксовская база содержит не один файл на таблицу, а несколько, а прислан только один. Соответственно, база с точки зрения парадокса - повреждена и просто так открыть ее не получится. И мы тут пытаемся открыть хоть как-то. Понятно?

Насчет файлов вы были правы, только что спросил. Их 5 шт:
DB, MB, XGO, PX, YGO
и как мне сразу с пятьми файлами работать

(46) таблицу открыть я могу через Database Tour Pro, мне видны значения полей, а в 1с нет

(47) ну ты и партизан.... Так как тебе сказали в (4)
На допросе давно был? :))))

(49) извиняюсь.
Вчера дали один файл, сегодня по другому спросил, дали 5 файлов

(50) ну вот теперь пробуй через 1С со строкой соединения, как написано в (17). В Data source указывай папку с файлами, в Extended Properties Paradox 7.x. Возможно, получится.

+ (50) или можно попробовать как в (4), но вариант из (17) мне нравится больше - это гораздо проще

в (17) написано:
Provider=Microsoft.Jet.OLEDB.4.0;
    Data Source=C:\Program Files\BD\Base;
    Mode =Read|Write|Share Deny None;
    Extended Properties=Paradox 7.x;
    Persist Security Info = True;

Можете подсказать, что значит этот код?

(53) это строка подключения. путь где таблицы лежат, режим, прочие настройки

сделал так
Акцесс = СоздатьОбъект("ADODB.CONNECTION");
    СтрокаПодключения= Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Путь;Mode =Read|Write|Share Deny None;Extended Properties=Paradox 7.x;Persist Security Info = True;
    Акцесс.Open(Путь);

Ошибка в служебном сообщении:
Неопознанный оператор
    СтрокаПодключения= Provider=Microsoft.Jet.OLEDB<<?>>.4.0;Data Source=Путь;Mode =Read|Write|Share Deny None;Extended Properties=Paradox 7.x;Persist Security Info = True; (Проверка: Сервер)

Чего-то наподобие?

ID   47
Code 47
Name Гераськина
Text Гераськина
ProfileID 6
Password 65
Card $4444$

Файл можно как обычный TXT сделать (убрать заголовок). Поля имеют фикс. длину. Легко распарсить. Только потом часть полей из текстового вида преобразовать обратно в коды с помощью КодСимвола а потом в десятичный вид.

З.ы. надо только узнать про байт 0x80 несёт в себе данные или просто разграничитель полей.

(55)а ковычки где?

(57) не понимаю какие кавычки? Куда их ставить, поставлю в одном месте, в другом будет ошибка...

СтрокаПодключения="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Путь;Mode =Read|Write|Share Deny None;Extended Properties=Paradox 7.x;Persist Security Info = True;";

всмысле СтрокаПодключения="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Путь+";Mode =Read|Write|Share Deny None;Extended Properties=Paradox 7.x;Persist Security Info = True;";

Можно еще немного объяснить.
Написал код
Акцесс = Новый COMОбъект("ADODB.CONNECTION");
Путь = "D:\atol";
СтрокаПодключения="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Путь+";Mode =Read|Write|Share Deny None;Extended Properties=Paradox 7.x;Persist Security Info = True;";
Акцесс.ConnectionString = СтрокаПодключения;
Книга = Акцесс.WorkBooks.Open(Путь);


Появляется ошибка: Произошла исключительная ситуация (ADODB.Connection); Операция не допускается, если объект закрыт.


Ошибка при получении значения атрибута контекста (WorkBooks)
Книга = Акцесс.WorkBooks.Open(Путь);

WorkBooks ? O_o   ты же не через Excel файлы открываешь.

(62) через Excel тоже пробовал

(63) А теперь попробуй об стенку с разбегу.

(61) а пароль на базу не надо никакой ?

(65) а где его надо написать? Есть пароли для пользователей, т.е. надо указать пользователя и его пароль?

у меня строка подключения была такая
СтрокаСоединения    = "Provider=Microsoft.Jet.OLEDB.4.0;
|Jet OLEDB:Database Password=""jIGGAe"";
|Data Source="+ТемпКаталог+";
|Extended Properties=Paradox 5.x;
|";

но мне сразу сказали что jIGGAe - это технический пароль на базы paradox

(58) ставь не в одном месте, а в двух :)

(55),(61) да, с таким пониманием технологий тяжело, наверно, работать...

(69) не знаю как ты я уже тупо пью, я теперь понимаю почему темы пятницы перестали создавать. Потому что ближе к пятнице во всех темах начинается сплошная пятница.

Я, помнится, писал на сях читалку Paradox, чтобы восстановить файл с данными, только потом умная читалка показала, что в середине файла вместо данных одни 0xFF - после этого очень не люблю этот Paradox.

Читал тему - смешно :)
Автор, по-ходу, и в 1С немного понимает, а ещё взялся из 1С сторонними продуктами пользоваться.
куды мир катится...

(71) Много лет назад я пользовался парадоксовскими базами, используя BDE (Borland Database Engine). Для совсем небольших объемов сойдет, когда речь начинает идти о десятках мегабайт - начинает барахлить даже локально: появляются висячие внешние ключи, дубликаты PK и прочая гадость. А уж по сети и говорить нечего. В результате отказался от него. А так, в принципе, сделать импорт данных никаких проблем - дельфю в руки и вперед.

+ (71) починялки файлов какие-то были, точно помню

(74) Если середину файла затёрло из-за ошибки на диске, то нет смысла такой файл восстанавливать.

(75) почему? У меня был случай когда файл проводок в семерке покрячило в середине из-за плохого сектора. Ничего, взял бэкапный и из него пару килобайт вклеил по смещению, потом ТИИ - и все нормально...