Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2506608 Mon, 15 Feb 2010 18:54:20 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2506608 Цитата Expected } @ 14.02.10, 22:10

Появляется сообщение "Missing SQL property"

напиши так

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add('Select * from твоя_таблица where поле=занчение');

AdoQuery1.Active := true;

]]> VahaC Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2506080 Mon, 15 Feb 2010 10:41:58 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2506080 ADOTable выкинь, используй SQL запросы.
Такой же совет сам получил лет 5 назад, кады начинал постигать азы работы с БД :)]]> Gonarh Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505919 Mon, 15 Feb 2010 07:54:08 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505919 Базы данных с нуля]]> Павел Калугин Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505895 Mon, 15 Feb 2010 07:32:01 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505895 Expected } Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505881 Mon, 15 Feb 2010 07:13:06 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505881 Expected } а запрос заполнили? свойство SQL. Или компутер сам должен догадатся какой запрос надо выполнять?]]> Павел Калугин Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505750 Sun, 14 Feb 2010 22:10:23 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505750 Цитата

а перед выполнение операции проверяли AdoQuery1.Active = true ?

Появляется сообщение "Missing SQL property"]]> Expected } Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505731 Sun, 14 Feb 2010 21:36:48 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505731 Цитата Expected } @ 14.02.10, 20:43

С AdoQuery не работает поиск

то есть?

Цитата Expected } @ 14.02.10, 20:43

"AdoQuery1: Cannot perform this operation on a closed dataset"

а перед выполнение операции проверяли AdoQuery1.Active = true ?]]> VahaC Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505701 Sun, 14 Feb 2010 20:43:34 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505701 "AdoQuery1: Cannot perform this operation on a closed dataset"]]> Expected } Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505675 Sun, 14 Feb 2010 20:13:20 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505675 VahaC Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505544 Sun, 14 Feb 2010 17:16:17 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=2505544

ADOTable1.Filter := 'Фамилия='+QuotedStr(Edit1.Text);

ADOTable1.Filtered:= True;

А затем, при редактировании полей:

ADOTable1.Edit;

ADOTable1.FieldByName('Фамилия').AsString:=DBEdit1.Text;

ADOTable1.post

Возникает ошибка:
"BOF или EOF имеет значение True, либо текущая запись удалена. Для выполнения операции требуется текущая запись."

В чём дело? И как избавиться от ошибки?]]> Expected } Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1188468 Sun, 23 Jul 2006 08:40:32 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1188468 Цитата кент @ 18.07.06, 07:03

Цитата Anatoly Podgoretsky @ 17.07.06, 19:06

Ошибка "Undeclared identifier:" означает, что ты не включил в uses нужные модули

и это оказалось был DB >:(

Молодец, такие вопросы ты должен разрешать сам с помощью справка, как правило нужный модуль в ней указан и в крайнем случае поиском по исходникам.]]> Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1182040 Tue, 18 Jul 2006 11:07:59 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1182040 Приёмы работы с BLOB (OLE/Memo) полями, Хранить картинку/файл в таблице?]]> Bas Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181562 Tue, 18 Jul 2006 07:03:49 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181562 Цитата Anatoly Podgoretsky @ 17.07.06, 19:06

Ошибка "Undeclared identifier:" означает, что ты не включил в uses нужные модули

и это оказалось был DB >:(]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181225 Mon, 17 Jul 2006 19:26:19 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181225 Цитата Anatoly Podgoretsky @ 17.07.06, 19:06

Ошибка "Undeclared identifier:" означает, что ты не включил в uses нужные модули

А какие нужно подключить модули если не секрет]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181207 Mon, 17 Jul 2006 19:06:40 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181207 Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181194 Mon, 17 Jul 2006 18:59:41 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1181194 кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180911 Mon, 17 Jul 2006 15:00:56 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180911 Цитата Creat!ve @ 17.07.06, 12:02

Ты уверен, что не работает???

А ты в какой СУБД проверял - У меня Аксес 2003
и вылаются ошибки

Цитата

[Error] Unit.pas(119): Undeclared identifier: 'TBlobField'
[Error] Unit.pas(119): Undeclared identifier: 'LoadFromFile'

Добавлено 17.07.06, 15:03
Bas, а можно ссылку из FAQ :wub:]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180637 Mon, 17 Jul 2006 12:02:12 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180637
Добавлено 17.07.06, 12:33
Ты уверен, что не работает??? :blink:
У меня вот эти строчки ошибок не выдают:

if OpenDialog1.Execute then

begin

ADOTable1.Append;

(ADOTable1.FieldByName('pict') as TBlobField).LoadFromFile(OpenDialog1.FileName);

