Запись не вставляется в конец файла доступа с delphi

Question

Im чтение одной базы данных Access с ADO и копирования данных в другую с той же структурой. Моя проблема в том, что когда-то, он не вставляет в конец файла.

DM1.ADOConnectionReadAccess.ConnectionString := 
     'Provider=Microsoft.Jet.OLEDB.4.0;' + 'User ID=Admin;' + 
     'Data Source=' + Directory + 'Courbe\Courbe Actuel.mdb' + ';' + 
     'Mode=Share Deny None;Extended Properties="";' + 'Jet OLEDB:Engine Type=5;'; 
    DM1.ADOConnectionReadAccess.Connected := true; 

    DM1.ADODataSetReadAccess.CommandText := 'select * from Courbe_Reservoir order by DateHeure'; 
    DM1.ADODataSetReadAccess.Active := true; 

Итак, я прочитал свою базу данных и закажу ее по дате. Теперь я должен сделать некоторые изменения в данных, когда я скопирую их в новую базу данных.

DM1.ADOConnectionCopyExcel.ConnectionString := 
     'Provider=Microsoft.Jet.OLEDB.4.0;' + 
     'User ID=Admin;' + 
     'Data Source=' + Directory + 'Courbe\Part of curve.mdb' + ';' + 
     'Mode=Share Deny None;Extended Properties="";' + 
     'Jet OLEDB:Engine Type=5;'; 
    DM1.ADOConnectionCopyExcel.Connected := true; 


    while not DM1.ADODataSetReadAccess.Eof do 
    begin 
     Date2 := DM1.ADODataSetReadAccess.FieldByName('DateHeure').AsDateTime; 
     DernierDebit := DernierDebit + DM1.ADODataSetReadAccess.FieldByName('DebitRes').AsFloat/1000; 


     DM1.ADOCommandCopyExcel.CommandText := 
           'INSERT INTO Courbe_Reservoir' + ' VALUES (:DateHeure1, ' + 
           ':Niveau, ' +  //niveau 
           ':DebitRes, ' +  //débit entrée 
           ':PH, ' +   //ph 
           ':Chlore, ' +  //Chlore 
           ':Turbidite, ' +  //Turbidité 
           ':Temp, ' +   //température 
           '0, ' +    //Consommation l/min 
           '0, ' +    //Log 
           ':DernierDebit, ' + //Consommation journalière 
           '0, 0, 0, '''', '''', ''''' + ')'; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('DateHeure1').Value := Date1; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('Niveau').Value := DM1.ADODataSetReadAccess.FieldByName('Niveau').AsFloat; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('DebitRes').Value := DM1.ADODataSetReadAccess.FieldByName('DebitRes').AsFloat; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('PH').Value := DM1.ADODataSetReadAccess.FieldByName('PH').AsFloat; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('Chlore').Value := DM1.ADODataSetReadAccess.FieldByName('Chlore').AsFloat; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('Turbidite').Value := DM1.ADODataSetReadAccess.FieldByName('Turbidite').AsFloat; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('Temp').Value := DM1.ADODataSetReadAccess.FieldByName('Temp').AsFloat; 
     DM1.ADOCommandCopyExcel.Parameters.ParamByName('DernierDebit').Value := DernierDebit; 
     DM1.ADOCommandCopyExcel.Execute; 
    end; 

Когда я проверить новую базу данных, я получил следующий результат на изображении:

Как вы можете видеть, я получил разрыв во время, потому что я получил запись на каждую минуту. Отсутствующая запись на изображении находится в другом месте в базе данных.

В конце концов, я хочу знать, почему его не показывают в том же порядке, в который я их вставляю. Суть в том, что я хочу экспортировать новую базу данных доступа (.mdb) в файл excel с помощью команды export, но команда экспорта, похоже, берет файл доступа и копирует его, чтобы преуспеть, как есть, поэтому его невозможно заказать, поскольку экспорт. Я не хочу повторять все записи снова с помощью select и вставлять его в excel один за другим.

Прямо сейчас у меня есть файл с почти 180 000 записями, и мне нужно разделить его в месяц, поэтому новая база данных будет содержать около 44 000 записей.

Спасибо за вашу помощь

Answer 1

место вставки не определенно в большинстве баз данных - ядро ​​базы данных имеет свободу для хранения данных, где она считает наиболее целесообразной. Он может захотеть добавить записи в конец таблицы, но может также выбрать повторное использование пространства, освобожденного ранее удаленными записями.

Если вы хотите получить результаты в определенном порядке, укажите, что в вашем запросе на выбор, как правило, включив предложение ORDER BY.

Answer 2

Я считаю, что записи должны появляются в "порядке", которые вы вставляли в силу из-за природы файлов .mdb (в многопользовательском db это было бы хаосом, чтобы быть чем-то еще!). Попробуйте добавить номер автонабора, если у вас его еще нет, вы можете дважды проверить, после чего был назначен порядок автонабора.

Я поместил порядок в кавычки, потому что заказ подразумевается некоторым полем (например, autonum). Если нет autonum, мы не можем ожидать результатов каким-либо конкретным образом.