Загрузить даные в SQL

@teodorklaus · Регистрация: 10.08.2012

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

у меня есть в SQL таблица с данными TEXT не могу зделать ввод данных в эту таблицу.

Текст ввода

C++
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
void __fastcall TfAddHistory::BitBtn2Click(TObject *Sender)
{
AnsiString SQLQuery, SQLSelect;
 
SQLQuery="insert into CaseHistory values ('";
/*1*/SQLQuery+=Edit1->Text.Trim();
SQLQuery+="','";
/*2*/SQLQuery+=Edit2->Text.Trim();
SQLQuery+="','";
/*3*/SQLQuery+=Edit3->Text.Trim();
SQLQuery+="','";
/*4*/SQLQuery+=Edit4->Text.Trim();
SQLQuery+="','";
/*5*/SQLQuery+=Edit5->Text.Trim();
SQLQuery+="','";
/*6*/SQLQuery+=Edit6->Text.Trim();
SQLQuery+="','";
/*7*/SQLQuery+=Edit7->Text.Trim();
SQLQuery+="','";
/*8*/SQLQuery+=Edit8->Text.Trim();
SQLQuery+="','";
/*9*/SQLQuery+=Edit9->Text.Trim();
SQLQuery+="','";
/*10*/SQLQuery+=Edit10->Text.Trim();
SQLQuery+="','";
/*11*/SQLQuery+=Edit11->Text.Trim();
SQLQuery+="','";
/*12*/SQLQuery+=Edit12->Text.Trim();
SQLQuery+="','";
/*13*/SQLQuery+=Edit13->Text.Trim();
SQLQuery+="','";
/*14*/SQLQuery+=Edit14->Text.Trim();
SQLQuery+="','";
/*15*/SQLQuery+=Edit15->Text.Trim();
SQLQuery+="','";
/*16*/SQLQuery+=Edit16->Text.Trim();
SQLQuery+="','";
/*17*/SQLQuery+=Memo1->Text.Trim();
SQLQuery+="','";
/*18*/SQLQuery+=Memo2->Text.Trim();
SQLQuery+="','";
/*19*/SQLQuery+=Edit17->Text.Trim();
SQLQuery+="','";
/*20*/SQLQuery+=Edit18->Text.Trim();
SQLQuery+="','";
/*21*/SQLQuery+=Edit19->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo3->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo4->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo5->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo6->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo7->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo8->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo9->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo10->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo11->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo12->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo13->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo14->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo15->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo16->Text.Trim();
SQLQuery+="')";
 
 
DataModule2->ADOQuery1->Active=false;
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add(SQLQuery);
try {
DataModule2->ADOQuery1->ExecSQL();
Application->MessageBox("Нову історію хвороби додано!", MB_OK);
}
catch(...) {
Application->MessageBox("Не вдалося додати нову історію хвороби!", MB_OK);
}
DataModule2->ADOQuery1->Active=false;
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("Select * from CaseHistory");
DataModule2->ADOQuery1->Active=true;
 
 
if (ComboBox1->Visible == true) {
SQLQuery+=ComboBox1->Text.Trim();
SQLQuery+="','";
}
else {
SQLQuery+=Edit4->Text.Trim();
SQLQuery+="','";
}
 
if (ComboBox2->Visible == false) {
SQLQuery+=Edit2->Text.Trim();
SQLQuery+="','";
}
else {
SQLQuery+=ComboBox2->Text.Trim();
SQLQuery+="','";
}
 
}

Текст таблицы SQL

SQL
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
DROP TABLE CaseHistory
CREATE TABLE CaseHistory(
Number_Case_History VARCHAR(5) PRIMARY KEY, /* Номер історії хвороби */
Type_of_animal VARCHAR(20), /* Вид тварини */
Alias VARCHAR(15), /* Кличка */
ID_nomer VARCHAR(12),  /* ID номер тварини */
Sex VARCHAR(2), /* Стать */
Age VARCHAR(5), /*Вік тварини*/ 
Signs text, /*Масть прикмети*/
Breed_Direction text, /*Порода напрям*/
Weight_Animals VARCHAR(5), /*Маса тварини*/
Who_Owns_The_Animal text, /*Кому тварина належить*/ 
Phone_Number text, /*Номер телефону*/
Adress text, /* Адреса */
Date_And_Time_Clinic text, /*Дата і час надходження тварини в клініку*/
The_Diagnosis_Of_Previous text, /*Діагноз попередній*/
Diagnosis_final text, /*Діагноз остаточний*/
The_Diagnosis_Anatomy text, /*Діагно паталого-анатомічний*/
Anamnesis_Vitae text,  /* Утримання, догляд, годівля та повноцінність раціону, напування, вагітність, час останіх родів, епізоотичний та санітарній стан господарства. */
Anamnesis_morbi text, /* Коли захворіла тварина, ознаки хвороби, умови, при яких захворіла тварина, чи хворіла раніше, хворіє одна чи декілька тварин, хто і як лікував, результати лабораторних досліджень крові, сечі та ін. */
temperature VARCHAR(4), /* Температура */
Pulse VARCHAR(4), /* Пульс */
Respiration VARCHAR(4), /* Дихання */
Habitus text, /* Положення тіла, вгодованість, будова тіла, конституція,  темперамент, норов.*/
Mucous_membrane text, /* Слизові оболонки - очей, носа, губ, ротової порожнини, піхви : виділення, колір, вологість */ 
Skin_covering text, /* Шкіряний покрив - волосся, шерсть, щетина, перо, пух. */
Skin text, /* Шкіра - колір, запах, вологість, еластичність, температура, поверхня шкіри, набряки */
lymph_nodes text, /* Лімфатичні вузли - назва лімфовузла, наявність набряків і пошкоджень шкіри в ділянці лімфовузлів, розміри форма, характер поверхні, рухливість, консистенція, болючість, температура. */
circulatory_system text, /* Система органів кровобігу - серцева ділянка,тони серця,наявність ендокардіальних і перикардіальних шумів,характер пульсу,висота артеріального і кров'яного тиску. */
respiratory_system text, /* Система органів дихання - носове витікання,видихуване повітря,ніздрі,слизова оболонка носової порожнини,додаткові порпожнини,гортань і трахея, щитовидна залоза,кашель,грудна клітка,дихальні рухи,шуми,додаткові дослідження. */
digestive_system text, /* Система органів травленя - апетит,ротова порожнина,органи травлення(стравохід,шлунок,тощо),кал,дефекація,ректальне дослідження,результати пальпації кищечнику. */
urinary_system text, /* Система сечостатевих органів - сечовиділення,нирки,сечоводи,сечовий міхур,уретра,сеча. */
nervous_system text, /* Нервова система - стан тварини,череп,хребет,органи чуття,чутливість шкіри,рухова сфера,поверхневі рефлекси,глибокі рефлекси. */
system_endocrine_organs text, /* Система ендокринних органів. */
organs_of_movement text, /* Органи руху. */  
blood_tests text, /* Дослідження крові - відносна щільність,гематокритна величина,к-сть лейкоцитів,лейкограма і її характеристика. */
X_ray_examinations text, /* Рентгенологічні дослдження. */
other_studies text, /* Результати інших досліджень. */
/*date varchar(12), /* дата. */
hours VARCHAR(12), /* години. */
temperatures VARCHAR(4), /* температура тіла тварини */
pulses VARCHAR(4), /* пульс тварини */
breathing VARCHAR(4), /* дихання тварини */
disease text, /* Перебіг хвороби */
on_hold text, /* Режим утримання,лікування,дієта */
notes text */) /* Примітки.До друку */

The_Immortal · 10.08.2012, 18:15

teodorklaus, Вы уверены, что у Вас совпадает число значений запроса и число результирующих полей? Если Вы явно не указываете поля, а просто указываете имя таблицы, то извольте указывать в таком случае все поля из таблицы. Если же нужны выборочные поля, то уточняйте их после имени таблицы:

C++
1
2
SQLQuery="insert into CaseHistory (Signs text, Breed_Direction text, ...) values ('";
...

@Bit_Man · 10.08.2012, 18:27

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

/*1*/SQLQuery+=Edit1->Text.Trim();
SQLQuery+="','";
/*2*/SQLQuery+=Edit2->Text.Trim();
SQLQuery+="','";
/*3*/SQLQuery+=Edit3->Text.Trim();
SQLQuery+="','";
/*4*/SQLQuery+=Edit4->Text.Trim();
SQLQuery+="','";
/*5*/SQLQuery+=Edit5->Text.Trim();
SQLQuery+="','";
/*6*/SQLQuery+=Edit6->Text.Trim();
SQLQuery+="','";
/*7*/SQLQuery+=Edit7->Text.Trim();
SQLQuery+="','";
/*8*/SQLQuery+=Edit8->Text.Trim();
SQLQuery+="','";
/*9*/SQLQuery+=Edit9->Text.Trim();
SQLQuery+="','";
/*10*/SQLQuery+=Edit10->Text.Trim();
SQLQuery+="','";
/*11*/SQLQuery+=Edit11->Text.Trim();
SQLQuery+="','";
/*12*/SQLQuery+=Edit12->Text.Trim();
SQLQuery+="','";
/*13*/SQLQuery+=Edit13->Text.Trim();
SQLQuery+="','";
/*14*/SQLQuery+=Edit14->Text.Trim();
SQLQuery+="','";
/*15*/SQLQuery+=Edit15->Text.Trim();
SQLQuery+="','";
/*16*/SQLQuery+=Edit16->Text.Trim();
SQLQuery+="','";
/*17*/SQLQuery+=Memo1->Text.Trim();
SQLQuery+="','";
/*18*/SQLQuery+=Memo2->Text.Trim();
SQLQuery+="','";
/*19*/SQLQuery+=Edit17->Text.Trim();
SQLQuery+="','";
/*20*/SQLQuery+=Edit18->Text.Trim();
SQLQuery+="','";
/*21*/SQLQuery+=Edit19->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo3->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo4->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo5->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo6->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo7->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo8->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo9->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo10->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo11->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo12->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo13->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo14->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo15->Text.Trim();
SQLQuery+="','";
SQLQuery+=Memo16->Text.Trim();

И куда их столько?!

Может цикл сделаешь?!

The_Immortal · 10.08.2012, 19:02

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

И куда их столько?! Может цикл сделаешь?!

Кстати, логичное замечание.

Можно например вот так (на примере Edit-ов):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    AnsiString SQLQuery = "insert into MyTable values (";
 
    for (int i = 0; i < Form1->ComponentCount; i++) {
        TEdit* edit;
        edit = dynamic_cast<TEdit*>(Components[i]);
        if (edit)
            SQLQuery += "'" + edit->Text + "',";
    }
 
    SQLQuery.Delete(Sq.Length(), 1);
    SQLQuery+= ')';
 
    DataModule2->ADOQuery1->Close();
    DataModule2->ADOQuery1->SQL->Clear();
    DataModule2->ADOQuery1->SQL->Add(SQLQuery);
    DataModule2->ADOQuery1->ExecSQL();

@Bit_Man · 10.08.2012, 19:12

наименование полей не забудь и

C++
1
2
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add(SQLQuery);

можно заменить

C++
1
DataModule2->ADOQuery1->SQL->Text = SQLQuery;

@teodorklaus · 14.08.2012, 12:19 **[ТС]**

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

Кстати, логичное замечание.

Можно например вот так (на примере Edit-ов):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    AnsiString SQLQuery = "insert into MyTable values (";
 
    for (int i = 0; i < Form1->ComponentCount; i++) {
        TEdit* edit;
        edit = dynamic_cast<TEdit*>(Components[i]);
        if (edit)
            SQLQuery += "'" + edit->Text + "',";
    }
 
    SQLQuery.Delete(Sq.Length(), 1);
    SQLQuery+= ')';
 
    DataModule2->ADOQuery1->Close();
    DataModule2->ADOQuery1->SQL->Clear();
    DataModule2->ADOQuery1->SQL->Add(SQLQuery);
    DataModule2->ADOQuery1->ExecSQL();

E2451 Undefined symbol "Sq" критует.

The_Immortal · 14.08.2012, 16:56

teodorklaus, прошу прощения, это злой дядька Копипаст все испортил

C++
1
SQLQuery.Delete(SQLQuery.Length(), 1);

@teodorklaus · 16.08.2012, 11:31 **[ТС]**

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

teodorklaus, прошу прощения, это злой дядька Копипаст все испортил

C++
1
SQLQuery.Delete(SQLQuery.Length(), 1);

Ок, сейчас испробую такой вариант.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .