Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
2 из 2 « 1 2
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
1 / 1 / 0
Регистрация: 12.06.2012
Сообщений: 18
Delphi 6-7

Крушение программы после выполнения запроса SQL из базы данных

15.01.2020, 08:12. Показов 2822. Ответов 22
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Доброго времени суток, мудрые форумчане, сижу вторые сутки на форумах, да за учебниками толковыми, но нужен Ваш взгляд на проблему, ибо мой глаз уже замылился.
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250

unit Cotr;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, ComCtrls, DB, ExtCtrls, StdCtrls, Buttons, ExtDlgs,
  DBTables, Mask, JPEG;
 
type
  TCotrForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    PhotoImage: TDBImage;
    Bevel1: TBevel;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Bevel2: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    SotrTable: TTable;
    DataSource1: TDataSource;
    OpenPictureDialog1: TOpenPictureDialog;
    DopolnTable: TTable;
    DolznostTable: TTable;
    ObrazovanTable: TTable;
    FamilyTable: TTable;
    PensFondTable: TTable;
    OkBitBtn: TBitBtn;
    CloseBitBtn: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    BirthDayPicker: TDateTimePicker;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DayprimPicker: TDateTimePicker;
    DayisnPicker: TDateTimePicker;
    DayyvolPicker: TDateTimePicker;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    YdostDatePicker: TDateTimePicker;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label14: TLabel;
    DateNachOtpPicker: TDateTimePicker;
    DateOkOtpPicker: TDateTimePicker;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Bevel7: TBevel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    Bevel8: TBevel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DateChildPicker1: TDateTimePicker;
    Label39: TLabel;
    Label40: TLabel;
    DBEdit24: TDBEdit;
    Label41: TLabel;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    Label42: TLabel;
    DateChildPicker3: TDateTimePicker;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DateChildPicker2: TDateTimePicker;
    Label49: TLabel;
    Label50: TLabel;
    DBEdit30: TDBEdit;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    DateSuprPicker: TDateTimePicker;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DolznostTableIDDolz: TAutoIncField;
    DolznostTableDolz: TStringField;
    DopolnTableTabNomer: TAutoIncField;
    DopolnTableIDDolz: TFloatField;
    DopolnTableDayPrim: TDateField;
    DopolnTableDayIsn: TDateField;
    DopolnTableDayYvol: TDateField;
    DopolnTableDateNachOtp: TDateField;
    DopolnTableDateOkOtp: TDateField;
    DopolnTableOsnov: TStringField;
    SotrTableTabNomer: TAutoIncField;
    SotrTableSurName: TStringField;
    SotrTableFirstName: TStringField;
    SotrTableOtchName: TStringField;
    SotrTableBirthday: TDateField;
    SotrTableFoto: TBlobField;
    SotrTableYdostNomer: TFloatField;
    SotrTableYdostVidan: TStringField;
    SotrTableYdostDate: TDateField;
    SotrTablePHH: TFloatField;
    SotrTableIDPensdogovor: TFloatField;
    SotrTableSik: TFloatField;
    SotrTableHomeTel: TFloatField;
    SotrTableSotTel: TFloatField;
    SotrTableAdress: TStringField;
    FamilyTableTabNomer: TAutoIncField;
    FamilyTableFamSupr: TStringField;
    FamilyTableNameSupr: TStringField;
    FamilyTableOtchSupr: TStringField;
    FamilyTableDateSupr: TDateField;
    FamilyTableFamChild1: TStringField;
    FamilyTableNameChild1: TStringField;
    FamilyTableOtchChild1: TStringField;
    FamilyTableDateChild1: TDateField;
    FamilyTableFamChild2: TStringField;
    FamilyTableNameChild2: TStringField;
    FamilyTableOtchChild2: TStringField;
    FamilyTableDateChild2: TDateField;
    FamilyTableFamChild3: TStringField;
    FamilyTableNameChild3: TStringField;
    FamilyTableOtchChild3: TStringField;
    FamilyTableDateChild3: TDateField;
    ObrazovanTableTabNomer: TAutoIncField;
    ObrazovanTableObrazov: TStringField;
    ObrazovanTableScholName: TStringField;
    ObrazovanTableSpez: TStringField;
    ObrazovanTableKvalif: TStringField;
    ObrazovanTableRazrad: TStringField;
    ObrazovanTableStaz: TFloatField;
    ObrazovanTableStazob: TFloatField;
    ObrazovanTableStaznepr: TFloatField;
    PensFondTableIDPensDogovor: TAutoIncField;
    PensFondTablePensDogovor: TStringField;
    procedure OpenBitBtnClick(Sender: TObject);
    procedure ClearBitBtnClick(Sender: TObject);
    procedure CloseBitBtnClick(Sender: TObject);
    procedure OkBitBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  CotrForm: TCotrForm;
 
implementation
uses DBModul;
{$R *.dfm}
 
procedure TCotrForm.OpenBitBtnClick(Sender: TObject);
begin
if OpenPicturedialog1. Execute then
PhotoImage.Picture.LoadFromFile (OpenPictureDialog1. FileName);
end;
 