ADOTable1.Post;

end;

]]> Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180620 Mon, 17 Jul 2006 11:53:02 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180620 Creat!ve, я это уже пробовал

Цитата кент @ 17.07.06, 10:27

form.AdoTable1.fieldbyname('Picture') As TBlobField).loadfromfile(OpenDialog1.FileName);

]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180606 Mon, 17 Jul 2006 11:44:05 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180606

(table1.fieldbyname('ddd') as TBlobField).loadfromfile('dddss');

]]> Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180562 Mon, 17 Jul 2006 11:24:55 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180562 Цитата Bas @ 17.07.06, 11:16

Заглянуть в FAQ.

я там смотрел. Вроде нету или плохо смотрел :wall:
Bas, буду очень благодарен за ссылку :yes:]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180548 Mon, 17 Jul 2006 11:16:30 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180548 Цитата кент @ 17.07.06, 10:53

а как же теперь сохранять картинки в поле таблицы БД Аксесса

Заглянуть в FAQ.]]> Bas Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180501 Mon, 17 Jul 2006 10:53:43 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180501 кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180453 Mon, 17 Jul 2006 10:36:23 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180453 Цитата кент @ 17.07.06, 10:27

Цитата Anatoly Podgoretsky @ 17.07.06, 08:08

Так нет такого свойства у TField

Так есть или нет :wacko: ???[/CODE]

Я что не четко, двусмысленно написал?]]> Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180441 Mon, 17 Jul 2006 10:27:05 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180441 Цитата Anatoly Podgoretsky @ 17.07.06, 08:08

Так нет такого свойства у TField

Так есть или нет :wacko: ???

так тоже не проходит :wall:

form.AdoTable1.fieldbyname('Picture') As TBlobField).loadfromfile(OpenDialog1.FileName);

]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180134 Mon, 17 Jul 2006 08:08:05 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1180134 Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1179861 Mon, 17 Jul 2006 03:44:52 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1179861 кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1179093 Sun, 16 Jul 2006 06:24:16 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1179093 dron-s,
пишу вот так

form1.AdoTable3.Append;

form1.AdoTable3.FieldByName('Picture').SaveToBlobField('Graphics.bmp');

form1.AdoTable3.Post;

ругается на SaveToBlobField - типа нет такого свойства
у поля Picture тип OLE Object]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1179061 Sun, 16 Jul 2006 04:21:05 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1179061 Creat!ve
кент
графические и мультимедийные данные (и не только) храняться в BLOB-field (блоб-полях)...
записать в них данные и прочитать их оттуда можно так

Table.Edit;

Table.SaveToBlobField('Graphics.bmp');

Table.Post;

Table.LoadFromBlobField('Graphics.bmp');

]]> dron-s Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178949 Sat, 15 Jul 2006 19:04:43 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178949 А вот OLE Object может хранить объект (such as a Microsoft Excel spreadsheet, a Microsoft Word document, graphics, sounds, or other binary data), наверное, может хранить и картинки, а как их туда сохранять... мне тоже стало интересно! :D]]> Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178945 Sat, 15 Jul 2006 18:51:11 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178945 ведь в нем можно хранить картинки???). И я хочу добавить в него какую-нибудь картинку
Для начала я открываю диалоговое окно для добавления картинки

...

If OpenDialog1.Execute then

...

а как дальше его добавлять в поле Kartinka???]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178779 Sat, 15 Jul 2006 13:09:35 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178779

temp:=mainform.DBLookupComboBox1.KeyValue;

form1.DBLookupComboBox1.KeyValue:=0;

form1.DBLookupComboBox1.KeyValue:=temp;

сработало :yes:]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178777 Sat, 15 Jul 2006 13:06:16 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178777 Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178773 Sat, 15 Jul 2006 12:50:13 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178773

DBLookupComboBox1.KeyValue:=1;

теперь осталось только

Цитата кент @ 15.07.06, 11:03

щас попробую по этой технологии

Цитата Creat!ve @ 15.07.06, 11:36

tmp:=DBlookupСombobox1.ItemIndex; //этот
DBlookupСombobox1.ItemIndex:=0; // код
DBlookupСombobox1.ItemIndex:=tmp; //я не проверял

]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178759 Sat, 15 Jul 2006 11:55:39 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178759
Добавлено 15.07.06, 12:01
Точно не могу сказать, но свойство ListFieldIndex не подходит в замену ItemIndex? :blink:]]> Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178757 Sat, 15 Jul 2006 11:52:52 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178757 пишет ошибку

Цитата

[Error] Unit.pas(165): Undeclared identifier: 'ItemIndex'

]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178750 Sat, 15 Jul 2006 11:36:13 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178750

DBlookupСombobox1.ItemIndex:=0;

Чтобы выбрать отредактированную запись можно попробовать программно выбрать другую запись, а затем опять эту же: (не знаю насколько это правильно!.. :whistle: )

tmp:=DBlookupСombobox1.ItemIndex; //этот

DBlookupСombobox1.ItemIndex:=0; // код

DBlookupСombobox1.ItemIndex:=tmp; //я не проверял

А вообще я использую обычные компоненты с вкладки Standart, а то эти DB компоненты сложно контролировать (не знаю насколько это правильно!.. :whistle: )]]> Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178741 Sat, 15 Jul 2006 11:03:05 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178741 Возник вопрос: в форме добавления Организации после нажатия кнопки ОК (добавляет запись в Организации)
На кнопке я дописываю нижележащий код, чтобы добавленная организация появилась сразу в DBlookupcombobox1
и была видна

form1.DBlookupcombobox1.KeyValue:=form1.ADOTable1Id_organizacii.Value;

Но если я это пишу на Редактирование Организации, то нажав на кнопку отредактировать запись изменяется
а в DBlookupcombobox1 остается старый вариант и приходится сначала выбрать из DBlookupcombobox1
какую-нить другую организацию чтобы потом можно было в DBlookupcombobox1 выбрать
отредактированную запись.
И как при запуске программы чтобы в DBlookupcombobox1 уже была выбрана 1-ая запись из списка
(т.е. чтобы DBlookupcombobox1 первоначально не был пуст)]]> кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178347 Fri, 14 Jul 2006 19:22:52 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178347 кент Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178324 Fri, 14 Jul 2006 18:59:45 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178324

ADOTable.Edit;

ADOTable.FieldByName('Name').AsValue := Edit1.Text;

ADOTable.FieldByName('Surname').AsValue := Edit2.Text;

ADOTable.Post;

либо можешь в самом гриде редактировать данные или использовать DBNavigator]]> dron-s Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178316 Fri, 14 Jul 2006 18:48:43 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178316

Table1.Append; //или Table1.Edit если изменение

Table1.FieldByName('Name').Value:=Edit1.Text;

Table1.Post;

До открытия соответствуюшей формы присваиваешь значение в Edit1:

Form1.Edit1.Text:=Table1.Fields.Fields[1].AsString;

Form1.Show;

]]> Creative13 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178172 Fri, 14 Jul 2006 16:51:01 +0000 Добавление и изменение данных в https://forum.sources.ru/index.php?showtopic=148417&view=findpost&p=1178172 база+проект прилагаются

Есть 3 таблицы. Их структура:
Таблица Организации
Id_organizacii (счетчик)
Nazvanie_organizacii (текстовый)

Таблица Состав организации
Id_organizacii (числовой)
Id_sostava (счетчик)
Name (текстовый)
Surname (текстовый)

Таблица Данные о составе
id_data (счетчик)
Id_sostava (числовой)
Telefon

Таблицы Организации и Состав организации связаны по полю Id_organizacii как
1 ко многим, а таблица Состав организации связаны с таблицей Данные о составе по
полю Id_sostava

На форме у меня есть такая структура отображающая связь таблиц
В DBLookupComboBox1 у меня отображается Названия организаций
(берет данные из таблицы Организации).
Выбрав из списка DBLookupComboBox1 название организации (к примеру ФСБ) чуть ниже у меня
отображается в DBGrid1 состав данной организации. В ADOTable2 свойстве MasterSource у меня
прописанDataSource1 а в свойстве MasterFields у меня прописан Id_organizacii.
Связь по такому же принципу у меня и между данными из DBGrid1 и DBGrid2(в нем отображаются записи из
таблицы Данные о составе) - т.е. в ADOTable3 в свойстве MasterSource у меня
прописанDataSource2 а в свойстве MasterFields у меня прописан Id_sostava.

Есть на этой же форме кнопки Добавить запись в Таблицу Организации,
Добавить запись в Таблицу Состав организации и Добавить запись в Таблицу Данные о составе
При нажатии на эти кнопки появляются соответствующие формы в которых есть
Edit1(вопрос: а может использовать DBEdit1) для вписания в него новой записи в соответствющие таблицы.
А также кнопки изменить записи

Как заносить данные вписанные в Edit1 в соответствующий DBLookupComboBox1 или DBGrid'ы
И как мне при нажатии кнопки Изменить открывать соответствующую формы в которой в
Edit1 будет редактировать выделенная в DBLookupComboBox1 или DBGrid'ах запись и сохраняться изменения]]> кент Delphi: Базы данных