Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder: Базы данных
Войти
Регистрация
Восстановить пароль
 
ivanka_yana
0 / 0 / 0
Регистрация: 19.03.2014
Сообщений: 8
#1

Изменения в бд сохраняются только до завершения работы

11.05.2015, 13:36. Просмотров 323. Ответов 2
Метки нет (Все метки)

Изменения в бд сохраняются только до завершения работы:\
а в бд не сохраняются:\

Как можно решить? Прошу помощи.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TShowClient *ShowClient;
extern int IndicationClick;
//---------------------------------------------------------------------------
__fastcall TShowClient::TShowClient(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TShowClient::BitBtn3Click(TObject *Sender)
{
if (Edit1->Text==""||Edit2->Text==""||Edit3->Text==""||MaskEdit1->Text==""||Edit5->Text==""||Edit6->Text=="")
{
ShowMessage("Вы не заполнили все обязательные поля!");
return;
}
Client->TableClient->Append();
Client->TableClient->FieldByName("FirmName")->AsString=Edit1->Text;
Client->TableClient->FieldByName("Abbreviation")->AsString=Edit2->Text;
Client->TableClient->FieldByName("Driver")->AsString=LabeledEdit6->Text;
Client->TableClient->FieldByName("ContactPerson")->AsString=Edit3->Text;
Client->TableClient->FieldByName("Telephone")->AsString=MaskEdit1->Text;
Client->TableClient->FieldByName("Facs")->AsString=LabeledEdit1->Text;
Client->TableClient->FieldByName("Site")->AsString=LabeledEdit3->Text;
Client->TableClient->FieldByName("E-mail")->AsString=LabeledEdit2->Text;
Client->TableClient->FieldByName("FactAddress")->AsString=LabeledEdit5->Text;
Client->TableClient->FieldByName("UrAddress")->AsString=LabeledEdit4->Text;
Client->TableClient->FieldByName("INN")->AsInteger=StrToInt(Edit5->Text);
Client->TableClient->FieldByName("OKPO")->AsInteger=StrToInt(Edit6->Text);
Client->TableClient->Post();
ShowClient->Close();
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TShowClient::FormClose(TObject *Sender,
      TCloseAction &Action)
{
if (IndicationClick==1){
GolMenu->Enabled=true;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TShowClient::Edit5KeyPress(TObject *Sender, char &Key)
{
if(isalpha(Key)){Key=0;}
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2015, 13:36
Ответы с готовыми решениями:

Как вызвать окно завершения работы виндовс и меню пуск
Доброго времени суток нашел видео где описывается код вызова окна завершения...

Вывести текст с консоли в Memo, но только после завершения консольного приложения
Программа выводить текст с консоли в Memo, но только после завершения...

Не сохраняются изменения в БД
Доброго времени,возникла такая проблема. Есть форма на которой есть TextBox,...

Не сохраняются изменения в БД
Доброго времени суток. Есть форма в личном кабинете и кнопка. При нажатии...

Не сохраняются изменения в БД
У меня есть БД с учениками (ID_ученика, Успеваемость, ФИО, Класс). на форме у...

2
Sasha
4923 / 2387 / 530
Регистрация: 05.06.2008
Сообщений: 7,473
Записей в блоге: 3
12.05.2015, 09:01 #2
Какую базу используешь?
0
D1973
Модератор
3401 / 2438 / 1204
Регистрация: 21.01.2014
Сообщений: 10,099
Записей в блоге: 3
Завершенные тесты: 1
12.05.2015, 16:49 #3
Была такая же заморочка при работе с Paradox.
Сначала я отказался от прямой работы с таблицами БД (через компонент TTable) использовал SQL-запросы и компонент TQuery. Помогло
Потом я вообще отказался от Paradox в пользу Access. Стало еще лучше
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2015, 16:49

Не сохраняются изменения
try { OleDbConnection connect = new...

Не сохраняются изменения в БД
Я создал процедуру create procedure d_man @fio varchar(150), @age int as...

Не сохраняются изменения
scn.Open(); cmd.CommandText = &quot;INSERT INTO employees (nomer, first_name,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru