Перенос БД с BDE на ...?

[_SERGEYX_]

Что-то не то ты делаешь.
Итак, в папку Test бросаю несколько файлов Paradox7
Создаю новую MySQL-базу MyTest. Пустую.
Запускаем конвертер.




И вот они таблички...

[palevg]

Вот у тебя на предпоследнем скрине есть

1 records inserted.
Creating index for 'test' ...
Total time ...

А у меня только
ESF_PScr.jpg

И всё.
После этого шагаем в phpMyAdmin и видим всё ту же пустую БД.

[_SERGEYX_]

Не знаю. Попробуй другой конвертер.
Или напиши свой. За час сваять можно.
Выведи имена всех таблиц в listBox через Session.
Подключись к MySQL базе. И далее циклом по листбоксу (пример):

DROP TABLE IF EXISTS <имя таблицы>;
CREATE TABLE `<имя таблицы>` (
// for i:=0 to TableFields.Count - 1 do
// определить тип и размер поля и циклично добавить строку, как строки ниже.
// Если где-то ошибешься, например с "default NULL", автоинкрементом или индесками
// - ничего страшного. Потом подправишь руками.
  `PVH` float default NULL,
  `Mel` float default NULL,
  `PVH04` float default NULL,
  `id` int(11) NOT NULL auto_increment,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM AUTO_INCREMENT=1 DEFAULT CHARSET=cp1251;

И выполнить запрос.

И далее либо составить и выполнить запрос....

INSERT INTO <имя таблицы> VALUES
// for i:= 0 to Table.RecordCoun-1 do
  (5382, 15, 'Упаковка', 1, 1),
  (5967, 27, 'Яблоня', 1, 824),
  (5968, 2, 'Белая корка', 1, 825);

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

Тип поля можно определить, например так (только пример)

var    i: Integer;
  F: TFieldDef;
  D: string;
begin
  with Table1 do
  begin
    for i := 0 to FieldDefs.Count - 1 do
    begin
      F := FieldDefs.Items[i];
      case F.DataType of
        ftUnknown: D := 'Unknown';
        ftString: D := 'String';
        ftSmallint: D := 'SmallInt';
        ftInteger: D := 'Integer';
        ftWord: D := 'Word';
        ftBoolean: D := 'Boolean';
        ftFloat: D := 'Float';
        ftCurrency: D := 'Currency';
        ftBCD: D := 'BCD';
        ftDate: D := 'Date';
        ftTime: D := 'Time';
        ftDateTime: D := 'DateTime';
        ftBytes: D := 'Bytes';
        ftVarBytes: D := '';
        ftBlob: D := 'BLOB';
        ftMemo: D := 'Memo';
        ftGraphic: D := 'Graphic';
      else
        D := '';
      end;
      ListBox1.Items.Add(F.Name + ', ' + D);
    end;
  end;
end;

[palevg]

Очередное спасибо _SERGEYX_ за такое внимание к моему вопросу
А по теме - для начала попробую другой конвертер (зачем изобретать велосипед??)

[palevg]

Попробовал. Но не другой, а поновее версию нашего ESF. Нашёл 6.0 (хотя, по секрету, искал 5.9.34 )
В общем, теперь хоть пытается конвертить, но хэппи-энда нету по другой причине:

Connecting SOURCE('D:\DataBases\License\Data') 'Paradox 5.x (*.db)' ...
Connecting DEST('License') 'MySQL Database' ...
=================================== ==========
Getting 'P_Founds' table structure ...
Get 'P_Founds' structure failed!
[800A0CB3] Объект или поставщик не может выполнить требуемую операцию.
=================================== ==========
Conversion completed!

Кстати, какие ещё есть программы-конверторы?

[palevg]

Возобновлю тему

Собственно, разобрался я и с ADO, и с MySQL.
ADO отпало по причине меньшей скорости работы (как оказалось - медленнее даже чем BDE!!)

Конвертнул базу с BDE на MySQL. Программу тоже отредактировал, с учётом отличий между этими СУБД.
И всё бы ничего, скорость выполнения большинства SQL-запросов хорошая. Но почему-то парочка запросов выполняется ну
просто по-черепашьи!!

Например: 2 таблицы - enterprs (предприятия) и orders (заявления предприятий).
В таблице enterprs около 2000 записей, в orders - около 3500.
SQL-запрос:

select * from enterprs
where Id in (select EnterpriseId from orders where State=0)
order by NameEnterpr

В BDE этот запрос выполняется за полсекунды, в MySQL же - секунд 7-8 !!!
Что за хрень?

[Serge_Bliznykov]

для начала попробуйте в таблицу orders добавить индекс по полю State
и уж обязательно (это в любой СУБД надо делать в обязательном порядке) все foreignkey должны иметь индексы - поэтому в таблицу enterprs добавить (если его там нет, конечно) индекс по полю Id

[palevg]

Индексы для поля Id есть в обоих таблицах (и enterprs, и orders). Это автоинкрементные ключи, и индексы там есть и без меня. На поле State в таблице orders индекс добавлю и отпишусь (по результату).

Насчёт foreignkey - их добавить не могу, т.к. в закладке "Foreign keys" пишет следующее: "The selected table engine (MyISAM) does not support foreign keys."
К слову: файлы БД конвертировал, используя предложенный движок по умолчанию - MyISAM.
Безболезненно могу конвертнуть по новой, но тогда скажите - какой движок использовать?


Не прошло и 10-ти минут, я уже готов отписаться (как и обещал )
Забегая наперёд - спасибо заслуженному модератору Serge_Bliznykov!!!
Теперь по-порядку. Сначала поставил индекс для поля State в таблице orders. Стало быстрее, но совсем ненамного...
Потом я "пошёл" в другую таблицу (licenze), которая тоже работает по принципу помощника для таблицы enterprs, и у неё тоже есть поле State, выполняющее похожую задачу. Поставил индекс для него. Но фак!! Запрос стал выполняться в разы медленнее!!!!
Убрал я индекс со State, решил поставить на поле EntID, что есть ссылка на Id в таблице enterprs. И тут попёрло ))))) Запрос выполнился, я и глазом моргнуть не успел!!
Теперь поставил индекс на аналогичное поле (EntID) в таблице orders - та же мегаположительная картина!!
Так что теперь осталось день-два (допишу изменения кода в связи с переходом от одной СУБД к другой) - и начнём официальный переход

[palevg]

Ещё немного помучаю наших гуру ))))

Всё переписал под MySQL, работает как часы.
Но! Пока что не сумел запустить прогу с компа в локальной сети
Сразу скажу - юзера на сервере сделал, разрешения ему установил. Но коннектиться не хочет хоть ты тресни!!
Что за подводные камни могут быть?