0 / 0 / 0
Регистрация: 03.06.2011
Сообщений: 8

Delphi и обновление БД Access

16.05.2014, 08:21. Показов 1010. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго всем. Существует бд в акцессе и интерфейс в делфи. Создал кнопку обновить, ошибок не выдает но и базу не обновляет. Вот фрагмент. Как пример использовал бд банка. моя программа и пример вложены. Если сможете подскажите как исправить
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button3Click(Sender: TObject);
var
str:string;
begin
  ADOQuery1.SQL.Clear;
  str := 'update  [Ведение карточек организации] set= [Наименование предприятия]='''+
  Edit7.Text+''',Адрес='''+Edit8.Text+''',Телефон='''+Edit9.Text+''',[Сфера деятельности]='''+
  Edit10.Text+''',Предоставляемые услуги='''+Edit11.Text+''' Where  №='+DBLookupComboBox2.Text;
  ADOQuery1.SQL.Add(str);
  ADOQuery1.ExecSQL;
  ADOTable1.close;
  ADOTable1.open;
end;
 
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
  edit7.Text:=ADOTable1.FieldByName('Наименование предприятия').AsString;
  edit8.Text:=ADOTable1.FieldByName('Адрес').AsString;
  edit9.Text:=ADOTable1.FieldByName('Телефон').AsString;
  edit10.Text:=ADOTable1.FieldByName('Сфера деятельности').AsString;
  edit11.Text:=ADOTable1.FieldByName('Предоставляемые услуги').AsString;
 
end;
Вложения
Тип файла: rar Мое.rar (371.3 Кб, 13 просмотров)
Тип файла: rar bd_bank.rar (486.4 Кб, 46 просмотров)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.05.2014, 08:21
Ответы с готовыми решениями:

Обновление запросов в Delphi и Access 2000
Привет Всем! Есть база в Access 2k, а в ней счетчик ID. Делаю запрос с ипользованием tADOQiery. Далее добавляю новую строку....

Каскадное обновление access - Ado - Delphi
Кто подскажет в чем проблема ? Исправьте заодно ! Как сделать что бы при выборе пользователя из первой таблицы отображались только...

SQL-запрос в Delphi и в Access один и тот же, но в Delphi не работает
ри обращение к базе в Access я использую код: with ADOQueryMain do begin Active:=false; SQL.Clear; SQL.Add('SELECT Code,...

1
0 / 0 / 0
Регистрация: 03.06.2011
Сообщений: 8
16.05.2014, 08:27  [ТС]
На примере вкладки Ведение карточек организации
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.05.2014, 08:27
Помогаю со студенческими работами здесь

Обновление БД Access
Добрый день, товарищи форумчане! Столкнулся сейчас с такой проблемой: не добавляются данные в базу данных access. Как обычно (и думаю не...

Обновление значений access
Такая проблема. Добавляю запись в таблицу access через ADOtable. Выполняю проверку на уникальность после нажатия кнопки 'Добавить'. Так...

Обновление базы Access
При редактировании меняются значения только в dataGridView, а сама база Acсess - нет Вот сама программа: https://ru.files.fm/u/xgvxj768

Обновление записей в БД (Access)
В FAQ форума есть пример: Sub UpdateStr(ByVal KeyValue As Integer) SqlCom = New OleDb.OleDbCommand("UPDATE SET ='Воронцов'...

Запрос на обновление в MS Access
Доброго времени суток! Столкнулся с такой проблемой. Мне нужно заменить с помощью запроса на обновление первые 3 цифры номера телефона на...


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

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

Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru