БД Access + Delphi, найти ошибку в коде

@Олег11111 · Регистрация: 26.05.2014

Студворк — интернет-сервис помощи студентам

бд акцесс "склад"
связываю с делфи
Делаю кнопку "добавить товар"
на сайте каком-то подобное видел, делаю, опираясь на код с того сайта.
помогите, что за ошибка.
на скрине видно сколько полей и тд

@droider · 27.05.2014, 21:40

xxbesoxx, поле "№Nakladnoi" здесь ни при чем. Посмотрите внимательно на предыдущую строку.

@xxbesoxx · 27.05.2014, 22:02

Забирайте

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
  if (Trim(Edit1.Text)<>'') or (Trim(Edit2.Text)<>'') or (Trim(Edit3.Text)<>'') or
  (Trim(Edit4.Text)<>'') or (Trim(Edit5.Text)<>'') or
  (Trim(Edit6.Text)<>'')  then
  begin
   with ADOQuery1 do
   begin
    Insert;
       FieldByName('KodPrihoda').AsInteger:= StrToInt(Edit1.Text);
       FieldByName('¹Nakladnoi').AsInteger:=StrToInt(Edit2.Text);
       FieldByName('KodPostavshika').AsInteger:=StrToInt(Edit3.Text);
       FieldByName('KodTovara').AsInteger:=StrToInt(Edit4.Text);
       FieldByName('NameTovara').AsString:=Edit5.Text;
       FieldByName('KolvoTovara').AsInteger:=StrToInt(Edit6.Text);
       FieldByName('DatePostupleniyz').AsDateTime := DateTimePicker1.Date;
    Post;
    end
  end;
 except
  on e:Exception do
  end;
end;
end.

@Олег11111 · 28.05.2014, 13:08 **[ТС]**

у меня еще)) как сделать чтобы при нажатии кнопки, поля Edit автоматически очищались

@droider · 28.05.2014, 13:16

Олег11111,

Delphi
1
Edit.Clear;

Чтобы очистить все Edit'ы:

Delphi
1
2
3
4
5
6
var i: Integer;
begin
for i :=0 to form1.ComponentCount-1 do begin
    if form1.Components[i].ClassNameIs('TEdit') then TEdit(form1.Components[i]).Clear;
   end;
end;

@xxbesoxx · 28.05.2014, 13:29

Олег11111 Как вы думаете это вы должен читать книгу, тренировать и сделать ваши задачу! или мы должен все ваши задача выполнить ?
Возьмите книга любого автора и почитайте пожалуйста ! Это не оправдание что вы начинающий ! Вы просто пользуйтесь с этим словам что вы начинающий и хитро пользуйтесь всех ! На самом деле вы просто студент у которых не интересно программирование !
Для вас главное получит диплом и все ! Не где я не вижу что вы начинающий программист и питаетесь сам разобраться в коде .

@Олег11111 · 28.05.2014, 13:51 **[ТС]**

ну а что поделать)))

@xxbesoxx · 28.05.2014, 13:57

Книгу скачать и читать

@Олег11111 · 28.05.2014, 13:59 **[ТС]**

у вас нет таковой книги?
или методички. чтоб все подробно и конкретно было описано как аксес с делфи связать

@xxbesoxx · 28.05.2014, 14:01

Да вот даю оптом Литература Delphi

Новые блоги и статьи Все статьи Все блоги /
Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .
Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .	сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .

@Олег11111 0 / 0 / 0 Регистрация: 26.05.2014 Сообщений: 25

	БД Access + Delphi, найти ошибку в коде 27.05.2014, 13:45. Показов 1545. Ответов 28 Метки нет (Все метки) бд акцесс "склад" связываю с делфи Делаю кнопку "добавить товар" на сайте каком-то подобное видел, делаю, опираясь на код с того сайта. помогите, что за ошибка. на скрине видно сколько полей и тд Миниатюры 0

@droider 4893 / 2826 / 867 Регистрация: 04.10.2012 Сообщений: 10,278
	27.05.2014, 21:40
	xxbesoxx, поле "№Nakladnoi" здесь ни при чем. Посмотрите внимательно на предыдущую строку. 0

@Олег11111 0 / 0 / 0 Регистрация: 26.05.2014 Сообщений: 25
	28.05.2014, 13:08 [ТС]
	у меня еще)) как сделать чтобы при нажатии кнопки, поля Edit автоматически очищались 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,607
	28.05.2014, 13:29
	Олег11111 Как вы думаете это вы должен читать книгу, тренировать и сделать ваши задачу! или мы должен все ваши задача выполнить ? Возьмите книга любого автора и почитайте пожалуйста ! Это не оправдание что вы начинающий ! Вы просто пользуйтесь с этим словам что вы начинающий и хитро пользуйтесь всех ! На самом деле вы просто студент у которых не интересно программирование ! Для вас главное получит диплом и все ! Не где я не вижу что вы начинающий программист и питаетесь сам разобраться в коде . 0

@Олег11111 0 / 0 / 0 Регистрация: 26.05.2014 Сообщений: 25
	28.05.2014, 13:51 [ТС]
	ну а что поделать))) 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,607
	28.05.2014, 13:57
	Книгу скачать и читать 0

@Олег11111 0 / 0 / 0 Регистрация: 26.05.2014 Сообщений: 25
	28.05.2014, 13:59 [ТС]
	у вас нет таковой книги? или методички. чтоб все подробно и конкретно было описано как аксес с делфи связать 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,607
	28.05.2014, 14:01
	Да вот даю оптом Литература Delphi 0

БД Access + Delphi, найти ошибку в коде

Решение