Прошу помощи! (Page 2 of 2)

Пожалуйста создайте отдельную тему для вопроса, также приложите проект.

andrey.yugay
рассмотрите возможность логгирования данных более простым и универсальным способом:
http://myvisualdatabase.com/forum/viewtopic.php?id=3642

andrey.yugay

я так понимаю это триггер срабатывает на удаление? тогда почему вы пишите NEW вместо OLD?

вместо NEW.id_st думаю можно написать подзапрос

(SELECT st.stName FROM st WHERE st.id=OLD.id_st)

В настройках кнопки Сохранить запись (Button1) удалите компонент ComboBox3, который вы видимо внесли туда по ошибке.

Дмитрий. доброго времени!
приобрели программу.
подскажите пожалуйста, что не так?:

procedure fMain_Button1_OnClick (Sender: string; var Cancel: boolean);
         
            //1// № вагона
            if arrStr[1] = '' then arrStr[1] := 'NULL';
           
            //2// Станция дислокации
            if arrStr[2] = '' then arrStr[2] := 'NULL';
           
            //3// индекс поезда
            if arrStr[3] = '' then arrStr[3] := 'NULL';
           
            //4// дата дислокации // приводим дату к формату, который необходим для записи в БД
            if arrStr[4]<>'' then // если данные есть
            sDate1 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[4])) + '"'
            else sDate1 := 'NULL'; // иначе значение NULL
           
            //5// операция
            if arrStr[5] = '' then arrStr[5] := 'NULL';
           
            //6// Станция назначения
            if arrStr[6] = '' then arrStr[6] := 'NULL';
           
            //7// код грузополучателя
            if arrStr[7] <> '' then arrStr[7] := ''''+ ReplaceStr(arrStr[7], '''', '''''') + ''''
            else arrStr[7] := 'NULL';

            //8// наименование грузополучателя
            if arrStr[8] <> '' then arrStr[8] := ''''+ ReplaceStr(arrStr[8], '''', '''''') + ''''
            else arrStr[8] := 'NULL';

            //9// станция отправления
            if arrStr[9] = '' then arrStr[9] := 'NULL';
           
            //10// дата отправления // приводим дату к формату, который необходим для записи в БД
            if arrStr[10]<>'' then // если данные есть
            sDate2 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[10])) + '"'
            else sDate2 := 'NULL'; // иначе значение NULL

            //11// груз
            if arrStr[11] = '' then arrStr[11] := 'NULL';
           
            //12// собственник
            if arrStr[12] = '' then arrStr[12] := 'NULL';
           
            //13// род
            if arrStr[13] <> '' then arrStr[13] := ''''+ ReplaceStr(arrStr[13], '''', '''''') + ''''
            else arrStr[13] := 'NULL';
           
            //14// № накладной
            if arrStr[14] = '' then arrStr[14] := 'NULL';
           
            //15// состояние
            if arrStr[15] = '' then arrStr[15] := 'NULL';

            //16// парк
            if arrStr[16] = '' then arrStr[16] := 'NULL';
           
            //17// код неисправности
            arrStr[17] := ReplaceStr(arrStr[17], ',', '.');
            if arrStr[17] = '' then arrStr[17] := 'NULL';
           
            //18// вес груза
            arrStr[18] := ReplaceStr(arrStr[18], ',', '.');
            if arrStr[18] = '' then arrStr[18] := 'NULL';
           
            //19// грузоподъемность вагона
            arrStr[19] := ReplaceStr(arrStr[19], ',', '.');
            if arrStr[19] = '' then arrStr[19] := 'NULL';

    // проверяем, для избежания дубликатов, данная проверка не обязательна, и зависит от вашей ситуации
    //sval := SQLExecute('SELECT id FROM currency WHERE (date = ' + sDate + ') AND (id_valute = ' +  ValuteID + ') AND (value = ' + arrStr[2] + ') ;');
    //if sval = '' then // если в переменной sval - пусто, значит SQL запрос ничего не вернул, и дубликата данных нет
   
    // с помощью SQL запрос вставляем данные в БД
    SQLExecute ('INSERT INTO t_data (num_wag, st_dislok, index_poezda, d_dislok, oper, st_naznach, code_poluchatelya, name_poluchatelya, st-otprav, d_otpravleniya, gruz, sobstven, rod, naklad, sostoyanie, park, neispr_code, ves, gruzopod) VALUES ('+ arrStr[1] +', '+ arrStr[2] +', '+ arrStr[3] +', '+ sDate1 +', '+ arrStr[5] +', '+ arrStr[6] +', '+ arrStr[7] +', '+ arrStr[8] +', '+ arrStr[9] +', '+ sDate2 +', '+ arrStr[11] +', '+ arrStr[12] +', '+ arrStr[13] +', '+ arrStr[14] +', '+ arrStr[15] +', '+ arrStr[16] +', '+ arrStr[17] +', '+ arrStr[18] +', '+ arrStr[19] +');');
   
    // выводим в компонент надписи, какое количество строк с данными обработано
    fMain.Label1.Caption := 'Загружено строк ' + IntToStr(i) + ' из ' + IntToStr(c);
   
    // необходимо, чтобы надпись в Label один обновилась
    Application.ProcessMessages;
     end;
          sl.Free; // уничтожаем объект, после работы с ним
          fMain.TableGrid1.dbUpdate; // заставляем TableGrid обновить данные
     end;
     OpenDialog.Free; // уничтожаем объект, после работы с ним
end;

Данные не грузятся, вообще ничего не происходит - кроме обновления таблицы(

с Ув. Андрей

Доброго. это я для сокращения текста убрал.
немного переделал, но результата 0.
проект во вложении + файл для загрузки

проблема еще в том, что в старой базе, где все работало, сейчас тоже не работает. не пойму, может что не так с обновлением?

с Ув. Андрей