procedure TCotrForm.ClearBitBtnClick(Sender: TObject);
begin
PhotoImage. Picture. LoadFromFile (ExtractFileDir(Application. ExeName)+'\'+'blank.bmp');
end;
 
procedure TCotrForm. FormCreate (Sender: TObject);
begin
Sotrtable.Append;
end;
 
procedure TCotrForm.OkBitBtnClick(Sender: TObject);
begin
SotrTable.Post;
Sotrtable.Append;
end;
 
procedure TCotrForm.CloseBitBtnClick(Sender: TObject);
begin
SotrTable.Cancel;
Sotrtable.Append;
end;
 
procedure TCotrForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SotrTable. Close;
end;
 
end.
Суть в чем. Подключился к базе, раскидал связи, записал в нее данные через DBEdit, DBLookupCombobox, DBImage. Для проверки, кидал на форму DBGrid, данные есть.

SQL
1
2

SELECT Sotrudnik.TabNomer, Sotrudnik.SurName, Sotrudnik.FirstName, Sotrudnik.OtchName, Sotrudnik.Birthday, Sotrudnik.Foto, Sotrudnik.YdostNomer, Sotrudnik.YdostVidan, Sotrudnik.YdostDate, Sotrudnik.PHH, Sotrudnik.Sik, Sotrudnik.HomeTel, Sotrudnik.SotTel, Sotrudnik.Adress, Dopoln.DayPrim, Dopoln.DayIsn, Dopoln.DayYvol, Dopoln.DateNachOtp, Dopoln.DateOkOtp, Dopoln.Osnov, Dolznost.Dolz, PensFond.PensDogovor, Obrazovan.Obrazov, Obrazovan.ScholName, Obrazovan.Spez, Obrazovan.Kvalif, Obrazovan.Razrad, Obrazovan.Staz, Obrazovan.Stazob, Obrazovan.Staznepr, Family.FamSupr, Family.NameSupr, Family.OtchSupr, Family.DateSupr, Family.FamChild1, Family.NameChild1, Family.OtchChild1, Family.DateChild1, Family.FamChild2, Family.NameChild2, Family.OtchChild2, Family.DateChild2, Family.FamChild3, Family.NameChild3, Family.OtchChild3, Family.DateChild3
FROM Sotrudnik, Dopoln, Dolznost, PensFond, Obrazovan, Family
Создал запрос Query для вывода отчета в другую форму, однако при выполнении его, данные не выводятся TQRDBText, юзес прописан, дата сет выбран! Периодически выскакивает ошибка крушения access violence. Как быть в этой ситуации? Где искать истину? Отладчик ругается на DopolnTable, но там все ок.
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

unit Otchet1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRCtrls, QuickRpt, ExtCtrls;
 
type
  TOtchetForm1 = class(TForm)
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    PageHeaderBand1: TQRBand;
    QRSysData1: TQRSysData;
    PageFooterBand1: TQRBand;
    DetailBand1: TQRBand;
    QRDBImage1: TQRDBImage;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  OtchetForm1: TOtchetForm1;
 
implementation
uses DBModul;
 
{$R *.dfm}
 
end.
Исходники прилагаю, БД создавал через DataDesktop.
Вложения
Тип файла: rar Prog.rar (1.48 Мб, 0 просмотров)
0
Лучшие ответы (1)
Сообщение: #14179676
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 15.01.2020, 08:12
Ответы с готовыми решениями:

Вывод 3 столбцов с условиями после выполнения SQL запроса
Помогите пожалуйста сделать запрос. with qqry do begin SQL.Clear; SQL.Add('SELECT SUM(PRICE) FROM OOC WHERE...

Обновление sql-й базы данных после запроса на добавление
В общем такая беда: пока что делаю без всяких датасетов и т.д просто есть запрос на добавление : commanda = new...

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

22
66 / 9 / 4
Регистрация: 09.01.2018
Сообщений: 282
25.01.2020, 10:34
Студворк — интернет-сервис помощи студентам
Я не гуру, но меня учили, что WHERE исполняется над рекордсетом, ранее сформированным строками запроса выше. Т.е. в данном случае будет сформирована... не знаю как и назвать... а уже на это наложится фильтр и будет сформирован выходной рекордсет. Если это действительно так, то разница с JOIN-ами очевидна.
0
231 / 163 / 54
Регистрация: 26.10.2014
Сообщений: 928
25.01.2020, 15:14
vpivo, ну да, вы правы
для запрос вида
SQL
1

SELECT * FROM TABLE WHERE code > 25
сложно будет написать альтернативу с использованием join
0
66 / 9 / 4
Регистрация: 09.01.2018
Сообщений: 282
25.01.2020, 18:32
Меня удивляет развивающаяся способность к софизму везде и всюду. Посмотрите на вопрос автора - там запрос к нескольким взаимосвязанным таблицам и условие отбора по сути отражает СВЯЗИ между таблицами, а не фильтр выходного рекордсета, как у Вас.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 25.01.2020, 18:32
Помогаю со студенческими работами здесь

Узнать количество строк после выполнения sql запроса
Подскажите функцию которая бы возвращала, количество строк которые возвратил SQL запрос.

Подобрать для базы данных sql 4 запроса
Ребята создать 4 наиболее нужных и подходящих для этой бд sql запроса в базе данных на C# очень нужно

Чтение из базы данных (посредством SQL запроса)
Требуется организовать запрос записывающий данные в dataGridView (в виде таблицы), с определённой выборкой (например всё строки у которых...

Ошибка выполнения SQL запроса "Несоответствие типов данных в выражении условия отбора."
Public con As OleDb.OleDbConnection Public SqlCom As OleDb.OleDbCommand Public DT As New Data.DataTable Public DA As...

Во время установки программы не создаются базы данных SQL
Прошу помочь с установкой баз данных Sql. В процессе установки программы возникают следующие ошибки скрины приложены. Прога специальная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
2 из 2 « 1 2
Опции темы

Новые блоги и статьи
[golang] Breadth-First Search
alhaos 19.05.2026
BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .
[golang] Алгоритм «Хак Госпера»
alhaos 17.05.2026
Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .
Рисование бинарного древа до 6-го колена на js, svg.
russiannick 17.05.2026
<svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
 FSharp: interface of module
DevAlt 16.05.2026
Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов.
russiannick 14.05.2026
Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов
alhaos 12.05.2026
По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru