2 / 2 / 3
Регистрация: 01.03.2015
Сообщений: 131
MS Access

Запись в БД

12.10.2015, 16:16. Показов 528. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста при добавление записей в строчку они добаляються через строчку(
хотел сделать на одной кнопке чтобы пока не выберешь клиента и сотрудника выводила сообщение что не выбран тот или иной сотрудник, клиент но когда выбирал вторую запись он записывал одну и ту же фамилию в разных полях через строчку поэтому начал делать на разных кнопках
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
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
#include "Unit5.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
        : TForm(Owner)
{
DBGrid1->Columns->Items[0]->Visible = false;
DBGrid1->Columns->Items[1]->Width = 100;
DBGrid1->Columns->Items[2]->Width = 100;
DBGrid1->Columns->Items[3]->Width = 100;
DBGrid1->Columns->Items[4]->Width = 70;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::Button2Click(TObject *Sender)
{
Form2->Button4->Visible=True;
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button3Click(TObject *Sender)
{
ADOTable1->Insert();
ADOTable1->FieldByName("Сотрудник")->AsString=S;
ADOTable1->Post();
MessageDlg("Запись успешно добавлена", mtInformation, TMsgDlgButtons() << mbOK, 0);
 }
 
//---------------------------------------------------------------------------
 
void __fastcall TForm7::Button1Click(TObject *Sender)
{
Form5->Button4->Visible=True;
Form5->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::N2Click(TObject *Sender)
{
if (MessageBox(0,"Вы желаете завершить приложение?","Information",MB_YESNO|MB_ICONQUESTION) == IDYES)
{
Form1->Close(); // нажали Yes
Form7->Close();}
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm7::N4Click(TObject *Sender)
{
if (MessageBox(0,"Вы желаете вернуться в главное меню?","Information",MB_YESNO|MB_ICONQUESTION) == IDYES)
{
Form7->Close(); // нажали Yes
Form1->Show();}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::N6Click(TObject *Sender)
{
ADOTable1->Delete();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm7::Button5Click(TObject *Sender)
{
ADOTable1->Insert();
ADOTable1->FieldByName("Клиент")->AsString=S;
ADOTable1->Post();
MessageDlg("Запись успешно добавлена", mtInformation, TMsgDlgButtons() << mbOK, 0);
 }
 
//---------------------------------------------------------------------------
на одной кнопке делал вот так
ADOTable1->Insert();
ADOTable1->FieldByName("Клиент")->AsString=S;
ADOTable1->FieldByName("Сотрудник")->AsString=S;
ADOTable1->Post();
MessageDlg("Запись успешно добавлена", mtInformation, TMsgDlgButtons() << mbOK, 0);[/CPP]

Добавлено через 23 часа 35 минут
ауууу
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.10.2015, 16:16
Ответы с готовыми решениями:

Четыре кнопки на форме: добавить запись, удалить запись, закрыть, найти запись
Private Sub КнопкаДобавитьЗапись_Click() On Error GoTo Err_КнопкаДобавитьЗапись_Click DoCmd.GoToRecord , , acNewRec ...

Запись в файл - проверить, не идет ли в него запись, чтобы не генерировалось исключение
Доброе время суток! Вот такой пример: Imports System Imports System.IO Module Module1 Public Class LogWriter

Как сменить построчную запись в столбике DBGrid на запись столбиком?
Ввод записи в компонент DBGrid через TEdit.. Как сделать так, чтобы в компоненте TEdit можно было вводить запись и затем нажимать Enter,...

8
Заблокирован
12.10.2015, 16:48
NextGen25, что означает добавляется через строчку?
1
2 / 2 / 3
Регистрация: 01.03.2015
Сообщений: 131
12.10.2015, 17:07  [ТС]
есть база данных в неё надо внести запись выбрав через кнопки
т.е в 2-х полях чтобы появились записи а он делает в первой строке добавляет в первое поле текст а во втором поле перекидывает на вторую строчку скрин приложил
Миниатюры
Запись в БД  
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
12.10.2015, 17:14
NextGen25, если тебе надо изменить строку, которая была добавлена ранее, то тебе нало использовать не Insert(), а Edit()
1
2 / 2 / 3
Регистрация: 01.03.2015
Сообщений: 131
12.10.2015, 17:17  [ТС]
вы не поняли наверное меня( мне надо чтобы всё было в одной строчке а не в разных
т.е чтобы записи были в одной строчке
0
Заблокирован
12.10.2015, 17:21
NextGen25, Вот так попробуйте)

C++
1
2
3
4
5
ADOTable1->Insert();
ADOTable1->FieldByName("Сотрудник")->AsString=S;
ADOTable1->FieldByName("Клиент")->AsString=S1;
ADOTable1->Post();
MessageDlg("Запись успешно добавлена", mtInformation, TMsgDlgButtons() << mbOK, 0);
или в одном месте вносите запись либо как написали выше Edit()
1
2 / 2 / 3
Регистрация: 01.03.2015
Сообщений: 131
12.10.2015, 17:27  [ТС]
Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!:bravo :
1
Заблокирован
12.10.2015, 17:50
NextGen25, надеюсь вы поняли почему было на разных строчках) вы каждый раз добавляли новую запись но заполняли только один столбец у нее
2
2 / 2 / 3
Регистрация: 01.03.2015
Сообщений: 131
12.10.2015, 17:57  [ТС]
да понял)) надо было добавить всего одни символ С1 чтобы записывалось всё в одну строчку) спасибо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.10.2015, 17:57
Помогаю со студенческими работами здесь

Как создать запись в главной таблице и связанную запись в подчинённой?
Логика: - нажимаю кнопку на форме &quot;00_00_ФОРМА_ОСН&quot;; - открывается форма &quot;01_01_ПроектыСтлб&quot;; - создаётся новый...

Запретить запись в базу, если в базе уже есть запись
Здравствуйте уважаемые форумчане. У меня есть база данных в которую пользователи добавляют адреса сайтов Они добавляют и http://site.ru...

Поменять любую запись местами с последней и удалить последнюю запись.
Помогите пожалуйста! Мне для программы, которая использует records (записи), нужно написать процедуру, которая меняет любую запись...

Пожалуйста напишите программу, которая добавляет запись в типизированый файл тип - запись
Которая добавляет запись в типизированый файл тип - запись добавляет к той записи в файле дополнительную запись выводит на экран из...

люди добрые! нужно программа инверсная запись чисел, запись из инверсной в обычную
помогите сделать программа или датьсходник, можно на с++ или на паскале спасибо вам за раннее огромное!!!!!


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

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

Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru