Как прочитать все данные из БД dfFoxPro2 с использованием unidac?

Question

[Евгений Иванов]

Пишу на delphi 10, использую компонент unidac (от devart).
У меня есть база dbf (dfFoxPro2). Мне нужно прочитать все данные из нее. Построчно, в цикле - например.
Имена в БД столбцов известны.
Как это сделать?

Работа с БД в unidac идет через sql запросы.
Вот пример рабочего кода. Создания таблицы в бд.

UniConnection := TUniConnection.Create(nil);
UniConnection.ProviderName := 'DBF';
UniConnection.Database:='C:\base.dbf';
UniConnection.SpecificOptions.Values['DBFFormat'] := 'dfFoxPro2';
UniConnection.SpecificOptions.Values['Direct'] := 'True';
UniConnection.Connect;
//Имя файла - base (base.dbf) определяется в коде create
UniConnection.ExecSQL('CREATE TABLE base (ID NUMERIC, Customer CHAR(50), Notes MEMO)');
UniConnection.Disconnect;

Аналогично должно быть и чтение данных.
Как прочитать все данные из БД dfFoxPro2 с использованием unidac?

Answer 1

[kalapanga]

Проблема-то в чём? Берёте и читаете. Вы же сами написали "работа идёт через sql запросы", ну и используйте TUniQuery. На сайте есть документация, в комплекте с компонентами должны быть демо-проекты. Принципиальных отличий от работы со стандартными дельфевыми компонентами нет.

Comments

[Евгений Иванов]

kalapanga -

Берёте и читаете

Хороший ответ, информативный.

Вы же сами написали "работа идёт через sql запросы",

И даже привел пример рабочего кода.

TUniQuery

или UniConnection.ExecSQL?

UniConnection := TUniConnection.Create(nil);
UniConnection.ProviderName := 'DBF';
UniConnection.Database:='C:\base.dbf';
UniConnection.SpecificOptions.Values['DBFFormat'] := 'dfFoxPro2';
UniConnection.SpecificOptions.Values['Direct'] := 'True';
UniConnection.Connect;
UniQuery1.SQL.Append('SELECT * FROM BASA');
UniQuery1.ExecSQL;

Не работает. Но ведь должно. А вот и нет.

На сайте есть документация, в комплекте с компонентами должны быть демо-проекты.

Документация? Как вы думаете какая документация у компонента работающего с 18 БД?
Большая. Как вы думаете - будет там пример запроса или только общая информация?
Только общая информация.

Демо-проекты? Да они есть. Но...демо проект. Один.
Состоящий из 103 файлов и 18 папок. Все взаимосвязано и все включено в один большой проект.

[kalapanga]

Документация? Как вы думаете какая документация у компонента работающего с 18 БД?
Большая. Как вы думаете - будет там пример запроса или только общая информация?
Только общая информация.

Вы ещё забыли пожаловаться, что там всё на английском! А как Вы собираетесь работать с инструментом не читая инструкции? Вы даже не пытались там что-то найти. Всё что Вам нужно - на этой страничке: UniDAC Basics Последовательно выполняете действия из пунктов Connecting to the Database at Run-Time и Selecting Data. Там есть примеры запроса.

Не работает. Но ведь должно. А вот и нет.

Оно делает ровно то, что Вы просите. Чем отличаются Query.Execute от Query.Open? Это можете найти на той же страничке или в справке Delphi. Или она тоже слишком большая?

[Евгений Иванов]

А как Вы собираетесь работать с инструментом не читая инструкции? Вы даже не пытались там что-то найти. Всё что Вам нужно - на этой страничке: UniDAC Basics

Здорово! А я то ...эх.
Так - Oracle, имя-пароль, сервер...что то не то - у меня DBF файл.
Сервера нет, паролей тоже, не оракл совсем. Схема, юсес оракл - ясно, но совсем не то.

О - Selecting Data!
SELECT * FROM emp - а я то и не знал. Такой сложный запрос. Как мне помогла эта информация. //На самом деле нет.

...
UniQuery1.Connection := UniConnection1;
UniQuery1.SQL.Text := 'SELECT * FROM emp';
UniQuery1.Open;

Выполнили запрос. Для оракл.

Working with Fileds
Работаем с полями.

Memo1.Lines.Add(IntToStr(Empno) + ' ' + Ename);
Вау-вау полегче! Мемо, лайнс - адд. Сложно же.
....Макросы, процедуры.

А теперь вопрос - где там

UniConnection.ProviderName := 'DBF';
UniConnection.Database:=output_file_path;
UniConnection.SpecificOptions.Values['DBFFormat'] := 'dfFoxPro2';
UniConnection.SpecificOptions.Values['Direct'] := 'True';

А теперь ответ - это особенности работы с конкретной БД.
Путь к БД? Нет - там сервер. Да у оракл сервер.
DBFFormat? У оракл? А - аналогично. Что аналогично?
Вот вы знаете как работать с DBF? Нет. Будет другая версия бд и все - ваш код нерабочий.
Будет база в utf-8 и unidac до 2017 выдаст вам крякозябры.

Умею я работать с БД? Да. Умею писать sql запросы? Да.
Знаю я как работать с БД в Delphi? Да.
Знаю я как работать с БД в Delphi в unidac? Нет.
И пока не будет инструкции можно гадать сколь угодно долго. Опыт решает, но время дороже. Играть в угадайку и научно тыкать можно долго. Но это не лучшее занятие.

