Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Импорт из Excel - Delphi БД

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi БД DateTimePicker1.Date http://www.cyberforum.ru/delphi-database/thread385020.html
Помогите плиз. Я выбираю в таблице даты в диапазоне от DateTimePicker1 по DateTimePicker2. Мне необходимо если нет записи в этом диапазоне то выводило сообщение, сообщение выводит, но при этом...
Delphi БД Проблема с транзакцией MySql + dbExpress Доброго времени суток! В процессе разработки появилась потребность в использовании транзакции, выбрал явный метод. И все бы хорошо но код: SQLQuery1.Active := False; SQLQuery1.SQL.Clear;... http://www.cyberforum.ru/delphi-database/thread384951.html
Delphi БД База данных (визуальное программирование)
фирма СОЛО выпускает окна и двери необходимо написать такую программу чтобы она облегчала работу менеджерам этой фирмы СОЛО, считала счета, в какой срок будет готов заказ, имена заказчиков, скольк...
База данных в DELPHI Delphi БД
в общем задание состоит из следущего условия!!! Фирма "Соло" выпускает окна и двери!нужно написать программу выводящую расчеты как позанно на изображениях!!!!НАРОД ПОМОГИТЕ ОЧЕНЬ НАДО!!!!
Delphi БД Восстановление таблиц paradox http://www.cyberforum.ru/delphi-database/thread384416.html
Возможно ли как нибудь восстановить данные таблици?
Delphi БД Как отловить ошибки, возникающие при работе с MySQL? возможно ли как нибудь из делфи отловить ошибки возникающие при работе с MYSQL, к примеру, при ошибке удаления/дампа, если сама работа выполняется из консоли mysql подробнее

Показать сообщение отдельно
zumer
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 18
24.11.2011, 16:03  [ТС]
Всем большое спасибо. После хождения по мукам решил пока остаться на Access (т.к. Access более-менее знаком). Импортирую всетаки с использованием вариантного массива, но столкнулся с проблемой при импорте: необходимо отловить исключение на вставку повторяющегося значения в индексируемом поле для обновления данных этой записи. Пробую следующим методом:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ADOQuery1.Insert;
    ADOQuery1.FieldByName('Поле1').AsString:=RangeMatrix[R,1];
    ADOQuery1.FieldByName('Поле2').AsDateTime := StrToDate(StringReplace(RangeMatrix[R,2], '''', '', [rfReplaceAll, rfIgnoreCase])); // замена апострофа
    ADOQuery1.FieldByName('Поле3').AsString:=RangeMatrix[R,3];
    ADOQuery1.FieldByName('ÑóììГ* äîëãГ*').AsCurrency :=StrToFloat(StringReplace(StringReplace(RangeMatrix[R,9], '''', '', [rfReplaceAll, rfIgnoreCase]), '.', ',', [rfReplaceAll])); // замена точки
    ADOQuery1.Active:= True;
    try                                     // пытаюсь отловить исключение
    AdoQuery1.Post;
      except
      on E : EDatabaseError
          do
          if E.Message = 'Key violation'
          then
          begin
 
          end;
          else Raise;
    end;
Подскажите пожалуйста как правильно отловить и каким образом обновить данные.
P.S. Прошу отнестись с пониманием т.к. это мой первый опыт работы с Delphi.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru