FelistA , я тут примерчик для тебя накатал, но прицепить не могу,почему-то
напиши свой e-mail я пришлю

Мой mail [email protected]
Исходный код напишу позже.
Пыталась сделать так как в статье написано, ошибка та же самая. Кто нибудь мне обьяснит что она означает?

что за ошибка ?

FelistA, пример выслал на е-mail

Цитата

Table1 Cannot perform this operation on a closed dataset

переводится:

Цитата

Table1 Не может исполнить это действие на закрытом наборе данных

у тебя

Table1.TableName:='GetCurentDir+имя_БД'; //если в том же каталоге или: + путь от каталога в котором лежит прога

такое есть?
или ищи ошибку в названии поля...

Это сообщение отредактировал(а) Albinos_x - 29.7.2005, 20:38

FelistA , ну как работает ?

Бррр... У меня ступор, голова перестала соображать, так бывает когда долго над одним делом работаю, устрою себе недельный перерыв и продолжу. Никто не против???
HAS спасибо за пример посмотрела, вот только базу не может найти. Но это дело поправимое.

FelistA, смотри как я делал, если ты используешь Table1, DataSource и DBGrid1 компоненты.

можно зделать всё очень просто
пример:
Form1.DBGrid1.DataSource.DataSet.Edit; // разрешаем произвести редактирование в таблице
Form1.DBGrid1.DataSource.DataSet.First; // переносим курсор в начало таблицы
Form1.DBGrid1.DataSource.DataSet.Insert; // добавляем пустую ячейку в которую добавим свой текст
Form1.DBGrid1.DataSource.DataSet.Edit; // подтверждаем редактирование повторно.
Form1.DBGrid1.DataSource.DataSet.Fields[0].Text:=Edit1.Text; // добавляешь текст из Edit1.Text
Form1.DBGrid1.DataSource.DataSet.Fields[1].Text:=Label1.Caption; // или добавляешь текст из Label1.Caption
Form1.DBGrid1.DataSource.DataSet.Fields[3].Text:=Form1.Caption; // или добавляешь текст из Form1.Caption нет разницы
Form1.DBGrid1.DataSource.DataSet.Post; // подтверждаешь и сохраняешь все внесёные изменения.

Обрати внимание на Fields[0], филдс может быть и с другой цифрой цифра ознчает номер поля, куда вносится текст:
Fields[0], Fields[1], Fields[2], Fields[3], Fields[4], для каждого грубо говоря Edit1.Text свой филдс
код ставишь под кнопку и всё, проще не бывает.

только не забудь!

в Form1.Create добавить
Table1.Open;

Цитата(Sett @ 8.8.2005, 00:30)

можно зделать всё очень просто

А можно еще проще . Не надо делать лишних действий. У Sett, первые четыре строки, это полная белиберда! Поясню:

Цитата(Sett @ 8.8.2005, 00:30)

Form1.DBGrid1.DataSource.DataSet.Edit; // разрешаем произвести редактирование в таблице Form1.DBGrid1.DataSource.DataSet.First; // переносим курсор в начало таблицы Form1.DBGrid1.DataSource.DataSet.Insert; // добавляем пустую ячейку в которую добавим свой текст Form1.DBGrid1.DataSource.DataSet.Edit; // подтверждаем редактирование повторно. Form1.DBGrid1.DataSource.DataSet.Fields[0].Text:=Edit1.Text; // добавляешь текст из Edit1.Text Form1.DBGrid1.DataSource.DataSet.Fields[1].Text:=Label1.Caption; // или добавляешь текст из Label1.Caption Form1.DBGrid1.DataSource.DataSet.Fields[3].Text:=Form1.Caption; // или добавляешь текст из Form1.Caption нет разницы Form1.DBGrid1.DataSource.DataSet.Post; // подтверждаешь и сохраняешь все внесёные изменения.

1. После First (строка 2), датасет переведенный в режим редактирования строкой 1, автоматически переключится в режим просмотра. Отсюда, первая строка бессмысленна.
2. First (строка 2) не нужен. Поскольку в реляционных БД понятие порядок записей отсутствует, то и вставка записи (строка 3) может производиться в любое место, не обазательно в начало.
3. После Edit (строка 4), датасет переведенный в режим вставки строкой 3, автоматически переключится в режим реадктирования текущей записи, а то и вообще даст Exception.

И еще. Обращение к полям по индексу (Fields[0], Fields[1], Fields[2], Fields[3], Fields[4], ...) это дурной тон, который может принести проблемы. Например, если в таблице изменится порядок и состав полей, то придется лазить по всему тексту программы и изменять индексы. Да и запутаться легко. Лучше либо обращаться по именам полей:

Код

Form1.DBGrid1.DataSource.DataSet.Append; // Переключаем датасет в режим добавления записи Form1.DBGrid1.DataSource.DataSet.FieldByName('FieldEdit').AsString:=Edit1.Text; // добавляешь текст из Edit1.Text Form1.DBGrid1.DataSource.DataSet.FieldByName('FieldLabel').AsString:=Label1.Caption; // или добавляешь текст из Label1.Caption Form1.DBGrid1.DataSource.DataSet.FieldByName('FieldCaption').AsString:=Form1.Caption; // или добавляешь текст из Form1.Caption нет разницы Form1.DBGrid1.DataSource.DataSet.Post; // подтверждаешь и сохраняешь все внесёные изменения.[/quote]

Либо обращаться к объектам полей созданным во время дизайна. Последнее даже лучше, поскольку как минимум будет быстрее.

Подскажите и мне пожалуйста. Пишу приложение на Delphi для работы с базой в Access, соединение с базой через ADO. Добавление/редактирование записей в главной таблице и которая отображается реализовано след.образом: есть главная форма, на ней по кнопке вызывается форма для добавления/редактирования уже имеющейся записи. На этой форме есть Edit-ы и возле каждого кнопка для вызова соответствующего справочника и выбора из него нужной записи.  Код добавления записи по вышеприведённым примерам работает. Вот мой код для кнопки добавить:



Программу делал по книге, в Delphi новичок, прошу пожалуйста подсказать/помочь. Как можно реализовать редактирование записи. DBNavigator-ом устанавливаем курсор на записи необходимой для редактирования, затем вызывается кнопкой на главной форме "редактировать" форма для добавления/редактирования. Как сделать так, чтобы в Edit-ах на этой форме отображались данные текущей записи в таблице и чтоб их можно было редактировать (как это реализовано у меня путём выбора записей из справочников)? Если бы писал на SQL 2000, то можно в SQL-е сделать хранимые процедуры на SQL языке, потом в Delphi в DataModule их вызывать и вообщем есть код для этого в книге. Но есть ли такая возможность, если база в Access, а не в SQL 2000? Или как это можно сделать по-другому, к примеру процедура не вызвывается с сервера SQL, а уже хранится в приложении Delphi?  Аналогично интересует вопрос удаления записи.

p.s. Как отображать текущие данные в форме и редактировать их в ней разобрался сам, осталось с удалением решить.

Это сообщение отредактировал(а) Veniamin - 22.4.2008, 16:07

Добавлено через 1 минуту и 5 секунд