Доброе время суток, подскажите пожалуйста как можно выполнить задачу -
имеются 2 таблицы, в первой таблице 1 поле - специальность, оно же и ключевое. Во второй таблице поля специальность и дисциплина(дисциплина ключевое). Вопрос состоит в том, как сделать возможным изменение специальности в первой таблице, с последующими заменами этих же специальностей на новое значение, во второй таблице.

Добавлено через 1 час 2 минуты
Вот код того как я изменяю изменяю данные в первой таблице:

Жму на форме кнопку изменения данных.
procedure TForm12.Button2Click(Sender: TObject);
begin
Form13.show;
Adotable1.Edit;
end;



это кнопка на другой форме, с помощью которых я изменяю на введенные значение в dbedit
procedure TForm13.Button1Click(Sender: TObject);
begin
if dbedit1.text='' then begin messagebox(0,'Введите специальность!','Внимание',MB_OK); Abort; end else
form12.adotable1.post;
Form13.Close;
end;
  

Наверное скоро откроем специальный раздел в Delphi для студентов

Если каждая специальность имеет своё значение ключа, то заменить запросом - с условием WHERE - не составит труда.  

Я не использую ADOQuery...

   

по сабжу
ну пройдись for'ом и поменяй

и еще.
пользуйся кнопкой "код", а то невозможно читать.

Это сообщение отредактировал(а) 14SatanA88 - 17.6.2011, 08:42

14SatanA88, Я только учусь, название форм я не менял потому что мне так реально удобно, я знаю что где есть, хоть и не красиво.
А насчет фора, я даже не представляю как это сделать. У меня была чуть другая мысль: изменяя какую либо специальность, в первую переменную записывалось бы изменяемое значение, а во вторую то на что изменили. Потом в другой таблице через локейт(locate) сделать сортировку по первой переменной и заменить на значение из 2й переменной. Но как это организовать хоть убейте не знаю, не могу....

я сам недавно только колледж окончил



рекомендую менять название компонентов (и форм в частности) на свои. это реально удобней. сам прошел этот этап.



вообще locate - это поиск

ну сделай замену так


if (adotable1.fieldbyname('spec').asstring=old_spec) then adotable1.fieldbyname('spec').asstring:=new_spec; 
здесь у тебя будет:
spec - имя поля, где специальность
old_spec - строковая переменная, где ты запишешь старую специальность
new_spec - строковая переменная, где новая специальность

а вообще sql-ем лучше. но я в нем не шарю практически

Организовать правильно структуру базы и тогда такого извращения не будет. + знание СКЛ запросов не помешало бы

Добавлено через 3 минуты и 21 секунду
НО если уже пошли извращаться, то лучше сделать обновление через запрос, иначе если будет записей свыше 1 000, то будет не гуд.

Запрос типа

14SatanA88,  Появляется ошибка, когда я жму на кнопку изменить ...... raised exception class EDatabaseError with message 'ADOTable2: Dataset not in edit or insert mode'.



Вот кнопка зименить. 
procedure TForm13.Button1Click(Sender: TObject);
var spec,newspec:string; I:integer;
begin
spec:=form12.ADOTable1.FieldByName('Specialnost').Value;
if dbedit1.text='' then begin  messagebox(0,'Введите специальность!','Внимание',MB_OK); Abort; end  else
newspec:=dbedit1.Text;
form12.adotable1.post;

form12.adotable2.edit;        // разрешаем редактирование, иначе вылетит
form12.adotable2.first; // таблицу в начало
for i:=1 to form12.adotable2.recordcount do // от 1 (первая запись) до recordcoun (число записей вообще)
begin
if (form12.adotable2.fieldbyname('Specialnost').asstring=spec) then form12.adotable2.fieldbyname('Specialnost').asstring:=newspec; // проверка и замена
form12.adotable2.post; // сохранить изменения записи
form12.adotable2.next; // перейти к следующей
Form13.Close;
end;
end;


Эта кнопка находится на форме, которую открываю с помощью 
procedure TForm12.Button2Click(Sender: TObject);
begin
Form13.show;
Adotable1.Edit; // Тут я в эдит 1й дататэйбл перевожу. 
end;



chip_and_dayl,  Да понимаю, но структуру уже поздно менять, мне этот проект надо доделывать....
В ADotable вроде же нельзя SQL пользоваться (?

Какой нафиг цикл, если запросом это будет наиболее быстро.

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

А, так это принцип такой, что ли?  Ну, тогда перебирай в цикле и юзай .Edit ... .Post.

значит ты пытаешься записать значение в таблицу, к которой доступ закрыт.

пользуйся кнопкой "код", когда постишь код.

на какой строке ошибка?

Добавлено через 39 секунд

плюсую.
да и кода меньше

На какой строке не пишиь, жму Break, экран показывает просто весь код, нигде ничего не выделяя, а программа продолжает работать.





Может я дурачек и не правильно определяю старое значение 


Это сообщение отредактировал(а) RuthlessD - 17.6.2011, 09:54

ну попробуй строку 9 перенести в начало процедуры.



тогда другой тип еррора был бы.
тут именно попытка изменения данных таблицы, доступ к которой не открыт

Это сообщение отредактировал(а) 14SatanA88 - 17.6.2011, 09:59

Не помогло, я даже при нажатии на кнопку - вызове формы с кнопкой изменения, добавил кол Adotable2.edit...

ну тогда надо отслеживать где ошибка
прицепи исходник, я посмотрю

Это сообщение отредактировал(а) 14SatanA88 - 17.6.2011, 10:04