Перенос базы данных Sql на MS access

@крутой малай · Регистрация: 27.04.2016

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

Здравствуйте ребят.Такая проблемка после экспорта базы данных с sql на акссес программа на (Delphi) выдает ошибки .Подскажите как быть.Вот непосредственно сам архив.проект.7z

@крутой малай · 02.06.2017, 00:14 **[ТС]**

Сообщение от YuryK

С нею любой справится

Нет там просто проблемка нарисовалась(.Вобщем до 4 формы все нормально в бд добавляет.С 5 формы делает вид что добавляет ,а в бд не сохраняется .и поэтому на 6 форме уже нет данных и поэтому выкидывает ошибкупроект1.7z

@YuryK · 02.06.2017, 00:34

а где здесь код?

Delphi
1
 

Сообщение от крутой малай

делает вид что добавляет ,а в бд не сохраняется

а где там сохранение? там только проверяются "справочники" и все. Никакие исполнители никуда не записываются.
никаких Update не видно. и Post тоже. Заполняется почему то стринггрид и всё.

@крутой малай · 02.06.2017, 00:36 **[ТС]**

Сообщение от YuryK

а где здесь код?

Это на какой форме?

@YuryK · 02.06.2017, 00:39

я имел в виду

Delphi
1
2
3
4
5
6
procedure TForm5.ToolButton1Click(Sender: TObject);
...
 if bludi.RecordCount=0 then
  begin
????????????????
  end;

@крутой малай · 02.06.2017, 00:44 **[ТС]**

YuryK,

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
procedure TForm5.ToolButton1Click(Sender: TObject);
begin
 if bfname.Text='' then
  begin
   messagedlg('Не все поля заполнены. Сохранение невозможно.',mterror,[mbok],0);
   exit
  end;
 if bnname.Text='' then
  begin
   messagedlg('Не все поля заполнены. Сохранение невозможно.',mterror,[mbok],0);
   exit
  end;
 if boname.Text='' then
  begin
   messagedlg('Не все поля заполнены. Сохранение невозможно.',mterror,[mbok],0);
   exit
  end;
 if bdol.Text='' then
  begin
   messagedlg('Не все поля заполнены. Сохранение невозможно.',mterror,[mbok],0);
   exit
  end;
 
 post.Filtered:=false;
 post.Filter:='rregnum='+quotedstr(data.Cells[0,data.Row]);
 post.Filtered:=true;
 adt.Filtered:=false;
 adt.Filter:='dtype='+quotedstr(bdol.Text);
 adt.Filtered:=true;
 if adt.RecordCount=0 then
  begin
   cr.CommandText:='insert into dol (dtype) values('+quotedstr(bdol.Text)+')';
   cr.Execute;
   adt.Active:=false;
   adt.Active:=true;
  end;
 sol.Filtered:=true;
 if sol.RecordCount=0 then
  begin
   cr.CommandText:='insert into soldiers (sfname,snname,soname) values('+quotedstr(bfname.Text)+', '+quotedstr(bnname.Text)+', '+quotedstr(boname.Text)+')';
   cr.Execute;
   sol.Active:=false;
   sol.Active:=true
  end;
 bludi.Active:=false;
 bludi.Filtered:=false;
 bludi.CommandText:='select * from who_whom_why where wwwsid='+quotedstr(sol.Recordset.Fields[0].get_value())+' and wwwdid='+quotedstr(adt.Recordset.Fields[0].get_value())+' and wwwrid='+quotedstr(post.Recordset.Fields[0].get_value());
 bludi.Active:=true;
 if bludi.RecordCount=0 then
  begin
 
  end;
 data.Cells[5,data.Row]:=data.Cells[5,data.Row]+bfname.Text+' ';
 bfname.Text:='';
 bnname.Clear;
 boname.Clear;
 bdol.Text:=''
end;
 
procedure TForm5.ToolButton2Click(Sender: TObject);
begin
 bfname.Text:='';
 bnname.Clear;
 boname.Clear;
 bdol.Text:=''
end;
 
procedure TForm5.ToolButton3Click(Sender: TObject);
begin
 post.Filtered:=false;
 post.Filter:='rregnum='+quotedstr(data.Cells[0,data.Row]);
 post.Filtered:=true;
 cr.CommandText:='delete from who_whom_why where wwwrid='+quotedstr(post.Recordset.Fields[0].get_value());
 cr.Execute;
 data.Cells[5,data.Row]:='';
 bfname.Text:='';
 bnname.Clear;
 boname.Clear;
 bdol.Text:=''
end;
 
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
 form5.Close
end;
 
procedure TForm5.Panel1Click(Sender: TObject);
begin
 
end;
 
end.

этого там нету что ли??

Новые блоги и статьи Все статьи Все блоги /
Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? 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 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .

@крутой малай 0 / 0 / 0 Регистрация: 27.04.2016 Сообщений: 71

	Перенос базы данных Sql на MS access 29.05.2017, 15:54. Показов 4737. Ответов 64 Метки нет (Все метки) Здравствуйте ребят.Такая проблемка после экспорта базы данных с sql на акссес программа на (Delphi) выдает ошибки .Подскажите как быть.Вот непосредственно сам архив.проект.7z 0