[kalapanga]

В следующий раз Вы скажете, что мол, как так - в примере написано пароль 123, а у меня ведь другой! Паршивый пример, не будет работать!
По-моему, работать не хотите Вы. Извините, тут уже не поможешь.

Умею я работать с БД? Да.
Умею писать sql запросы? Да.
Знаю я как работать с БД в Delphi? Да.

Вы ошибаетесь. Все три ответа - Нет.

[Евгений Иванов]

Вы ошибаетесь. Все три ответа - Нет.

Ответы верны. Если есть хорошая документация - справится даже начинающий программист.
У опенсорс продуктов, как ни странно она есть. И вопросов не возникает.
А что ни коммерческий продукт, то баги, неточности, ошибки коих я находил и буду находить ещё очень много.

В следующий раз Вы скажете, что мол, как так - в примере написано пароль 123, а у меня ведь другой!

А вот вы знаете - смешно конечно, но в хорошей документации пишут - пароль для примера, там ваш пароль. Принято так.

Извините, тут уже не поможешь.

Ну не знаете как работать с DBF и ладно. Формат устарел. Простительно чё уж.

[kalapanga]

Вот ведь упёртый лентяй! Ладно

UniConnection := TUniConnection.Create(self);
  UniConnection.ProviderName := 'DBF';
  UniConnection.Database:='D:\Project\UniDAC_DBF'; // Здесь не путь с именем файла а только папка с файлами!
  UniConnection.SpecificOptions.Values['DBFFormat'] := 'dfdBaseIII'; // Выберите Ваш формат
  UniConnection.SpecificOptions.Values['Direct'] := 'True';
  UniConnection.Connect;

  UniQuery := TUniQuery.Create(self);
  UniQuery.Connection := UniConnection;
  UniQuery.SQL.Text := 'select * from real'; // Здесь "real" это имя таблицы, т.е. файла real.dbf в папке, указанной выше
  UniQuery.Open;

В uses добавить DBFUniProvider. (Киньте соответствующий компонент на форму).
С запросом уж сообразите чего делать? Хоть в гриде отображайте, хоть бегайте по нему, записи читайте.
Всё проверено, работает.
p.s. UniDac вижу впервые в жизни.

[Евгений Иванов]

Всё проверено, работает.

А вот и нет. Ох уж эти лентяи, правда? Вот пишут код на 90% и что дальше то ленятся.
Вы то сами не находите, что ваш код ну как бы...почти мой?
Ошибка. Не найден файл basa.fpt

А теперь ответ - это особенности работы с конкретной БД.

Есть такое мнение, что нужно модифицировать код выше, для исключения отсутствующих значений memo полей. Сможете?

p.s. UniDac вижу впервые в жизни.

Ну вот. Теперь особенности работы UniDac с DBF.
А в инструкции то не написали, что такое возможно? Как так?

Кстати, с TDBF выше написанное сделать легко. Но в TDBF будет своя ошибка (которую не исправили разработчики для Delphi 10.1).

Вот лентяи то. Везде. Окружают гады. 0_0

[kalapanga]

Вы то сами не находите, что ваш код ну как бы...почти мой?

Нет. Ваш не работает, мой работает.

Ошибка. Не найден файл basa.fpt

А почему его у Вас нет? Вы считаете это моя проблема или devart-ов?

Есть такое мнение, что нужно модифицировать код выше, для исключения отсутствующих значений memo полей. Сможете?

А зачем оно мне? Вы меня что, наняли? Я Вам и так подсказал достаточно. Вы спросили как читать dbf через unidac - я ответил. Вы этого не умели. О том, что у Вас база "некомплектная" в исходном вопросе ничего не было. Какие потом ещё вводные ждать? Нет уж, далее сами...

[Евгений Иванов]

Нет. Ваш не работает, мой работает.

Ну как же работает? Ошибка. Не найден файл basa.fpt!
Неа не работает. Вот если бы прочитал файл - тогда да.
Но вы ведь только копипаст из мануалов. Вот честно - ничего нового не написали.
Открыли мануал, списали.
А я говорил -

. Как вы думаете - будет там пример запроса или только общая информация?
Только общая информация.

Минимальная задача-открытие и чтение файла решена? Нет.
Да я вас не нанимал. Да вам за это никто не платит. Но ваш код не работает.
Вот может с другой БД там сработает. С другим драйвером, типом полей.
Но тут - нет.

А почему его у Вас нет? Вы считаете это моя проблема или devart-ов?

А обязательно должен? С точки зрения программиста и решения задачи - вполне ваша.
Знаете как обойти эту ошибку? Нет. Не знаете. Ленитесь? Ленитесь.
Зачем оно вам? Платят вам за это? Нет. Ну и нафиг оно вам надо.

А то, что например TDBF может без проблем прочитать такую БД и предложить как вариант сменить компонент, ну если не знаете как обойти ошибку devart-ов или сделать вывод (какой уже сделали пара опытных людей), что это невозможно - вы не в силах?
В мануале не написали?

Вы этого не умели.

И вы тоже. Не работает. Не умеете.

О том, что у Вас база "некомплектная"

Всё то у вас некомплектное.

Знаете что хочу сказать - программист это не умение читать мануалы (это и обезьянка сможет), это ещё и умение думать.

Вы изначально построили диалог и утверждали, что вы умнее. Вы всё знаете, а я даже не читаю даже мануалов. Не надо так.